From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: no-spam@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: Enhancements to options menu (was Re: Reveal mode) Date: 07 May 2002 01:12:29 +0200 Sender: emacs-devel-admin@gnu.org Message-ID: <5xznzcan1e.fsf@kfs2.cua.dk> References: <200204302119.g3ULJAP06813@aztec.santafe.edu> <5xznzj30j0.fsf_-_@kfs2.cua.dk> <200205031825.g43IP3e00651@aztec.santafe.edu> <5xwuuk6b4q.fsf@kfs2.cua.dk> <200205041501.g44F1vm01192@aztec.santafe.edu> <5xvga3ah36.fsf@kfs2.cua.dk> <200205051745.g45Hjwx01793@aztec.santafe.edu> <5xu1pmkzcb.fsf@kfs2.cua.dk> <200205061932.g46JWv102302@aztec.santafe.edu> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1020731526 28603 127.0.0.1 (7 May 2002 00:32:06 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 7 May 2002 00:32:06 +0000 (UTC) Cc: storm@cua.dk, Pavel@Janik.cz, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 174sti-0007RE-00 for ; Tue, 07 May 2002 02:32:06 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 174t16-0005LI-00 for ; Tue, 07 May 2002 02:39:44 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 174stf-0000to-00; Mon, 06 May 2002 20:32:03 -0400 Original-Received: from fepc.post.tele.dk ([195.41.46.147]) by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian)) id 174qhx-0006IS-00; Mon, 06 May 2002 18:11:50 -0400 Original-Received: from kfs2.cua.dk.cua.dk ([80.62.38.68]) by fepC.post.tele.dk (InterMail vM.4.01.03.23 201-229-121-123-20010418) with SMTP id <20020506221143.XSSD11508.fepC.post.tele.dk@kfs2.cua.dk.cua.dk>; Tue, 7 May 2002 00:11:43 +0200 Original-To: rms@gnu.org In-Reply-To: <200205061932.g46JWv102302@aztec.santafe.edu> Original-Lines: 112 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:3643 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:3643 Richard Stallman writes: > > I don't entirely understand this suggestion: > > > > [x] Abbreviation mode [advanced] > > [x] Revert mode [advanced] > > > > What does "advanced" mean here? > > > > > > It would enter the corresponding custiomize-group. > > How is that different from what M-x customize-browse does? Try this "dummy" preferences code to see what I'm suggesting: (require 'wid-edit) (require 'cus-edit) (defun preferences () "Create a buffer containing popular customization options." (interactive) (let ((name "*Preferences*")) (kill-buffer (get-buffer-create name)) (pop-to-buffer (get-buffer-create name)) (custom-mode) (buffer-disable-undo) (widget-insert "Display Options\n\n") (widget-create 'checkbox) (widget-insert " Auto Reveal hidden text\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Show trailing Whitespace\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Indicate Empty Lines\t\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Display Image files\t\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Highlight current line\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Blinking cursor\t\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Auto resize minibuffer\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-insert "\nEditing Options\n\n") (widget-create 'checkbox) (widget-insert " Auto Expand Abbreviations\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Auto Revert changed files\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Auto Save files\t\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n") (widget-create 'checkbox) (widget-insert " Auto Expand Abbreviations\t") (widget-create 'push-button :tag "Advanced") (widget-insert "\n\n") (widget-insert " ") (widget-create 'push-button :tag "Save" :help-echo "\ Make your editing in this buffer take effect for future Emacs sessions." :action (lambda (widget &optional event) (Custom-save))) (widget-insert " ") (widget-create 'push-button :tag "Cancel" :help-echo (lambda (&rest ignore) (cond ((eq custom-buffer-done-function 'custom-bury-buffer) "Bury this buffer") ((eq custom-buffer-done-function 'kill-buffer) "Kill this buffer") (t "Finish with this buffer"))) :action #'Custom-buffer-done) (widget-insert "\n\n") (widget-setup) (buffer-enable-undo) (goto-char (point-min))))