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

Shorten register-quicknav--register-file-name, 

to register-quicknav--file-name.
This commit is contained in:
tastytea 2020-03-08 05:45:03 +01:00
parent dc7bcbfa4e
commit 0a433edb0d
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
register-quicknav.el
View File

@ -102,7 +102,7 @@ the global value otherwise."
register-quicknav--last-register-v
(default-value 'register-quicknav--last-register-v))))
(defun register-quicknav--register-file-name (register)
(defun register-quicknav--file-name (register)
"Return file-name of REGISTER.
Works on markers and file-queries."
(if (markerp (cdr register))
@ -115,7 +115,7 @@ Works on markers and file-queries."
(if (markerp (cdr register))
(eq (current-buffer) (marker-buffer (cdr register)))
(string= (buffer-file-name (current-buffer))
(register-quicknav--register-file-name register))))
(register-quicknav--file-name register))))
(defun register-quicknav--position (register)
"Return position of REGISTER.
@ -132,8 +132,8 @@ current buffer."
(lambda (a b)
"Return t if position of A is < B.
Works on markers and file-queries."
(and (string= (register-quicknav--register-file-name a)
(register-quicknav--register-file-name b))
(and (string= (register-quicknav--file-name a)
(register-quicknav--file-name b))
(< (register-quicknav--position a)
(register-quicknav--position b))))))
(let ((result))