2006/06/04
# [xyzzy] ちいさなちいさな小物たち
それなりに，需要が高いので。
(global-set-key #\C-Right "→")
一時的なメモ書き用に使います。（ctl-z-map は，こちら。）
(define-key ctl-z-map #\d
#'(lambda () (interactive)
(find-file "~/(草稿)")))
詰め込み桁数に合わせて区切り線を引きます。ついでに，なんじゃらモードの場合は，コメント分にします。（comment-out-selection-or-one-line は，こちら。）
(defun insert-hr ()
(interactive "*")
(insert (if *prefix-args* (read-string "" :default "━") "─")
(let ((c fill-column))
(unless (evenp c) (setf c (1+ c)))
(/ c 2)))
(comment-out-selection-or-one-line))
(define-key ctl-z-map #\; 'insert-hr)
ちょっとしたカスタマイズが，非常に便利なのです。
コメント
トラックバック -
http://hie.s64.xrea.com/murmur/tb.cgi/20060604
