diff options
| author | Eli Zaretskii | 2000-08-21 14:18:32 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-08-21 14:18:32 +0000 |
| commit | 240301df360c428e8186b960471b71ba41a04aef (patch) | |
| tree | d5e099b3911719b17507759826f29d5f6945590f | |
| parent | 6917e6bbc9c3d68b672fb88ea2f039f0fdb2bb77 (diff) | |
| download | emacs-240301df360c428e8186b960471b71ba41a04aef.tar.gz emacs-240301df360c428e8186b960471b71ba41a04aef.zip | |
(Man-init-defvars): Don't reset Man-fontify-manpage-flag,
even if the display doesn't support colors: some displays will
support bold/underline faces.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/man.el | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc404e57c46..3bacc1cbf0c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2000-08-21 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 2 | |||
| 3 | * man.el (Man-init-defvars): Don't reset Man-fontify-manpage-flag, | ||
| 4 | even if the display doesn't support colors: some displays will | ||
| 5 | support bold/underline faces. | ||
| 6 | |||
| 1 | 2000-08-21 Gerd Moellmann <gerd@gnu.org> | 7 | 2000-08-21 Gerd Moellmann <gerd@gnu.org> |
| 2 | 8 | ||
| 3 | * emacs-lisp/cl.el (cl-macroexpand): Doc fix. | 9 | * emacs-lisp/cl.el (cl-macroexpand): Doc fix. |
diff --git a/lisp/man.el b/lisp/man.el index 783b155c520..dd53df7bd63 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -367,11 +367,6 @@ This regular expression should start with a `^' character.") | |||
| 367 | "Used for initialising variables based on display's color support. | 367 | "Used for initialising variables based on display's color support. |
| 368 | This is necessary if one wants to dump man.el with Emacs." | 368 | This is necessary if one wants to dump man.el with Emacs." |
| 369 | 369 | ||
| 370 | ;; The following is necessary until fonts are implemented on | ||
| 371 | ;; terminals. | ||
| 372 | (setq Man-fontify-manpage-flag (and Man-fontify-manpage-flag | ||
| 373 | (display-color-p))) | ||
| 374 | |||
| 375 | ;; Avoid possible error in call-process by using a directory that must exist. | 370 | ;; Avoid possible error in call-process by using a directory that must exist. |
| 376 | (let ((default-directory "/")) | 371 | (let ((default-directory "/")) |
| 377 | (setq Man-sed-script | 372 | (setq Man-sed-script |