diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-05-14 22:36:36 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-05-15 01:10:11 +0200 |
| commit | a0af789d06077f3188635cf37b741edcebee56ec (patch) | |
| tree | f25ca51a135699217874367808af0cef0672e490 /lisp/progmodes/cperl-mode.el | |
| parent | b5621dbe2f4289d69c5fae57d9870de9fc413e87 (diff) | |
| download | emacs-a0af789d06077f3188635cf37b741edcebee56ec.tar.gz | |
Remove some XEmacs compat code for display-graphic-p
* lisp/dframe.el (dframe-have-timer-flag):
* lisp/emacs-lisp/chart.el (chart-face-pixmap-list):
* lisp/speedbar.el (speedbar-easymenu-definition-base): Remove
XEmacs compat code; assume display-graphic-p is fboundp.
* lisp/progmodes/cperl-mode.el (cperl-tags-hier-init): Remove XEmacs
compat code.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 1bf77381e8b..b79dc656934 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -7080,9 +7080,7 @@ One may build such TAGS files from CPerl mode menu." (error "No items found")) (setq update ;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy)) - (if (if (fboundp 'display-popup-menus-p) - (display-popup-menus-p) - window-system) + (if (display-popup-menus-p) (x-popup-menu t (nth 2 cperl-hierarchy)) (require 'tmm) (tmm-prompt (nth 2 cperl-hierarchy)))) |