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

*** empty log message ***

parent 4b5ca01b
......@@ -26,6 +26,7 @@
;;;###autoload
(setq disabled-command-hook 'disabled-command-hook)
;;;###autoload
(defun disabled-command-hook (&rest ignore)
(let (char)
(save-window-excursion
......
......@@ -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
......
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