diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-17 16:01:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-17 16:01:49 +0000 |
| commit | 7c7daa220d9fdd567211537f383861996308249a (patch) | |
| tree | 5e2e430ce04faea612d5f380e526111b73d4a215 /lisp/emacs-lisp | |
| parent | a9f32bf3e1eb1aabb815c5a285f3c10f7b3acdac (diff) | |
| download | emacs-7c7daa220d9fdd567211537f383861996308249a.tar.gz emacs-7c7daa220d9fdd567211537f383861996308249a.tar.bz2 emacs-7c7daa220d9fdd567211537f383861996308249a.zip | |
(set-keymap-parent): Fix bug in case of empty keymap.
(switch-to-other-buffer): Fix one-off error.
Diffstat (limited to 'lisp/emacs-lisp')
| -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) |