mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(set-keymap-parent): Fix bug in case of empty keymap.

Browse Source 
(switch-to-other-buffer): Fix one-off error.
This commit is contained in:
Richard M. Stallman 1994-11-17 16:01:49 +00:00
parent a9f32bf3e1
commit 7c7daa220d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/lucid.el
View File

@ -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)