tastytea
/
register-quicknav
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use cl-flet instead of let for the lambda.

This commit is contained in:
tastytea 2020-03-02 10:32:01 +01:00
parent f786360131
commit 21971bb469
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
register-quicknav.el
View File

@ -99,21 +99,22 @@
"Return all position registers, sorted by file name and position. "Return all position registers, sorted by file name and position.
If `register-quicknav-buffer-only' is t, return only registers in If `register-quicknav-buffer-only' is t, return only registers in
current buffer." current buffer."
(let ((sort-fn (lambda (a b) (cl-flet ((sort-registers
(let ((marker-a (cdr a)) (lambda (a b)
(marker-b (cdr b))) (let ((marker-a (cdr a))
(and (string= (buffer-file-name (marker-buffer marker-a)) (marker-b (cdr b)))
(buffer-file-name (marker-buffer marker-b))) (and (string= (buffer-file-name (marker-buffer marker-a))
(< (marker-position marker-a) (buffer-file-name (marker-buffer marker-b)))
(marker-position marker-b)))))) (< (marker-position marker-a)
(result)) (marker-position marker-b)))))))
(dolist (item register-alist) (let ((result))
(when (markerp (cdr item)) (dolist (item register-alist)
(if register-quicknav-buffer-only (when (markerp (cdr item))
(when (eq (current-buffer) (marker-buffer (cdr item))) (if register-quicknav-buffer-only
(push item result)) (when (eq (current-buffer) (marker-buffer (cdr item)))
(push item result)))) (push item result))
(sort result sort-fn))) (push item result))))
(sort result #'sort-registers))))
;;;###autoload ;;;###autoload
(defun register-quicknav-next-register () (defun register-quicknav-next-register ()