[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el |
Date: |
Fri, 28 May 2004 15:11:31 -0400 |
Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.192 emacs/lisp/cus-edit.el:1.193
*** emacs/lisp/cus-edit.el:1.192 Sat May 1 03:30:24 2004
--- emacs/lisp/cus-edit.el Fri May 28 18:59:01 2004
***************
*** 1012,1022 ****
;;;###autoload
(defun customize-face (&optional face)
! "Customize SYMBOL, which should be a face name or nil.
! If SYMBOL is nil, customize all faces.
Interactively, when point is on text which has a face specified,
! suggest to customized that face, if it's customizable."
(interactive
(list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil ""))
--- 1012,1022 ----
;;;###autoload
(defun customize-face (&optional face)
! "Customize FACE, which should be a face name or nil.
! If FACE is nil, customize all faces.
Interactively, when point is on text which has a face specified,
! suggest to customize that face, if it's customizable."
(interactive
(list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil ""))
***************
*** 1038,1047 ****
;;;###autoload
(defun customize-face-other-window (&optional face)
! "Show customization buffer for face SYMBOL in other window.
Interactively, when point is on text which has a face specified,
! suggest to customized that face, if it's customizable."
(interactive
(list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil ""))
--- 1038,1047 ----
;;;###autoload
(defun customize-face-other-window (&optional face)
! "Show customization buffer for face FACE in other window.
Interactively, when point is on text which has a face specified,
! suggest to customize that face, if it's customizable."
(interactive
(list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil ""))
***************
*** 1093,1099 ****
(get symbol 'standard-value))))
(when (and cval ;Declared with defcustom.
(default-boundp symbol) ;Has a value.
! (not (equal (eval (car cval))
;; Which does not match customize.
(default-value symbol))))
(push (list symbol 'custom-variable) found)))))
--- 1093,1099 ----
(get symbol 'standard-value))))
(when (and cval ;Declared with defcustom.
(default-boundp symbol) ;Has a value.
! (not (equal (eval (car cval))
;; Which does not match customize.
(default-value symbol))))
(push (list symbol 'custom-variable) found)))))
***************
*** 1876,1882 ****
(custom-load-symbol (widget-value widget)))
(defun custom-unloaded-symbol-p (symbol)
! "Return non-nil if the dependencies of SYMBOL has not yet been loaded."
(let ((found nil)
(loads (get symbol 'custom-loads))
load)
--- 1876,1882 ----
(custom-load-symbol (widget-value widget)))
(defun custom-unloaded-symbol-p (symbol)
! "Return non-nil if the dependencies of SYMBOL have not yet been loaded."
(let ((found nil)
(loads (get symbol 'custom-loads))
load)
***************
*** 1894,1900 ****
found))
(defun custom-unloaded-widget-p (widget)
! "Return non-nil if the dependencies of WIDGET has not yet been loaded."
(custom-unloaded-symbol-p (widget-value widget)))
(defun custom-toggle-hide (widget)
--- 1894,1900 ----
found))
(defun custom-unloaded-widget-p (widget)
! "Return non-nil if the dependencies of WIDGET have not yet been loaded."
(custom-unloaded-symbol-p (widget-value widget)))
(defun custom-toggle-hide (widget)
***************
*** 2646,2652 ****
(widget-setup)))))
(defun custom-face-edit-delete (widget)
! "Remove widget from the buffer."
(let ((inactive (widget-get widget :inactive))
(inhibit-read-only t)
(inhibit-modification-hooks t))
--- 2646,2652 ----
(widget-setup)))))
(defun custom-face-edit-delete (widget)
! "Remove WIDGET from the buffer."
(let ((inactive (widget-get widget :inactive))
(inhibit-read-only t)
(inhibit-modification-hooks t))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el,
Juanma Barranquero <=