masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 10:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(comment-setup-function): Make it usable with add-function

Browse source 
* lisp/newcomment.el (comment-setup-function): Give it a non-nil default.
(comment-normalize-vars): Call it unconditionally.
This commit is contained in:
Stefan Monnier 2025-05-05 14:05:36 -04:00
parent 61cb73a2db
commit a64a56fbf0
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/newcomment.el
View file

@ -344,7 +344,7 @@ terminated by the end of line (i.e., `comment-end' is empty)."
"Return the mirror image of string S, without any trailing space."
(comment-string-strip (concat (nreverse (string-to-list s))) nil t))
(defvar comment-setup-function nil
(defvar comment-setup-function #'ignore
"Function to set up variables needed by commenting functions.")
;;;###autoload
@ -354,8 +354,7 @@ All the `comment-*' commands call this function to set up various
variables, like `comment-start', to ensure that the commenting
functions work correctly. Lisp callers of any other `comment-*'
function should first call this function explicitly."
(when (functionp comment-setup-function)
(funcall comment-setup-function))
(funcall comment-setup-function)
(unless (and (not comment-start) noerror)
(unless comment-start
(let ((cs (read-string "No comment syntax is defined. Use: ")))