/[emacs]/emacs/lisp/frame.el
ViewVC logotype

Diff of /emacs/lisp/frame.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.215 by kfstorm, Wed Feb 9 15:50:42 2005 UTC revision 1.216 by teirllm, Sat Feb 12 17:58:37 2005 UTC
# Line 1253  The function `blink-cursor-start' is cal Line 1253  The function `blink-cursor-start' is cal
1253    
1254  (defvar blink-cursor-timer nil  (defvar blink-cursor-timer nil
1255    "Timer started from `blink-cursor-start'.    "Timer started from `blink-cursor-start'.
1256  This timer calls `blink-cursor' every `blink-cursor-interval' seconds.")  This timer calls `blink-cursor-timer-function' every
1257    `blink-cursor-interval' seconds.")
1258    
1259  (defvar blink-cursor-mode nil  ;; The strange sequence below is meant to set both the right temporary
1260    "Non-nil means blinking cursor is active.")  ;; value and the right "standard expression" , according to Custom,
1261    ;; for blink-cursor-mode.  We do not know the standard _evaluated_
1262    ;; value yet, because the standard expression uses values that are not
1263    ;; yet set.  Evaluating it now would yield an error, but we make sure
1264    ;; that it is not evaluated, by ensuring that blink-cursor-mode is set
1265    ;; before the defcustom is evaluated and by using the right :initialize
1266    ;; function.  The correct evaluated standard value will be installed
1267    ;; in startup.el using exactly the same expression as in the defcustom.
1268    (defvar blink-cursor-mode)
1269    (unless (boundp 'blink-cursor-mode) (setq blink-cursor-mode nil))
1270    (defcustom blink-cursor-mode
1271      (not (or noninteractive
1272               emacs-quick-startup
1273               (eq system-type 'ms-dos)
1274               (not (memq window-system '(x w32)))))
1275      "*Non-nil means Blinking Cursor mode is active."
1276      :group 'cursor
1277      :tag "Blinking cursor"
1278      :type 'boolean
1279      :initialize 'custom-initialize-set
1280      :set #'(lambda (symbol value)
1281               (set-default symbol value)
1282               (blink-cursor-mode (or value 0))))
1283    
1284    (defvaralias 'blink-cursor 'blink-cursor-mode)
1285    (make-obsolete-variable 'blink-cursor 'blink-cursor-mode "22.1")
1286    
1287  (defun blink-cursor-mode (arg)  (defun blink-cursor-mode (arg)
1288    "Toggle blinking cursor mode.    "Toggle blinking cursor mode.
# Line 1289  cursor display.  On a text-only terminal Line 1315  cursor display.  On a text-only terminal
1315            (setq blink-cursor-mode t))            (setq blink-cursor-mode t))
1316        (internal-show-cursor nil t))))        (internal-show-cursor nil t))))
1317    
 ;; Note that this is really initialized from startup.el before  
 ;; the init-file is read.  
   
 (defcustom blink-cursor nil  
   "*Non-nil means blinking cursor mode is active."  
   :group 'cursor  
   :tag "Blinking cursor"  
   :type 'boolean  
   :set #'(lambda (symbol value)  
            (set-default symbol value)  
            (blink-cursor-mode (or value 0))))  
   
1318  (defun blink-cursor-start ()  (defun blink-cursor-start ()
1319    "Timer function called from the timer `blink-cursor-idle-timer'.    "Timer function called from the timer `blink-cursor-idle-timer'.
1320  This starts the timer `blink-cursor-timer', which makes the cursor blink  This starts the timer `blink-cursor-timer', which makes the cursor blink

Legend:
Removed from v.1.215  
changed lines
  Added in v.1.216

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26