aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2000-08-21 14:18:32 +0000
committerEli Zaretskii2000-08-21 14:18:32 +0000
commit240301df360c428e8186b960471b71ba41a04aef (patch)
treed5e099b3911719b17507759826f29d5f6945590f
parent6917e6bbc9c3d68b672fb88ea2f039f0fdb2bb77 (diff)
downloademacs-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/ChangeLog6
-rw-r--r--lisp/man.el5
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 @@
12000-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
12000-08-21 Gerd Moellmann <gerd@gnu.org> 72000-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.
368This is necessary if one wants to dump man.el with Emacs." 368This 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