Commit 1c599895 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 4b5ca01b
...@@ -26,6 +26,7 @@ ...@@ -26,6 +26,7 @@
;;;###autoload ;;;###autoload
(setq disabled-command-hook 'disabled-command-hook) (setq disabled-command-hook 'disabled-command-hook)
;;;###autoload
(defun disabled-command-hook (&rest ignore) (defun disabled-command-hook (&rest ignore)
(let (char) (let (char)
(save-window-excursion (save-window-excursion
......
...@@ -196,10 +196,10 @@ are left in ARGS." ...@@ -196,10 +196,10 @@ are left in ARGS."
(interactive) (interactive)
(mapcar (function (mapcar (function
(lambda (key-resname-default) (lambda (key-resname-default)
(let* ((key (car key-resname-default)) (let* ((key (nth 0 key-resname-default))
(tail (assq key screen-default-alist)) (tail (assq key screen-default-alist))
(value (value
(or (x-get-resource (nth 2 key-resname-default)) (or (x-get-resource (nth 1 key-resname-default))
(nth 3 key-resname-default)))) (nth 3 key-resname-default))))
(if tail (setcdr tail value) (if tail (setcdr tail value)
(setq screen-default-alist (setq screen-default-alist
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment