insert-horizontal-line

part_of_discrete.l

;; in discrete.l

isearch中に
C-w 選択範囲を１語前方(右)へ拡張
C-h 選択範囲を１語後方(左)へ拡張
C-y 選択範囲を行末まで拡張

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;@@@ insert-horizontal-line
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insert-horizontal-line (&optional (n 40))
  (interactive "*p")
  (insert "-" n)
  (newline))

(global-set-key '(#\C-x #\-) 'insert-horizontal-line)