Mercurial > emacs

changeset 9991:8deb32278622

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-keymap-parent): Fix bug in case of empty keymap. (switch-to-other-buffer): Fix one-off error.
author Richard M. Stallman <rms@gnu.org>
date Thu, 17 Nov 1994 16:01:49 +0000
parents 6a72b1f71ee4
children 5666a2d5b2bc
files lisp/emacs-lisp/lucid.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)