From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Putting blink-cursor-mode in Options menu. Date: Mon, 28 Feb 2005 18:34:04 -0600 (CST) Message-ID: <200503010034.j210Y4k13181@raven.dms.auburn.edu> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1109637309 30204 80.91.229.2 (1 Mar 2005 00:35:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 1 Mar 2005 00:35:09 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Mar 01 01:35:09 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1D5vLj-0003kd-Ax for ged-emacs-devel@m.gmane.org; Tue, 01 Mar 2005 01:34:55 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D5ve8-0000Zu-Fl for ged-emacs-devel@m.gmane.org; Mon, 28 Feb 2005 19:53:56 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1D5vdK-0000Vu-WC for emacs-devel@gnu.org; Mon, 28 Feb 2005 19:53:07 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1D5vdG-0000RR-3M for emacs-devel@gnu.org; Mon, 28 Feb 2005 19:53:02 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D5vdF-0000Qi-Q5 for emacs-devel@gnu.org; Mon, 28 Feb 2005 19:53:01 -0500 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.34) id 1D5vNJ-0001RI-85 for emacs-devel@gnu.org; Mon, 28 Feb 2005 19:36:33 -0500 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.10/8.12.10) with ESMTP id j210aQ9N029108 for ; Mon, 28 Feb 2005 18:36:26 -0600 (CST) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.7p1+Sun/8.11.7) id j210Y4k13181; Mon, 28 Feb 2005 18:34:04 -0600 (CST) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: emacs-devel@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: main.gmane.org gmane.emacs.devel:33958 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:33958 To some people, for instance me, having to watch a blinking cursor produces real discomfort. I do not know what percentage of people react the same way to it, but I know from other people's reactions that I am not the only person like that. Anybody just starting to learn Emacs should be able to disable this torture instrument without any need to read prior documentation and do so very quickly. (I can not stand the blinking cursor for more than a couple of seconds.) I believe that the first place a desperate novice is likely to try is the Options menu. Hence, I believe that it needs to be on the Options menu and be very visible there, i.e. on top. The patch below does that. The patch contains a minor, unrelated, doc fix to `menu-bar-make-mm-toggle'. I can install if desired. ===File ~/menu-bar.el-diff================================== *** menu-bar.el 16 Feb 2005 07:59:49 -0600 1.252 --- menu-bar.el 28 Feb 2005 17:29:25 -0600 *************** *** 590,596 **** (defmacro menu-bar-make-mm-toggle (fname doc help &optional props) "Make a menu-item for a global minor mode toggle. FNAME is the minor mode's name (variable and function). ! DOC is the text to use the menu entry. HELP is the text to use for the tooltip. PROPS are additional properties." `'(menu-item ,doc ,fname --- 590,596 ---- (defmacro menu-bar-make-mm-toggle (fname doc help &optional props) "Make a menu-item for a global minor mode toggle. FNAME is the minor mode's name (variable and function). ! DOC is the text to use for the menu entry. HELP is the text to use for the tooltip. PROPS are additional properties." `'(menu-item ,doc ,fname *************** *** 637,643 **** ;; These are set with menu-bar-make-mm-toggle, which does not ;; put on a customized-value property. (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode ! transient-mark-mode global-font-lock-mode)) (and (customize-mark-to-save elt) (setq need-save t))) ;; These are set with `customize-set-variable'. --- 637,644 ---- ;; These are set with menu-bar-make-mm-toggle, which does not ;; put on a customized-value property. (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode ! transient-mark-mode global-font-lock-mode ! blink-cursor-mode)) (and (customize-mark-to-save elt) (setq need-save t))) ;; These are set with `customize-set-variable'. *************** *** 1037,1042 **** --- 1038,1050 ---- "Syntax Highlighting" "Colorize text based on language syntax (Global Font Lock mode)")) + (define-key menu-bar-options-menu [cursor-separator] + '("--")) + (define-key menu-bar-options-menu [blink-cursor-mode] + (menu-bar-make-mm-toggle blink-cursor-mode + "Blinking Cursor" + "Whether the cursor blinks (Blink Cursor mode)")) + ;; The "Tools" menu items ============================================================