*** empty log message ***

lisp/novice.el

@@ -26,6 +26,7 @@
 ;;;###autoload
 (setq disabled-command-hook 'disabled-command-hook)
 
+;;;###autoload
 (defun disabled-command-hook (&rest ignore)
   (let (char)
     (save-window-excursion

lisp/term/x-win.el

@@ -196,10 +196,10 @@ are left in ARGS."
   (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