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 | ca3bc5208f4dc23533b0563c08ed4721b4604610 (patch) | |
| tree | 68fff5732db3647b84e952852d95154e73254231 /lisp/emacs-lisp/lucid.el | |
| parent | a45574c05a6afa0fc8765d1705884959b1f11c7e (diff) | |
| download | emacs-ca3bc5208f4dc23533b0563c08ed4721b4604610.tar.gz | |
(set-keymap-parent): Fix bug in case of empty keymap.
(switch-to-other-buffer): Fix one-off error.
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) |