Mercurial > emacs
comparison lisp/man.el @ 31005:70fe74e07912
(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.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 21 Aug 2000 14:17:19 +0000 |
| parents | 75f3cd16a9ab |
| children | b68d86c19284 |
comparison
equal
deleted
inserted
replaced
| 31004:9af2fb7c9123 | 31005:70fe74e07912 |
|---|---|
| 364 ;; utilities | 364 ;; utilities |
| 365 | 365 |
| 366 (defun Man-init-defvars () | 366 (defun Man-init-defvars () |
| 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 | |
| 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 | 369 |
| 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 |
| 378 (cond | 373 (cond |