Mercurial > hg > xemacs

comparison misc.el @ 42:597d985bf448

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use add-hook
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 16 Dec 2023 21:08:13 +0000
parents 0e5b39d2f8bb
children
comparison
equal deleted inserted replaced
41:1ff8b5045b1f 42:597d985bf448
137 (setq margin-stack (cdr margin-stack))) 137 (setq margin-stack (cdr margin-stack)))
138 (setq left-margin 0)) 138 (setq left-margin 0))
139 (move-to-column left-margin) 139 (move-to-column left-margin)
140 (set-fill-prefix)) 140 (set-fill-prefix))
141 141
142 (setq text-mode-hook `(lambda nil (progn ,@ (mapcar (function list) 142 (add-hook 'text-mode-hook
143 text-mode-hook)) 143 (lambda nil
144 (turn-on-auto-fill) 144 (turn-on-auto-fill)
145 (abbrev-mode 1) 145 (abbrev-mode 1)
146 (local-set-key "\C-cl" 'set-left-margin) 146 (local-set-key "\C-cl" 'set-left-margin)
147 (local-set-key "\C-cs" 'submerge-region))) 147 (local-set-key "\C-cs" 'submerge-region)) t)
148 148
149 (global-set-key "\C-cp" 'pop-left-margin) 149 (global-set-key "\C-cp" 'pop-left-margin)
150 150
151 (make-variable-buffer-local 'margin-stack) 151 (make-variable-buffer-local 'margin-stack)
152 (set-default 'margin-stack nil) 152 (set-default 'margin-stack nil)