Commit 7c7daa22 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(switch-to-other-buffer): Fix one-off error.
parent a9f32bf3
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment