summaryrefslogtreecommitdiff
path: root/lisp/info.el
diff options
context:
space:
mode:
authorAlexander Gramiak <agrambot@gmail.com>2019-04-03 13:57:16 -0600
committerAlexander Gramiak <agrambot@gmail.com>2019-04-06 22:43:59 -0600
commit8f6e4798459a881b0a1602a1a0e30f0b73d49d22 (patch)
tree3e8960e9d1a1e7642bad7b2402fbc10a0303ca44 /lisp/info.el
parent08235af38c92e95d8ec9d268916d8910ea50ab2d (diff)
downloademacs-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.el2
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))))))