diff options
Diffstat (limited to 'lisp/macros.el')
-rw-r--r-- | lisp/macros.el | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 59c7796551f..98ee3dc52f9 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -46,16 +46,6 @@ " ") ?\])) -(defun macro--string-to-vector (str) - "Convert an old-style string key sequence to the vector form." - (let ((vec (string-to-vector str))) - (unless (multibyte-string-p str) - (dotimes (i (length vec)) - (let ((k (aref vec i))) - (when (> k 127) - (setf (aref vec i) (+ k ?\M-\C-@ -128)))))) - vec)) - ;;;###autoload (defun insert-kbd-macro (macroname &optional keys) "Insert in buffer the definition of kbd macro MACRONAME, as Lisp code. @@ -88,10 +78,8 @@ use this command, and then save the file." (insert "(defalias '")) (prin1 macroname (current-buffer)) (insert "\n ") - (when (stringp definition) - (setq definition (macro--string-to-vector definition))) - (if (vectorp definition) - (setq definition (kmacro definition))) + (when (or (stringp definition) (vectorp definition)) + (setq definition (kmacro (kmacro--to-vector definition)))) (if (kmacro-p definition) (let ((vecdef (kmacro--keys definition)) (counter (kmacro--counter definition)) |