Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents c53a95d3c46d
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.65 7 ;; Version: 1.68
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `custom.el'. 12 ;; See `custom.el'.
515 (kill-buffer (get-buffer-create "*Customization*")) 515 (kill-buffer (get-buffer-create "*Customization*"))
516 (switch-to-buffer (get-buffer-create "*Customization*")) 516 (switch-to-buffer (get-buffer-create "*Customization*"))
517 (custom-mode) 517 (custom-mode)
518 (widget-insert "This is a customization buffer. 518 (widget-insert "This is a customization buffer.
519 Push RET or click mouse-2 on the word ") 519 Push RET or click mouse-2 on the word ")
520 ;; (put-text-property 1 2 'start-open nil)
520 (widget-create 'info-link 521 (widget-create 'info-link
521 :tag "help" 522 :tag "help"
522 :help-echo "Read the online help." 523 :help-echo "Read the online help."
523 "(custom)The Customization Buffer") 524 "(custom)The Customization Buffer")
524 (widget-insert " for more information.\n\n") 525 (widget-insert " for more information.\n\n")
1761 (princ " t)")))))) 1762 (princ " t)"))))))
1762 (princ ")") 1763 (princ ")")
1763 (unless (eolp) 1764 (unless (eolp)
1764 (princ "\n"))))) 1765 (princ "\n")))))
1765 1766
1767 ;;;###autoload
1766 (defun custom-save-all () 1768 (defun custom-save-all ()
1767 "Save all customizations in `custom-file'." 1769 "Save all customizations in `custom-file'."
1768 (custom-save-variables) 1770 (custom-save-variables)
1769 (custom-save-faces) 1771 (custom-save-faces)
1770 (save-excursion 1772 (save-excursion