diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-24 18:03:31 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-24 18:06:05 +0100 |
| commit | 6240c0dc1f55c55ad1fef09a3a0a65060736726c (patch) | |
| tree | b3b4081566df58ee6100a45d595b09a091be3e18 /lisp/progmodes/idlw-help.el | |
| parent | affe9b225de711429248a73f920dc9f38b15c932 (diff) | |
| download | emacs-6240c0dc1f55c55ad1fef09a3a0a65060736726c.tar.gz emacs-6240c0dc1f55c55ad1fef09a3a0a65060736726c.tar.bz2 emacs-6240c0dc1f55c55ad1fef09a3a0a65060736726c.zip | |
Remove XEmacs compat code from idlw-help.el
* lisp/progmodes/idlw-help.el (idlwave-do-context-help)
(idlwave-help-show-help-frame): Remove XEmacs compat code.
Diffstat (limited to 'lisp/progmodes/idlw-help.el')
| -rw-r--r-- | lisp/progmodes/idlw-help.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index 68809ce1fc0..b17bcc354af 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el @@ -365,7 +365,6 @@ It collects and prints the diagnostics messages." (idlwave-help-diagnostics nil)) ;; Check for frame switching. When the command is invoked twice ;; at the same position, we try to switch to the help frame - ;; FIXME: Frame switching works only on XEmacs (if (and idlwave-experimental (equal last-command this-command) (equal idlwave-last-context-help-pos marker)) @@ -1200,16 +1199,9 @@ Useful when source code is displayed as help. See the option (setq idlwave-help-frame (make-frame idlwave-help-frame-parameters)) ;; Strip menubar (?) and toolbar from the Help frame. - (if (fboundp 'set-specifier) - (progn - ;; XEmacs - (let ((sval (cons idlwave-help-frame nil))) - ;; (set-specifier menubar-visible-p sval) - (set-specifier default-toolbar-visible-p sval))) - ;; Emacs - (modify-frame-parameters idlwave-help-frame - '(;;(menu-bar-lines . 0) - (tool-bar-lines . 0))))) + (modify-frame-parameters idlwave-help-frame + '(;;(menu-bar-lines . 0) + (tool-bar-lines . 0)))) (select-frame idlwave-help-frame)) (defun idlwave-help-get-help-buffer () |