mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -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.

11
lisp/dired.el
View file

@ -40,9 +40,6 @@
(require 'dired-loaddefs nil t)
(require 'dnd)
(declare-function dired-buffer-more-recently-used-p
"dired-x" (buffer1 buffer2))
;;; Customizable variables
@ -3505,6 +3502,14 @@ is the directory where the file on this line resides."
(point-max)
(point))))
;; 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))))))
;;; Deleting files