mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Move dired-buffer-more-recently-used-p to dired.el

Browse source 
* lisp/dired-x.el (dired-buffer-more-recently-used-p): Move from
here...
* lisp/dired.el (dired-buffer-more-recently-used-p): ...to here.
This commit is contained in:
Stefan Kangas 2022-07-09 10:14:54 +02:00
parent ac7b90e323
commit 04f1396640
2 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/dired-x.el
View file

@ -1138,14 +1138,6 @@ otherwise."
;;; Miscellaneous internal functions
;; This should be a builtin
(defun dired-buffer-more-recently-used-p (buffer1 buffer2)
"Return t if BUFFER1 is more recently used than BUFFER2.
Considers buffers closer to the car of `buffer-list' to be more recent."
(and (not (equal buffer1 buffer2))
(memq buffer1 (buffer-list))
(not (memq buffer1 (memq buffer2 (buffer-list))))))
;; Needed if ls -lh is supported and also for GNU ls -ls.
(defun dired-x--string-to-number (str)
"Like `string-to-number' but recognize a trailing unit prefix.