(ps-print-preprint): Special handling if

[gnu-emacs] / lisp / help.el

diff --git a/lisp/help.el b/lisp/help.el
index ff1a4013c7b16bea12939148092e4eb7e4d5688f..ff1e9c8da1bae973cd99bf9fbcf0a66cc7cc1470 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -334,8 +334,11 @@ describes the minor mode."
                                      0 (match-beginning 0)))))
                (while (and indicator (symbolp indicator))
                  (setq indicator (symbol-value indicator)))
-               (princ (format "%s minor mode (indicator%s):\n"
-                              pretty-minor-mode indicator))
+               (princ (format "%s minor mode (%s):\n"
+                              pretty-minor-mode
+                              (if indicator
+                                  (format "indicator%s" indicator)
+                                "no indicator")))
                (princ (documentation minor-mode))
                (princ "\n\n"))))
        (setq minor-modes (cdr minor-modes))))