Cosmetic fix for Man-unindent.

* lisp/man.el (Man-unindent): Use text-property-default-nonsticky to
prevent untabify from inheriting face properties.

Fixes: debbugs:11408

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43045fbbbd23d15afdf1e6b0e5dfdef89c26ea26..2a33bffca180cb7be8b6481ce1be9e00dd28173b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-06  Wolfgang Jenkner  <wjenkner@inode.at>
+
+       * man.el (Man-unindent): Use text-property-default-nonsticky to
+       prevent untabify from inheriting face properties (Bug#11408).
+
 2012-05-05  Glenn Morris  <rgm@gnu.org>
 
        * calendar/cal-html.el: Optionally include holidays in the output.

diff --git a/lisp/man.el b/lisp/man.el
index dd64613c4955f79509502b4bb169f64117e7b116..ca7df4cd1a4ccca12456abe46ee31377eb1ed3e6 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1475,7 +1475,12 @@ The following key bindings are currently in effect in the buffer:
            (nindent 0))
        (narrow-to-region (car page) (car (cdr page)))
        (if Man-uses-untabify-flag
-           (untabify (point-min) (point-max)))
+           ;; The space characters inserted by `untabify' inherit
+           ;; sticky text properties, which is unnecessary and looks
+           ;; ugly with underlining (Bug#11408).
+           (let ((text-property-default-nonsticky
+                  (cons '(face . t) text-property-default-nonsticky)))
+             (untabify (point-min) (point-max))))
        (if (catch 'unindent
              (goto-char (point-min))
              (if (not (re-search-forward Man-first-heading-regexp nil t))