[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/custom.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/custom.el |
Date: |
Tue, 04 Feb 2003 06:04:20 -0500 |
Index: emacs/lisp/custom.el
diff -c emacs/lisp/custom.el:1.64 emacs/lisp/custom.el:1.65
*** emacs/lisp/custom.el:1.64 Wed Jan 29 16:45:07 2003
--- emacs/lisp/custom.el Tue Feb 4 06:04:19 2003
***************
*** 191,217 ****
Include an external link after the documentation string for this
item. This is a sentence containing an active field which
references some other documentation.
!
There are three alternatives you can use for LINK-DATA:
!
(custom-manual INFO-NODE)
Link to an Info node; INFO-NODE is a string which specifies
the node name, as in \"(emacs)Top\". The link appears as
`[manual]' in the customization buffer.
!
(info-link INFO-NODE)
Like `custom-manual' except that the link appears in the
customization buffer with the Info node name.
!
(url-link URL)
Link to a web page; URL is a string which specifies the URL.
The link appears in the customization buffer as URL.
!
You can specify the text to use in the customization buffer by
adding `:tag NAME' after the first element of the LINK-DATA; for
example, (info-link :tag \"foo\" \"(emacs)Top\") makes a link to the
Emacs manual which appears in the buffer as `foo'.
!
An item can have more than one external link; however, most items
have none at all.
:initialize
--- 191,217 ----
Include an external link after the documentation string for this
item. This is a sentence containing an active field which
references some other documentation.
!
There are three alternatives you can use for LINK-DATA:
!
(custom-manual INFO-NODE)
Link to an Info node; INFO-NODE is a string which specifies
the node name, as in \"(emacs)Top\". The link appears as
`[manual]' in the customization buffer.
!
(info-link INFO-NODE)
Like `custom-manual' except that the link appears in the
customization buffer with the Info node name.
!
(url-link URL)
Link to a web page; URL is a string which specifies the URL.
The link appears in the customization buffer as URL.
!
You can specify the text to use in the customization buffer by
adding `:tag NAME' after the first element of the LINK-DATA; for
example, (info-link :tag \"foo\" \"(emacs)Top\") makes a link to the
Emacs manual which appears in the buffer as `foo'.
!
An item can have more than one external link; however, most items
have none at all.
:initialize
***************
*** 772,778 ****
((default-boundp symbol)
;; Something already set this, overwrite it.
(funcall set symbol (eval value))))
! (error
(message "Error setting %s: %s" symbol data)))
(setq args (cdr args))
(and (or now (default-boundp symbol))
--- 772,778 ----
((default-boundp symbol)
;; Something already set this, overwrite it.
(funcall set symbol (eval value))))
! (error
(message "Error setting %s: %s" symbol data)))
(setq args (cdr args))
(and (or now (default-boundp symbol))
***************
*** 815,821 ****
(defun customize-mark-to-save (symbol)
"Mark SYMBOL for later saving.
! If the default value of SYMBOL is different from the standard value,
set the `saved-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
--- 815,821 ----
(defun customize-mark-to-save (symbol)
"Mark SYMBOL for later saving.
! If the default value of SYMBOL is different from the standard value,
set the `saved-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
***************
*** 844,852 ****
(defun customize-mark-as-set (symbol)
"Mark current value of SYMBOL as being set from customize.
! If the default value of SYMBOL is different from the saved value if any,
or else if it is different from the standard value, set the
! `customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
Return non-nil iff the `customized-value' property actually changed."
--- 844,852 ----
(defun customize-mark-as-set (symbol)
"Mark current value of SYMBOL as being set from customize.
! If the default value of SYMBOL is different from the saved value if any,
or else if it is different from the standard value, set the
! `customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
Return non-nil iff the `customized-value' property actually changed."
***************
*** 856,862 ****
(old (or (get symbol 'saved-value) (get symbol 'standard-value))))
;; Mark default value as set iff different from old value.
(if (or (null old)
! (not (equal value (condition-case nil
(eval (car old))
(error nil)))))
(put symbol 'customized-value (list (custom-quote value)))
--- 856,862 ----
(old (or (get symbol 'saved-value) (get symbol 'standard-value))))
;; Mark default value as set iff different from old value.
(if (or (null old)
! (not (equal value (condition-case nil
(eval (car old))
(error nil)))))
(put symbol 'customized-value (list (custom-quote value)))
- [Emacs-diffs] Changes to emacs/lisp/custom.el,
Juanma Barranquero <=