[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: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el |
Date: |
Fri, 26 Apr 2002 18:33:23 -0400 |
Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.150 emacs/lisp/cus-edit.el:1.151
*** emacs/lisp/cus-edit.el:1.150 Fri Apr 26 18:31:57 2002
--- emacs/lisp/cus-edit.el Fri Apr 26 18:33:23 2002
***************
*** 1065,1086 ****
Interactively, when point is on text which has a face specified,
suggest to customized that face, if it's customizable."
(interactive
! (list
! (let ((face (get-char-property (point) 'face)))
! (if (and face (symbolp face))
! (completing-read (format "Customize face (default `%s'): " face)
! obarray 'custom-facep t nil nil (symbol-name face))
! (completing-read "Customize face (default all): "
! obarray 'custom-facep t)))))
! (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
! ()
! (if (stringp symbol)
! (setq symbol (intern symbol)))
! (unless (symbolp symbol)
! (error "Should be a symbol %S" symbol))
(custom-buffer-create-other-window
! (list (list symbol 'custom-face))
! (format "*Customize Face: %s*" (custom-unlispify-tag-name symbol)))))
;;;###autoload
(defun customize-customized ()
--- 1065,1089 ----
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 ""))
! (setq face (face-list)))
! (if (and (listp face) (null (cdr face)))
! (setq face (car face)))
! (if (listp face)
! (custom-buffer-create-other-window
! (custom-sort-items
! (mapcar (lambda (s)
! (list s 'custom-face))
! face)
! t nil)
! "*Customize Faces*")
! (unless (facep face)
! (error "Invalid face %S"))
(custom-buffer-create-other-window
! (list (list face 'custom-face))
! (format "*Customize Face: %s*"
! (custom-unlispify-tag-name face)))))
;;;###autoload
(defun customize-customized ()
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Miles Bader, 2002/04/19
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Gerd Moellmann, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Miles Bader, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Miles Bader, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Richard M. Stallman, 2002/04/26
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el,
Richard M. Stallman <=
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Richard M. Stallman, 2002/04/26
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el, Richard M. Stallman, 2002/04/27