Top-level elisp files respect ‘text-quoting-style’

[gnu-emacs] / lisp / outline.el

diff --git a/lisp/outline.el b/lisp/outline.el
index 059ca626586b45254f70d165801beec34ac33044..d9142c5a6047e3a00ba97a3b3df6db7697d8d932 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -449,8 +449,8 @@ Otherwise, it will be one level below."
           ;; Why bother checking that it is indeed higher/lower level ?
           new-head
         ;; Didn't work, so ask what to do.
-        (read-string (format "%s heading for `%s': "
-                             (if up "Parent" "Demoted") head)
+        (read-string (format-message "%s heading for `%s': "
+                                    (if up "Parent" "Demoted") head)
                      head nil nil t)))))
 
 (defun outline-promote (&optional which)