mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-27 07:37:33 +00:00
(custom-face-display-set): Define if not defined.
(custom-buffer-create-internal): Refer to the Emacs manual.
This commit is contained in:
parent
7a8630dac3
commit
eedc233610
@ -37,6 +37,9 @@
|
|||||||
(require 'easymenu)
|
(require 'easymenu)
|
||||||
(eval-when-compile (require 'cl))
|
(eval-when-compile (require 'cl))
|
||||||
|
|
||||||
|
(or (fboundp 'custom-face-display-set)
|
||||||
|
(defalias 'custom-face-display-set 'face-spec-set))
|
||||||
|
|
||||||
(condition-case nil
|
(condition-case nil
|
||||||
(require 'cus-load)
|
(require 'cus-load)
|
||||||
(error nil))
|
(error nil))
|
||||||
@ -841,7 +844,7 @@ Push RET or click mouse-2 on the word ")
|
|||||||
(widget-create 'info-link
|
(widget-create 'info-link
|
||||||
:tag "help"
|
:tag "help"
|
||||||
:help-echo "Read the online help."
|
:help-echo "Read the online help."
|
||||||
"(custom)The Customization Buffer")
|
"(emacs)Easy Customization")
|
||||||
(widget-insert " for more information.\n\n")
|
(widget-insert " for more information.\n\n")
|
||||||
(setq custom-options
|
(setq custom-options
|
||||||
(if (= (length options) 1)
|
(if (= (length options) 1)
|
||||||
|
Loading…
Reference in New Issue
Block a user