mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/autoinsert.el (auto-insert-alist): Fix last change.

Browse source
This commit is contained in:
Eli Zaretskii 2025-08-09 13:38:10 +03:00
parent bd1362b686
commit 477e44fca3
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/autoinsert.el
View file

@ -323,11 +323,11 @@ The document was typeset with
")) "))
"A list specifying text to insert by default into a new file. "A list specifying text to insert by default into a new file.
Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
CONDITION may be a regexp that must match the new file's name, or it may be CONDITION may be a regexp that must match the new file's name, or it
a symbol that must match the major mode for this element to apply. may be a symbol that must match the major mode for this element to apply.
CONDITION can also be a custom predicate of no arguments declared with CONDITION can also be a custom predicate of no arguments declared
'(predicate FUNCTION)'. Emacs will insert the text if the predicate with (predicate FUNCTION). Emacs will insert the text if the
function returns non-nil. predicate function returns non-nil.
Only the first matching element is effective. Only the first matching element is effective.
Optional DESCRIPTION is a string for filling `auto-insert-prompt'. Optional DESCRIPTION is a string for filling `auto-insert-prompt'.
ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute

3
test/lisp/autorevert-tests.el
View file

@ -219,7 +219,8 @@ It is checked for buffer-local `auto-revert-notify-watch-descriptor'."
,@body) ,@body)
(customize-set-variable 'auto-revert-interval auto-revert-interval-orig) (customize-set-variable 'auto-revert-interval auto-revert-interval-orig)
(setq auto-revert--lockout-interval auto-revert--lockout-interval-orig) (setq auto-revert--lockout-interval auto-revert--lockout-interval-orig)
(file-notify-rm-all-watches)))) (ignore-errors (file-notify-rm-all-watches))
(sleep-for 1))))
(defun auto-revert-test--write-region (string file &optional append) (defun auto-revert-test--write-region (string file &optional append)
"Write STRING to FILE." "Write STRING to FILE."