diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
| commit | a1506d2977a8c2eb982ad0b59416009cdfaa6f51 (patch) | |
| tree | 3cbb868ad6eb3b188d5064389538c490c124d8be /lisp/emulation/cua-gmrk.el | |
| parent | f1180544bb5ff44cdb45b8734734294b0a2fa7a4 (diff) | |
| download | emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.tar.gz emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.tar.bz2 emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.zip | |
Trailing whitepace deleted.
Diffstat (limited to 'lisp/emulation/cua-gmrk.el')
| -rw-r--r-- | lisp/emulation/cua-gmrk.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emulation/cua-gmrk.el b/lisp/emulation/cua-gmrk.el index 5e482ee8d21..4055fb2b1cc 100644 --- a/lisp/emulation/cua-gmrk.el +++ b/lisp/emulation/cua-gmrk.el @@ -33,7 +33,7 @@ (require 'cua-rect) ) -;;; Global Marker +;;; Global Marker ;; Non-nil when global marker is active. (defvar cua--global-mark-active nil) @@ -72,12 +72,12 @@ (move-marker cua--global-mark-marker (point)) (if (overlayp cua--global-mark-overlay) (move-overlay cua--global-mark-overlay (point) (1+ (point))) - (setq cua--global-mark-overlay + (setq cua--global-mark-overlay (make-overlay (point) (1+ (point)))) (overlay-put cua--global-mark-overlay 'face 'cua-global-mark-face)) (if (and cua-global-mark-blink-cursor-interval (not cua--orig-blink-cursor-interval)) - (setq cua--orig-blink-cursor-interval blink-cursor-interval + (setq cua--orig-blink-cursor-interval blink-cursor-interval blink-cursor-interval cua-global-mark-blink-cursor-interval)) (setq cua--global-mark-active t) (if msg @@ -325,7 +325,7 @@ With prefix argument, don't jump to global mark when cancelling it." (move-to-column col) (move-marker cua--global-mark-marker (point)) (move-overlay cua--global-mark-overlay (point) (1+ (point)))))))) - + (defun cua-cancel-global-mark () "Cancel the global mark." @@ -346,7 +346,7 @@ With prefix argument, don't jump to global mark when cancelling it." (if (or (not (eq (current-buffer) (marker-buffer cua--global-mark-marker))) (not (pos-visible-in-window-p (marker-position cua--global-mark-marker)))) (let ((w (selected-window)) (p (point)) h) - ;; The following code is an attempt to keep the global mark visible in + ;; The following code is an attempt to keep the global mark visible in ;; other window -- but it doesn't work. (switch-to-buffer-other-window (marker-buffer cua--global-mark-marker) t) (goto-char (marker-position cua--global-mark-marker)) |