From 0a433edb0dff9636160551ac1e481b9f56b95b3c Mon Sep 17 00:00:00 2001 From: tastytea Date: Sun, 8 Mar 2020 05:45:03 +0100 Subject: [PATCH] Shorten register-quicknav--register-file-name, to register-quicknav--file-name. --- register-quicknav.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/register-quicknav.el b/register-quicknav.el index 602f030..950f2f2 100644 --- a/register-quicknav.el +++ b/register-quicknav.el @@ -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))