XEmacs 21.2.25 "Hephaestus".

[chise/xemacs-chise.git.1] / lisp / cus-edit.el

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 5851776..983bace 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
-;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
+;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org>
 ;; Keywords: help, faces
 ;; Version: 1.9960-x
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
@@ -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"
-                :tag-glyph '("set-up" "set-down")
                 :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"
-                :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)
@@ -1077,7 +1075,6 @@ Reset all values in this buffer to their standard settings"
   (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)))
@@ -3280,7 +3277,7 @@ Leave point at the location of the call, or after the last expression."
                    (when (or (and spec (eq (car spec) 'user)
                               (eq (second spec) 'set)) comment)
                      (princ "\n '(")
-                     (princ symbol)
+                     (prin1 symbol)
                      (princ " ")
                      ;; This comment stuf is in the way ####
                      ;; Is (eq (third spec) (car saved-value)) ????
@@ -3313,7 +3310,7 @@ Leave point at the location of the call, or after the last expression."
               (eq (car theme-spec) 'user)
               (eq (second theme-spec) 'set)) comment)
       (princ "\n '(")
-      (princ symbol)
+      (prin1 symbol)
       (princ " ")
       (prin1 (get symbol 'saved-face))
       (if (or comment now)
@@ -3358,7 +3355,7 @@ Leave point at the location of the call, or after the last expression."
                        (princ "(")
                        (princ (quote ,setter))
                        (princ "\n '(")
-                       (princ object)
+                       (prin1 object)
                        (princ " ")
                        (prin1 (third spec))
                        (princ ")")))))))