Mercurial > emacs

changeset 282:341f07a24b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 23 May 1991 00:42:33 +0000
parents 38eb4a29516b
children 78fbe3043a5d
files lisp/novice.el lisp/term/x-win.el
diffstat 2 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/novice.el	Thu May 23 00:29:13 1991 +0000
+++ b/lisp/novice.el	Thu May 23 00:42:33 1991 +0000
@@ -26,6 +26,7 @@
 ;;;###autoload
 (setq disabled-command-hook 'disabled-command-hook)
 
+;;;###autoload
 (defun disabled-command-hook (&rest ignore)
   (let (char)
     (save-window-excursion
--- a/lisp/term/x-win.el	Thu May 23 00:29:13 1991 +0000
+++ b/lisp/term/x-win.el	Thu May 23 00:42:33 1991 +0000
@@ -196,10 +196,10 @@
   (interactive)
   (mapcar (function
 	   (lambda (key-resname-default)
-	     (let* ((key (car key-resname-default))
+	     (let* ((key (nth 0 key-resname-default))
 		    (tail (assq key screen-default-alist))
 		    (value
-		     (or (x-get-resource (nth 2 key-resname-default))
+		     (or (x-get-resource (nth 1 key-resname-default))
 			 (nth 3 key-resname-default))))
 	       (if tail (setcdr tail value)
 		 (setq screen-default-alist