Mercurial > emacs
changeset 97583:2b25a461fcb0
* term/ns-win.el (ns-cursor-blink-rate, ns-cursor-blink-mode): Remove.
| author | Adrian Robert <Adrian.B.Robert@gmail.com> |
|---|---|
| date | Thu, 21 Aug 2008 02:31:45 +0000 |
| parents | fdc98979ca2b |
| children | 06f7d5858c5a |
| files | lisp/ChangeLog lisp/term/ns-win.el |
| diffstat | 2 files changed, 5 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 20 23:06:30 2008 +0000 +++ b/lisp/ChangeLog Thu Aug 21 02:31:45 2008 +0000 @@ -1,3 +1,8 @@ +2008-08-20 David Reitter <david.reitter@gmail.com> + + * term/ns-win.el (ns-cursor-blink-rate, ns-cursor-blink-mode): Remove. + Patch applied by Adrian Robert. + 2008-08-20 Kevin Ryde <user42@zip.com.au> * textmodes/nroff-mode.el (nroff-mode): Avoid auto-filling on
--- a/lisp/term/ns-win.el Wed Aug 20 23:06:30 2008 +0000 +++ b/lisp/term/ns-win.el Thu Aug 21 02:31:45 2008 +0000 @@ -59,7 +59,6 @@ ;; nsterm.m (defvar ns-version-string) (defvar ns-expand-space) -(defvar ns-cursor-blink-rate) (defvar ns-alternate-modifier) ;;;; Command line argument handling. @@ -995,10 +994,6 @@ (ns-set-resource nil "CommandModifier" (symbol-name ns-command-modifier)) (ns-set-resource nil "ControlModifier" (symbol-name ns-control-modifier)) (ns-set-resource nil "FunctionModifier" (symbol-name ns-function-modifier)) - (ns-set-resource nil "CursorBlinkRate" - (if ns-cursor-blink-rate - (number-to-string ns-cursor-blink-rate) - "NO")) (ns-set-resource nil "ExpandSpace" (if ns-expand-space (number-to-string ns-expand-space) @@ -1228,28 +1223,6 @@ 0 1)) )) (if (not tool-bar-mode) (tool-bar-mode t))) -(defvar ns-cursor-blink-mode) ; nsterm.m - -;; Redefine from frame.el. -(define-minor-mode blink-cursor-mode - "Toggle blinking cursor mode. -With a numeric argument, turn blinking cursor mode on if ARG is positive, -otherwise turn it off. When blinking cursor mode is enabled, the -cursor of the selected window blinks. - -Note that this command is effective only when Emacs -displays through a window system, because then Emacs does its own -cursor display. On a text-only terminal, this is not implemented." - :init-value (not (or noninteractive - no-blinking-cursor - (eq ns-cursor-blink-rate nil))) - :initialize 'custom-initialize-safe-default - :group 'cursor - :global t - (if blink-cursor-mode - (setq ns-cursor-blink-mode t) - (setq ns-cursor-blink-mode nil))) - ;;;; Dialog-related functions.