diff options
| author | Wolfgang Jenkner <wjenkner@inode.at> | 2012-05-06 12:19:11 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-05-06 12:19:11 +0800 |
| commit | ebfe2597a886443596e007607dd08a617e60d717 (patch) | |
| tree | b78aa7b3b2b3882f976e8522f811ac2755af9b94 /lisp/man.el | |
| parent | 48176e8bacea7a462e28c472b6dd7a052355b33e (diff) | |
| download | emacs-ebfe2597a886443596e007607dd08a617e60d717.tar.gz | |
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
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index dd64613c495..ca7df4cd1a4 100644 --- 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)) |