procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* term/ns-win.el (ns-cursor-blink-rate, ns-cursor-blink-mode): Remove.

Browse source
This commit is contained in:
Adrian Robert 2008-08-21 02:31:45 +00:00
parent a8d207a917
commit 795d93585c
2 changed files with 5 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

27
lisp/term/ns-win.el
View file

@ -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 @@ Lines are highlighted according to `ns-input-line'."
(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 @@ unless the current buffer is a scratch buffer.")
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.