(blink-cursor-end): Only ignore the error we care about.

(blink-cursor-mode): Use blink-cursor-end to simplify the code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ecc660373fb27273e64105dd6be0db54cbdb6178..22137ebccf28ec9eb307d949f4bbfc7a8b9b7937 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,7 +2,12 @@
 
        * progmodes/gdb-ui.el (gdb-frame-memory-buffer): Make frame
        a bit wider and remove fringes to fit initial output on line.
-       
+
+2006-08-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * frame.el (blink-cursor-end): Only ignore the error we care about.
+       (blink-cursor-mode): Use blink-cursor-end to simplify the code.
+
 2006-08-21  Richard Stallman  <rms@gnu.org>
 
        * whitespace.el (whitespace-cleanup): Doc fix.
@@ -16,8 +21,8 @@
        (rcirc-mode): Preserve the value of `rcirc-urls' across
        connections.  Setup scroll function.
        (rcirc-scroll-to-bottom): New function.
-       (rcirc-print): Use nick syntax around regexp work.  Notice
-       dim-nicks speaking only if they say our nick.
+       (rcirc-print): Use nick syntax around regexp work.
+       Notice dim-nicks speaking only if they say our nick.
        (rcirc-update-activity-string): Do not show the modeline indicator
        if there are no live rcirc processes.
        (rcirc-cmd-ignore): Ignore case.

diff --git a/lisp/frame.el b/lisp/frame.el
index 873cec6c783a65399054a201ba7c85708e0c0b6e..368cab3aed7a7a0f4188ff86aa4317aa1d63059d 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1253,38 +1253,6 @@ The function `blink-cursor-start' is called when the timer fires.")
 This timer calls `blink-cursor-timer-function' every
 `blink-cursor-interval' seconds.")
 
-(define-minor-mode blink-cursor-mode
-  "Toggle blinking cursor mode.
-With a numeric argument, turn blinking cursor mode on iff ARG is positive.
-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 system-type 'ms-dos)
-                      (not (memq window-system '(x w32 mac)))))
-  :initialize 'custom-initialize-safe-default
-  :group 'cursor
-  :global t
-  (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer))
-  (if blink-cursor-timer (cancel-timer blink-cursor-timer))
-  (setq blink-cursor-idle-timer nil
-       blink-cursor-timer nil)
-  (if blink-cursor-mode
-      (progn
-       ;; Hide the cursor.
-       ;;(internal-show-cursor nil nil)
-       (setq blink-cursor-idle-timer
-             (run-with-idle-timer blink-cursor-delay
-                                  blink-cursor-delay
-                                  'blink-cursor-start)))
-    (internal-show-cursor nil t)))
-
-(define-obsolete-variable-alias 'blink-cursor 'blink-cursor-mode "22.1")
-
 (defun blink-cursor-start ()
   "Timer function called from the timer `blink-cursor-idle-timer'.
 This starts the timer `blink-cursor-timer', which makes the cursor blink
@@ -1310,11 +1278,38 @@ When run, it cancels the timer `blink-cursor-timer' and removes
 itself as a pre-command hook."
   (remove-hook 'pre-command-hook 'blink-cursor-end)
   (internal-show-cursor nil t)
-  (condition-case nil
-      (cancel-timer blink-cursor-timer)
-    (error nil))
-  (setq blink-cursor-timer nil))
+  (when blink-cursor-timer
+    (cancel-timer blink-cursor-timer)
+    (setq blink-cursor-timer nil)))
+
+(define-minor-mode blink-cursor-mode
+  "Toggle blinking cursor mode.
+With a numeric argument, turn blinking cursor mode on iff ARG is positive.
+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 system-type 'ms-dos)
+                      (not (memq window-system '(x w32 mac)))))
+  :initialize 'custom-initialize-safe-default
+  :group 'cursor
+  :global t
+  (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer))
+  (setq blink-cursor-idle-timer nil)
+  (blink-cursor-end)
+  (when blink-cursor-mode
+    ;; Hide the cursor.
+    ;;(internal-show-cursor nil nil)
+    (setq blink-cursor-idle-timer
+          (run-with-idle-timer blink-cursor-delay
+                               blink-cursor-delay
+                               'blink-cursor-start))))
 
+(define-obsolete-variable-alias 'blink-cursor 'blink-cursor-mode "22.1")
 \f
 ;; Hourglass pointer