diff options
Diffstat (limited to 'lisp/emulation/cua-base.el')
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 4c2ba0c527c..fb6a8515d9e 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -1134,7 +1134,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." (defun cua--M/H-key (map key fct) ;; bind H-KEY or M-KEY to FCT in MAP - (unless (listp key) (setq key (list key))) + (setq key (ensure-list key)) (define-key map (vector (cons cua--rectangle-modifier-key key)) fct)) (defun cua--self-insert-char-p (def) |