diff options
author | Alexander Gramiak <agrambot@gmail.com> | 2019-04-03 13:57:16 -0600 |
---|---|---|
committer | Alexander Gramiak <agrambot@gmail.com> | 2019-04-06 22:43:59 -0600 |
commit | 8f6e4798459a881b0a1602a1a0e30f0b73d49d22 (patch) | |
tree | 3e8960e9d1a1e7642bad7b2402fbc10a0303ca44 /lisp/info.el | |
parent | 08235af38c92e95d8ec9d268916d8910ea50ab2d (diff) | |
download | emacs-8f6e4798459a881b0a1602a1a0e30f0b73d49d22.tar.gz |
Use display-graphic-p and display-multi-frame-p in more cases
* lisp/disp-table.el:
* lisp/faces.el:
* lisp/frame.el:
* lisp/info.el (Info-fontify-node):
* lisp/window.el (handle-select-window): Use display-graphic-p and
display-multi-frame-p instead of explicit memq calls.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index f2a064abb67..f3b413a2f9f 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -4768,7 +4768,7 @@ first line or header line, and for breadcrumb links.") ;; This is a serious problem for trying to handle multiple ;; frame types at once. We want this text to be invisible ;; on frames that can display the font above. - (when (memq (framep (selected-frame)) '(x pc w32 ns)) + (when (display-multi-font-p) (add-text-properties (1- (match-beginning 2)) (match-end 2) '(invisible t front-sticky nil rear-nonsticky t)))))) |