; Implement Stefan's feedback on last two commits

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 765e60a5bcff7fb5577dc47fdcb413fcce66c2a5..0c49211869edecfecb6064e09381434329f08da4 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -418,7 +418,6 @@ If UNP is non-nil, unquote nested comment markers."
   (setq cs (comment-string-strip cs t t))
   (setq ce (comment-string-strip ce t t))
   (when (and comment-quote-nested
-            comment-quote-nested-function
             (> (length ce) 0))
     (funcall comment-quote-nested-function cs ce unp)))
 
@@ -427,8 +426,8 @@ If UNP is non-nil, unquote nested comment markers."
 It expects to be called with the buffer narrowed to a single comment.
 It is used as a default for `comment-quote-nested-function'.
 
-The arguments CS and CE are regular expressions matching comment
-starting and ending delimiters respectively.
+The arguments CS and CE are strings matching comment starting and
+ending delimiters respectively.
 
 If UNP is non-nil, comments are unquoted instead.
 

diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index dc151a3c65088f748270b09c35b54a434687e844..8b0dc9278c574f87cba27b76e3d8f4c8b8f44ebc 100644 (file)
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -546,8 +546,7 @@ Many aspects this mode can be customized using
   (setq comment-end-skip "[ \t\r\n]*-->")
   (make-local-variable 'comment-line-break-function)
   (setq comment-line-break-function 'nxml-newline-and-indent)
-  (make-local-variable 'comment-quote-nested-function)
-  (setq comment-quote-nested-function 'nxml-comment-quote-nested)
+  (setq-local comment-quote-nested-function 'nxml-comment-quote-nested)
   (use-local-map nxml-mode-map)
   (save-excursion
     (save-restriction