projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(remove_char_attribute): New function.
[chise/xemacs-chise.git-]
/
lisp
/
cus-edit.el
diff --git
a/lisp/cus-edit.el
b/lisp/cus-edit.el
index
897dd49
..
734725f
100644
(file)
--- a/
lisp/cus-edit.el
+++ b/
lisp/cus-edit.el
@@
-1,6
+1,6
@@
;;; cus-edit.el --- Tools for customizating Emacs and Lisp packages.
;;
;;; cus-edit.el --- Tools for customizating Emacs and Lisp packages.
;;
-;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 2000 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org>
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org>
@@
-1033,7
+1033,6
@@
This works by calling the function specified by
(widget-insert "\nOperate on everything in this buffer:\n ")
(widget-create 'push-button
:tag "Set"
(widget-insert "\nOperate on everything in this buffer:\n ")
(widget-create 'push-button
:tag "Set"
- :tag-glyph '("set-up" "set-down")
:help-echo "\
Make your editing in this buffer take effect for this session"
:action (lambda (widget &optional event)
:help-echo "\
Make your editing in this buffer take effect for this session"
:action (lambda (widget &optional event)
@@
-1041,7
+1040,6
@@
Make your editing in this buffer take effect for this session"
(widget-insert " ")
(widget-create 'push-button
:tag "Save"
(widget-insert " ")
(widget-create 'push-button
:tag "Save"
- :tag-glyph '("save-up" "save-down")
:help-echo "\
Make your editing in this buffer take effect for future Emacs sessions"
:action (lambda (widget &optional event)
:help-echo "\
Make your editing in this buffer take effect for future Emacs sessions"
:action (lambda (widget &optional event)
@@
-1077,7
+1075,6
@@
Reset all values in this buffer to their standard settings"
(widget-insert " ")
(widget-create 'push-button
:tag "Done"
(widget-insert " ")
(widget-create 'push-button
:tag "Done"
- :tag-glyph '("done-up" "done-down")
:help-echo "Remove the buffer"
:action (lambda (widget &optional event)
(Custom-buffer-done)))
:help-echo "Remove the buffer"
:action (lambda (widget &optional event)
(Custom-buffer-done)))
@@
-2275,7
+2272,7
@@
Optional EVENT is the location for the menu."
:format "%t: %v"
:tag "Attributes"
:extra-offset 12
:format "%t: %v"
:tag "Attributes"
:extra-offset 12
- :button-args '(:help-echo "Control whether this attribute have any effect")
+ :button-args '(:help-echo "Control whether this attribute has any effect")
:args (mapcar (lambda (att)
(list 'group
:inline t
:args (mapcar (lambda (att)
(list 'group
:inline t
@@
-2759,7
+2756,7
@@
Optional EVENT is the location for the menu."
:tag "Hook")
(defun custom-hook-convert-widget (widget)
:tag "Hook")
(defun custom-hook-convert-widget (widget)
- ;; Handle `:custom-options'.
+ ;; Handle `:options'.
(let* ((options (widget-get widget :options))
(other `(editable-list :inline t
:entry-format "%i %d%v"
(let* ((options (widget-get widget :options))
(other `(editable-list :inline t
:entry-format "%i %d%v"