procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make dired-move-to-filename-regexp obsolete

Browse source 
* lisp/dired.el (dired-move-to-filename-regexp): Make Emacs 21
compatibility alias obsolete.
This commit is contained in:
Stefan Kangas 2023-08-12 14:36:59 +02:00
parent 57c6501270
commit 6cc9910227
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired.el
View file

@ -577,9 +577,6 @@ element, for the listed directory.")
"Keeps track of which switches to use for inserted subdirectories.
This is an alist of the form (SUBDIR . SWITCHES).")
(defvaralias 'dired-move-to-filename-regexp
'directory-listing-before-filename-regexp)
(defvar dired-subdir-regexp "^. \\(.+\\)\\(:\\)\n"
"Regexp matching a maybe hidden subdirectory line in `ls -lR' output.
Subexpression 1 is the subdirectory proper, no trailing colon.
@ -5040,6 +5037,9 @@ completes."
;; Redisplay the tool bar.
(force-mode-line-update))
(define-obsolete-variable-alias 'dired-move-to-filename-regexp
'directory-listing-before-filename-regexp "30.1")
(provide 'dired)
(run-hooks 'dired-load-hook) ; for your customizations

1
lisp/files.el
View file

@ -7743,7 +7743,6 @@ If DIR's free space cannot be obtained, this function returns nil."
(if avail
(funcall byte-count-to-string-function avail)))))
;; The following expression replaces `dired-move-to-filename-regexp'.
(defvar directory-listing-before-filename-regexp
(let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
(l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")