diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-12-13 18:47:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-12-13 18:47:37 +0000 |
commit | 56656dd088c879bc119bf623d3234aa25e083ece (patch) | |
tree | fbfbd04bcacda6a469646ef23004516605f6c7c2 /lisp/macros.el | |
parent | fe2f168632b12b6ccefcbd5613292689cb86f304 (diff) | |
download | emacs-56656dd088c879bc119bf623d3234aa25e083ece.tar.gz |
(insert-kbd-macro): Specially handle C-\, M-\ and C-M-\.
Only convert the character syntax if definition is a string.
Diffstat (limited to 'lisp/macros.el')
-rw-r--r-- | lisp/macros.el | 72 |
1 files changed, 41 insertions, 31 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index afae6e44500..ca588fa995f 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -74,37 +74,47 @@ use this command, and then save the file." (prin1 definition (current-buffer)) (setq end (point-marker)) (goto-char beg) - (while (< (point) end) - (let ((char (following-char))) - (cond ((= char 0) - (delete-region (point) (1+ (point))) - (insert "\\C-@")) - ((< char 27) - (delete-region (point) (1+ (point))) - (insert "\\C-" (+ 96 char))) - ((< char 32) - (delete-region (point) (1+ (point))) - (insert "\\C-" (+ 64 char))) - ((< char 127) - (forward-char 1)) - ((= char 127) - (delete-region (point) (1+ (point))) - (insert "\\C-?")) - ((= char 128) - (delete-region (point) (1+ (point))) - (insert "\\M-\\C-@")) - ((< char 155) - (delete-region (point) (1+ (point))) - (insert "\\M-\\C-" (- char 32))) - ((< char 160) - (delete-region (point) (1+ (point))) - (insert "\\M-\\C-" (- char 64))) - ((< char 255) - (delete-region (point) (1+ (point))) - (insert "\\M-" (- char 128))) - ((= char 255) - (delete-region (point) (1+ (point))) - (insert "\\M-\\C-?")))))) + (if (stringp definition) + (while (< (point) end) + (let ((char (following-char))) + (cond ((= char 0) + (delete-region (point) (1+ (point))) + (insert "\\C-@")) + ((< char 27) + (delete-region (point) (1+ (point))) + (insert "\\C-" (+ 96 char))) + ((= char ?\C-\\) + (delete-region (point) (1+ (point))) + (insert "\\C-\\\\")) + ((< char 32) + (delete-region (point) (1+ (point))) + (insert "\\C-" (+ 64 char))) + ((< char 127) + (forward-char 1)) + ((= char 127) + (delete-region (point) (1+ (point))) + (insert "\\C-?")) + ((= char 128) + (delete-region (point) (1+ (point))) + (insert "\\M-\\C-@")) + ((= char (aref "\M-\C-\\" 0)) + (delete-region (point) (1+ (point))) + (insert "\\M-\\C-\\\\")) + ((< char 155) + (delete-region (point) (1+ (point))) + (insert "\\M-\\C-" (- char 32))) + ((< char 160) + (delete-region (point) (1+ (point))) + (insert "\\M-\\C-" (- char 64))) + ((= char (aref "\M-\\" 0)) + (delete-region (point) (1+ (point))) + (insert "\\M-\\\\")) + ((< char 255) + (delete-region (point) (1+ (point))) + (insert "\\M-" (- char 128))) + ((= char 255) + (delete-region (point) (1+ (point))) + (insert "\\M-\\C-?"))))))) (insert ")\n") (if keys (let ((keys (where-is-internal macroname '(keymap)))) |