diff options
Diffstat (limited to 'lisp/progmodes/idlw-toolbar.el')
| -rw-r--r-- | lisp/progmodes/idlw-toolbar.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el index 474065451d7..e6137e46860 100644 --- a/lisp/progmodes/idlw-toolbar.el +++ b/lisp/progmodes/idlw-toolbar.el @@ -807,7 +807,7 @@ static char * file[] = { "Goto Next Error"] [idlwave-toolbar-stop-at-icon idlwave-shell-break-here - (eq major-mode 'idlwave-mode) + (derived-mode-p 'idlwave-mode) "Set Breakpoint at selected position"] [idlwave-toolbar-clear-at-icon idlwave-shell-clear-current-bp @@ -819,7 +819,7 @@ static char * file[] = { "Clear all Breakpoints"] [idlwave-toolbar-stop-beginning-icon idlwave-shell-break-this-module - (eq major-mode 'idlwave-mode) + (derived-mode-p 'idlwave-mode) "Stop at beginning of enclosing Routine"] [idlwave-toolbar-stop-in-icon idlwave-shell-break-in @@ -839,7 +839,7 @@ static char * file[] = { "Continue Current Program"] [idlwave-toolbar-to-here-icon idlwave-shell-to-here - (eq major-mode 'idlwave-mode) + (derived-mode-p 'idlwave-mode) "Continue to Here (cursor position)"] [idlwave-toolbar-step-over-icon idlwave-shell-stepover @@ -871,7 +871,7 @@ static char * file[] = { "Reset IDL (RETALL & CLOSE,/ALL and more)"] [idlwave-toolbar-electric-debug-icon idlwave-shell-electric-debug-mode - (eq major-mode 'idlwave-mode) + (derived-mode-p 'idlwave-mode) "Toggle Electric Debug Mode"] )) @@ -884,8 +884,7 @@ static char * file[] = { "Add the IDLWAVE toolbar if appropriate." (if (and (featurep 'xemacs) ; This is a noop on Emacs (boundp 'idlwave-toolbar-is-possible) - (or (eq major-mode 'idlwave-mode) - (eq major-mode 'idlwave-shell-mode))) + (derived-mode-p 'idlwave-mode 'idlwave-shell-mode)) (set-specifier default-toolbar (cons (current-buffer) idlwave-toolbar)))) @@ -893,8 +892,7 @@ static char * file[] = { "Add the IDLWAVE toolbar if appropriate." (if (and (featurep 'xemacs) ; This is a noop on Emacs (boundp 'idlwave-toolbar-is-possible) - (or (eq major-mode 'idlwave-mode) - (eq major-mode 'idlwave-shell-mode))) + (derived-mode-p 'idlwave-mode 'idlwave-shell-mode)) (remove-specifier default-toolbar (current-buffer)))) (defvar idlwave-shell-mode-map) |