diff options
| author | Tassilo Horn | 2022-06-21 21:53:57 +0200 |
|---|---|---|
| committer | Tassilo Horn | 2022-06-21 21:53:57 +0200 |
| commit | 5e40c5a3beaccdea956abf9d0be0631cb7d2e1d2 (patch) | |
| tree | fc1de9e0adcea01c1fee78376ad0a5b5a5a06781 | |
| parent | de30e8c0decf6b76beef332f19d3745ec162fc5b (diff) | |
| parent | f3acc09377f98ae18653eb01c11c57b6449c83af (diff) | |
| download | emacs-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.texi | 2 | ||||
| -rw-r--r-- | lisp/dired-aux.el | 6 | ||||
| -rw-r--r-- | lisp/recentf.el | 2 | ||||
| -rw-r--r-- | lisp/repeat.el | 2 |
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 |
| 278 | a mode name, making an element applicable when a buffer is in that | 278 | a mode name, making an element applicable when a buffer is in that |
| 279 | mode. Or they can be a string, which is a regexp matched against the | 279 | mode, or they can be a string, which is a regexp matched against the |
| 280 | buffer's file name. In that way different kinds of files that have | 280 | buffer's file name. In that way different kinds of files that have |
| 281 | the same mode in Emacs can be distinguished. The @sc{car}s may also | 281 | the same mode in Emacs can be distinguished. The @sc{car}s may also |
| 282 | be cons cells consisting of mode name or regexp as above and an | 282 | be 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 | ||