diff options
| author | Philipp Stephani | 2016-10-02 22:19:08 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2016-10-02 22:21:01 +0200 |
| commit | 2dfa3301690d6da4e278e9e170b16ad385d4d09e (patch) | |
| tree | 632b7cfc925eb5561384f88b7ef3b20dc8d93543 | |
| parent | e0ac09906b68a6d96466fd12faf45a6e94f9ebbf (diff) | |
| download | emacs-2dfa3301690d6da4e278e9e170b16ad385d4d09e.tar.gz emacs-2dfa3301690d6da4e278e9e170b16ad385d4d09e.zip | |
; Fix build by reordering definitions
| -rw-r--r-- | lisp/frame.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index ab3b722d993..1c796be8c11 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -2021,6 +2021,15 @@ widths." | |||
| 2021 | 2021 | ||
| 2022 | ;; Blinking cursor | 2022 | ;; Blinking cursor |
| 2023 | 2023 | ||
| 2024 | (defvar blink-cursor-idle-timer nil | ||
| 2025 | "Timer started after `blink-cursor-delay' seconds of Emacs idle time. | ||
| 2026 | The function `blink-cursor-start' is called when the timer fires.") | ||
| 2027 | |||
| 2028 | (defvar blink-cursor-timer nil | ||
| 2029 | "Timer started from `blink-cursor-start'. | ||
| 2030 | This timer calls `blink-cursor-timer-function' every | ||
| 2031 | `blink-cursor-interval' seconds.") | ||
| 2032 | |||
| 2024 | (defgroup cursor nil | 2033 | (defgroup cursor nil |
| 2025 | "Displaying text cursors." | 2034 | "Displaying text cursors." |
| 2026 | :version "21.1" | 2035 | :version "21.1" |
| @@ -2052,15 +2061,6 @@ Use 0 or negative value to blink forever." | |||
| 2052 | (defvar blink-cursor-blinks-done 1 | 2061 | (defvar blink-cursor-blinks-done 1 |
| 2053 | "Number of blinks done since we started blinking on NS, X, and MS-Windows.") | 2062 | "Number of blinks done since we started blinking on NS, X, and MS-Windows.") |
| 2054 | 2063 | ||
| 2055 | (defvar blink-cursor-idle-timer nil | ||
| 2056 | "Timer started after `blink-cursor-delay' seconds of Emacs idle time. | ||
| 2057 | The function `blink-cursor-start' is called when the timer fires.") | ||
| 2058 | |||
| 2059 | (defvar blink-cursor-timer nil | ||
| 2060 | "Timer started from `blink-cursor-start'. | ||
| 2061 | This timer calls `blink-cursor-timer-function' every | ||
| 2062 | `blink-cursor-interval' seconds.") | ||
| 2063 | |||
| 2064 | (defun blink-cursor--start-idle-timer () | 2064 | (defun blink-cursor--start-idle-timer () |
| 2065 | "Start the `blink-cursor-idle-timer'." | 2065 | "Start the `blink-cursor-idle-timer'." |
| 2066 | (when blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) | 2066 | (when blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer)) |