diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-08-01 15:25:02 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-08-01 15:25:02 +0200 |
| commit | 0ecebbf2746e41f4a3c3e27c18d96e74f6f3b030 (patch) | |
| tree | d02505f40937559ace881d40ffe4d2d3189e02fc /lisp/replace.el | |
| parent | 660b17ef3e2f169478b56aaaacf6b9aa761b0619 (diff) | |
| download | emacs-0ecebbf2746e41f4a3c3e27c18d96e74f6f3b030.tar.gz emacs-0ecebbf2746e41f4a3c3e27c18d96e74f6f3b030.tar.bz2 emacs-0ecebbf2746e41f4a3c3e27c18d96e74f6f3b030.zip | |
; * lisp/replace.el (occur--set-arrow): Remove unused variable.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 462cc26e993..54d652b2ed8 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1446,8 +1446,7 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]." (defun occur--set-arrow () "Set the overlay arrow at the first line of the occur match at point." (save-excursion - (let ((start (point)) - (target (get-text-property (point) 'occur-target)) + (let ((target (get-text-property (point) 'occur-target)) ;; Find the start of the occur match, in case it's multi-line. (prev (previous-single-property-change (point) 'occur-target))) (when (and prev (eq (get-text-property prev 'occur-target) target)) |