unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Putting blink-cursor-mode in Options menu.
@ 2005-03-01  0:34 Luc Teirlinck
  2005-03-01  8:24 ` Kim F. Storm
                   ` (3 more replies)
  0 siblings, 4 replies; 56+ messages in thread
From: Luc Teirlinck @ 2005-03-01  0:34 UTC (permalink / raw)


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)"))
+ 
  \f
  ;; The "Tools" menu items
  
============================================================

^ permalink raw reply	[flat|nested] 56+ messages in thread

end of thread, other threads:[~2005-03-08  8:21 UTC | newest]

Thread overview: 56+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-03-01  0:34 Putting blink-cursor-mode in Options menu Luc Teirlinck
2005-03-01  8:24 ` Kim F. Storm
2005-03-01 12:18 ` Robert J. Chassell
2005-03-01 14:11   ` Chong Yidong
2005-03-01 14:27     ` David Kastrup
2005-03-01 16:46       ` Luc Teirlinck
2005-03-01 13:28 ` David Kastrup
2005-03-01 16:08   ` Luc Teirlinck
2005-03-01 16:58     ` David Kastrup
2005-03-01 17:26       ` Luc Teirlinck
2005-03-01 18:47         ` Jason Rumney
2005-03-01 19:02           ` Luc Teirlinck
2005-03-01 19:24           ` Robert J. Chassell
2005-03-01 20:16             ` Jason Rumney
2005-03-02 13:32               ` Robert J. Chassell
2005-03-02 18:41                 ` Eli Zaretskii
2005-03-01 19:44           ` David Kastrup
2005-03-02  0:21             ` Luc Teirlinck
2005-03-02  1:10               ` David Kastrup
2005-03-01 20:48           ` Eli Zaretskii
2005-03-03  4:10           ` Luc Teirlinck
2005-03-03  8:57             ` Jason Rumney
2005-03-03 20:57             ` Richard Stallman
2005-03-03 21:35               ` David Kastrup
2005-03-03 22:42               ` Lennart Borgman
2005-03-01 19:27         ` David Kastrup
2005-03-01 21:26           ` Kim F. Storm
2005-03-02  0:29           ` Luc Teirlinck
2005-03-02 13:44             ` Robert J. Chassell
2005-03-02 17:56               ` David Kastrup
2005-03-03  1:38               ` Miles Bader
2005-03-03  4:32                 ` Luc Teirlinck
2005-03-03  2:27     ` Richard Stallman
2005-03-03 12:26       ` Andreas Schwab
2005-03-01 16:16   ` Luc Teirlinck
2005-03-02 11:22 ` Richard Stallman
2005-03-02 13:04   ` David Kastrup
2005-03-02 14:30     ` Kim F. Storm
2005-03-02 16:23       ` Robert J. Chassell
2005-03-02 17:53         ` David Kastrup
2005-03-02 22:19         ` Kim F. Storm
2005-03-03  3:34           ` Luc Teirlinck
2005-03-03 20:57         ` Richard Stallman
2005-03-02 13:35   ` Jason Rumney
2005-03-03 20:57     ` Richard Stallman
2005-03-02 23:34   ` Juri Linkov
2005-03-03 20:57     ` Richard Stallman
2005-03-03 19:45   ` Per Abrahamsen
2005-03-04 23:44     ` Richard Stallman
2005-03-05  1:20       ` Luc Teirlinck
2005-03-06 21:11       ` Kim F. Storm
2005-03-06 22:44         ` Andreas Schwab
2005-03-06 23:00         ` Miles Bader
2005-03-08  2:51         ` Richard Stallman
2005-03-08  3:32           ` Luc Teirlinck
2005-03-08  8:21           ` Kim F. Storm

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).