- 183 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/03(火) 12:16:34 ID:WuUpWZi0O]
- mark-sexpなんて便利なものがあるのを今まで知らなかった
(defun copy-sexp-to-clipboard ()
(interactive)
(save-excursion
(let ((p (point))(m (mark t)))
(when (string/= "(" (buffer-substring p (1+ p)))
(backward-sexp))
(mark-sexp)
(copy-region-to-clipboard (point) (mark))
(when m (set-mark m)))))
