# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 674959353 0
# Node ID 341f07a24b10e79a82772aab57571889cada4e41
# Parent  38eb4a29516b62599b7ba164e3e309acfcf23aca
*** empty log message ***

diff -r 38eb4a29516b -r 341f07a24b10 lisp/novice.el
--- 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
diff -r 38eb4a29516b -r 341f07a24b10 lisp/term/x-win.el
--- 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