mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

2003-01-29 Didier Verna <didier@xemacs.org>

Browse Source 
* cus-edit.el (custom-save-variables): also save non theme'd ones.
	* cus-edit.el (custom-save-faces): ditto.
This commit is contained in:
John Paul Wallington 2003-01-29 21:44:18 +00:00
parent 0e467b97a5
commit ee1f522d4e
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/cus-edit.el
View File

@ -3709,7 +3709,8 @@ or (if there were none) at the end of the buffer."
(when (or (and spec
(eq (nth 0 spec) 'user)
(eq (nth 1 spec) 'set))
comment)
comment
(and (null spec) (get symbol 'saved-value)))
(unless (bolp)
(princ "\n"))
(princ " '(")
@ -3779,7 +3780,8 @@ or (if there were none) at the end of the buffer."
(when (or (and theme-spec
(eq (nth 0 theme-spec) 'user)
(eq (nth 1 theme-spec) 'set))
comment)
comment
(and (null theme-spec) (get symbol 'saved-face)))
;; Don't print default face here.
(unless (bolp)
(princ "\n"))