diff options
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 3e49309cb4a..c248348d954 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -46,7 +46,7 @@ tail)) (defun set-keymap-parent (keymap new-parent) - (let ((tail (cdr keymap))) + (let ((tail keymap)) (while (and tail (cdr tail) (not (eq (car (cdr tail)) 'keymap))) (setq tail (cdr tail))) (if tail @@ -118,7 +118,7 @@ bottom of the buffer stack." (bury-buffer (current-buffer))) (switch-to-buffer (if (<= arg 1) (other-buffer (current-buffer)) - (nth (1+ arg) + (nth arg (apply 'nconc (mapcar (lambda (buf) |