aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTassilo Horn2022-06-21 21:53:57 +0200
committerTassilo Horn2022-06-21 21:53:57 +0200
commit5e40c5a3beaccdea956abf9d0be0631cb7d2e1d2 (patch)
treefc1de9e0adcea01c1fee78376ad0a5b5a5a06781
parentde30e8c0decf6b76beef332f19d3745ec162fc5b (diff)
parentf3acc09377f98ae18653eb01c11c57b6449c83af (diff)
downloademacs-5e40c5a3beaccdea956abf9d0be0631cb7d2e1d2.tar.gz
emacs-5e40c5a3beaccdea956abf9d0be0631cb7d2e1d2.zip
Merge from origin/emacs-28
f3acc09377 ; Revert "Use file-in-directory-p instead of obsolete dire... 5082d74cfd ; * lisp/recentf.el: Fix typo. 3f66e2a903 * lisp/repeat.el (repeat-mode): Fix message format. 137539c125 Clarify autotype.texi text slightly
-rw-r--r--doc/misc/autotype.texi2
-rw-r--r--lisp/dired-aux.el6
-rw-r--r--lisp/recentf.el2
-rw-r--r--lisp/repeat.el2
4 files changed, 6 insertions, 6 deletions
diff --git a/doc/misc/autotype.texi b/doc/misc/autotype.texi
index a3b0f16df9c..a880642ac37 100644
--- a/doc/misc/autotype.texi
+++ b/doc/misc/autotype.texi
@@ -276,7 +276,7 @@ empty file is visited. This is accomplished by putting
276 What gets inserted, if anything, is determined by the variable 276 What gets inserted, if anything, is determined by the variable
277@code{auto-insert-alist}. The @sc{car}s of this list are each either 277@code{auto-insert-alist}. The @sc{car}s of this list are each either
278a mode name, making an element applicable when a buffer is in that 278a mode name, making an element applicable when a buffer is in that
279mode. Or they can be a string, which is a regexp matched against the 279mode, or they can be a string, which is a regexp matched against the
280buffer's file name. In that way different kinds of files that have 280buffer's file name. In that way different kinds of files that have
281the same mode in Emacs can be distinguished. The @sc{car}s may also 281the same mode in Emacs can be distinguished. The @sc{car}s may also
282be cons cells consisting of mode name or regexp as above and an 282be cons cells consisting of mode name or regexp as above and an
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 91106e07048..095f8001701 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1936,7 +1936,7 @@ unless OK-IF-ALREADY-EXISTS is non-nil."
1936 (while blist 1936 (while blist
1937 (with-current-buffer (car blist) 1937 (with-current-buffer (car blist)
1938 (if (and buffer-file-name 1938 (if (and buffer-file-name
1939 (dired-in-this-tree-p buffer-file-name expanded-from-dir)) 1939 (dired-in-this-tree-p buffer-file-name expanded-from-dir))
1940 (let ((modflag (buffer-modified-p)) 1940 (let ((modflag (buffer-modified-p))
1941 (to-file (replace-regexp-in-string 1941 (to-file (replace-regexp-in-string
1942 (concat "^" (regexp-quote from-dir)) 1942 (concat "^" (regexp-quote from-dir))
@@ -2817,7 +2817,7 @@ This function takes some pains to conform to `ls -lR' output."
2817 (setq switches (string-replace "R" "" switches)) 2817 (setq switches (string-replace "R" "" switches))
2818 (dolist (cur-ass dired-subdir-alist) 2818 (dolist (cur-ass dired-subdir-alist)
2819 (let ((cur-dir (car cur-ass))) 2819 (let ((cur-dir (car cur-ass)))
2820 (and (file-in-directory-p cur-dir dirname) 2820 (and (dired-in-this-tree-p cur-dir dirname)
2821 (let ((cur-cons (assoc-string cur-dir dired-switches-alist))) 2821 (let ((cur-cons (assoc-string cur-dir dired-switches-alist)))
2822 (if cur-cons 2822 (if cur-cons
2823 (setcdr cur-cons switches) 2823 (setcdr cur-cons switches)
@@ -2829,7 +2829,7 @@ This function takes some pains to conform to `ls -lR' output."
2829(defun dired-insert-subdir-validate (dirname &optional switches) 2829(defun dired-insert-subdir-validate (dirname &optional switches)
2830 ;; Check that it is valid to insert DIRNAME with SWITCHES. 2830 ;; Check that it is valid to insert DIRNAME with SWITCHES.
2831 ;; Signal an error if invalid (e.g. user typed `i' on `..'). 2831 ;; Signal an error if invalid (e.g. user typed `i' on `..').
2832 (or (file-in-directory-p dirname (expand-file-name default-directory)) 2832 (or (dired-in-this-tree-p dirname (expand-file-name default-directory))
2833 (error "%s: Not in this directory tree" dirname)) 2833 (error "%s: Not in this directory tree" dirname))
2834 (let ((real-switches (or switches dired-subdir-switches))) 2834 (let ((real-switches (or switches dired-subdir-switches)))
2835 (when real-switches 2835 (when real-switches
diff --git a/lisp/recentf.el b/lisp/recentf.el
index 28aee0f17fd..09843a89568 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -29,7 +29,7 @@
29;; automatically saved across Emacs sessions. 29;; automatically saved across Emacs sessions.
30 30
31;; You can customize the number of recent files displayed, the 31;; You can customize the number of recent files displayed, the
32;; location of the menu and others options. Type: 32;; location of the menu and other options. Type:
33;; 33;;
34;; M-x customize-group RET recentf RET 34;; M-x customize-group RET recentf RET
35 35
diff --git a/lisp/repeat.el b/lisp/repeat.el
index dff3931aebf..fa65057a73f 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -418,7 +418,7 @@ See `describe-repeat-maps' for a list of all repeatable commands."
418 (and (commandp s) 418 (and (commandp s)
419 (get s 'repeat-map) 419 (get s 'repeat-map)
420 (push (get s 'repeat-map) keymaps)))))) 420 (push (get s 'repeat-map) keymaps))))))
421 (message "Repeat mode is enabled for %d commands and %d keymaps; see `describe-repeat-maps'." 421 (message "Repeat mode is enabled for %d commands and %d keymaps; see `describe-repeat-maps'"
422 (length commands) 422 (length commands)
423 (length (delete-dups keymaps)))))) 423 (length (delete-dups keymaps))))))
424 424