(prefix-arg-internal): Use listify-key-sequence.

d70202c0 · Richard M. Stallman · bdc2ae8d · d70202c0
Commit d70202c0 authored Mar 06, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/simple.el lisp/simple.el +1 -1

No files found.
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -797,7 +797,7 @@ Repeating \\[universal-argument] without digits or minus sign
 	(progn
 	  (describe-arg value sign)
 	  (setq key (read-key-sequence nil t))))
-    (setq unread-command-events (append key '()))))
+    (setq unread-command-events (listify-key-sequence key))))

 (defun describe-arg (value sign)
  (cond ((numberp value)