Mercurial > emacs

comparison lisp/macros.el @ 74235:1807458bff39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-kbd-macro): "?\ " -> "?\s".
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Nov 2006 13:58:48 +0000
parents 3bd95f4f2941
children b2e5081b9320
comparison
equal deleted inserted replaced
74234:d966c458c782 74235:1807458bff39
128 (delete-region (point) (1+ (point))) 128 (delete-region (point) (1+ (point)))
129 (insert "\\M-\\C-?")))))) 129 (insert "\\M-\\C-?"))))))
130 (if (vectorp definition) 130 (if (vectorp definition)
131 (let ((len (length definition)) (i 0) char mods) 131 (let ((len (length definition)) (i 0) char mods)
132 (while (< i len) 132 (while (< i len)
133 (insert (if (zerop i) ?\[ ?\ )) 133 (insert (if (zerop i) ?\[ ?\s))
134 (setq char (aref definition i) 134 (setq char (aref definition i)
135 i (1+ i)) 135 i (1+ i))
136 (cond ((not (numberp char)) 136 (cond ((not (numberp char))
137 (prin1 char (current-buffer))) 137 (prin1 char (current-buffer)))
138 (t 138 (t