# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785088109 0
# Node ID 8deb322786226ddfd97cecd817b18ed545f2da8c
# Parent  6a72b1f71ee4d3850fda3a715278db61bd3fab1e
(set-keymap-parent): Fix bug in case of empty keymap.
(switch-to-other-buffer): Fix one-off error.

diff -r 6a72b1f71ee4 -r 8deb32278622 lisp/emacs-lisp/lucid.el
--- a/lisp/emacs-lisp/lucid.el	Thu Nov 17 15:16:50 1994 +0000
+++ b/lisp/emacs-lisp/lucid.el	Thu Nov 17 16:01:49 1994 +0000
@@ -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 @@
       (bury-buffer (current-buffer)))
   (switch-to-buffer
    (if (<= arg 1) (other-buffer (current-buffer))
-     (nth (1+ arg)
+     (nth arg
 	  (apply 'nconc
 		 (mapcar
 		  (lambda (buf)