From ca3bc5208f4dc23533b0563c08ed4721b4604610 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Nov 1994 16:01:49 +0000 Subject: (set-keymap-parent): Fix bug in case of empty keymap. (switch-to-other-buffer): Fix one-off error. --- lisp/emacs-lisp/lucid.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/lucid.el') 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) -- cgit v1.2.1