mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-05-23 00:42:33 +00:00
parent 4b5ca01b56
commit 1c5998956d
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/novice.el
View File

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

4
lisp/term/x-win.el
View File

@ -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