diff options
Diffstat (limited to 'lisp/progmodes/idlwave.el')
| -rw-r--r-- | lisp/progmodes/idlwave.el | 27 |
1 files changed, 9 insertions, 18 deletions
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index e3985db64ab..b290854e1b9 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -1001,9 +1001,9 @@ Obsolete, if the IDL Assistant is being used for help." "List of modifiers to be used for the debugging commands. Will be used to bind debugging commands in the shell buffer and in all source buffers. These are additional convenience bindings, the debugging -commands are always available with the `C-c C-d' prefix. +commands are always available with the \\`C-c C-d' prefix. If you set this to (control shift), this means setting a breakpoint will -be on `C-S-b', compiling a source file on `C-S-c' etc. Possible modifiers +be on \\`C-S-b', compiling a source file on \\`C-S-c' etc. Possible modifiers are `control', `meta', `super', `hyper', `alt', and `shift'." :group 'idlwave-shell-general-setup :type '(set :tag "Specify modifiers" @@ -1353,7 +1353,7 @@ the leftover unidentified statements containing an equal sign.") ;; Note that this is documented in the v18 manuals as being a string ;; of length one rather than a single character. ;; The code in this file accepts either format for compatibility. -(defvar idlwave-comment-indent-char ?\ +(defvar idlwave-comment-indent-char ?\s "Character to be inserted for IDL comment indentation. Normally a space.") @@ -3247,7 +3247,7 @@ ignored." ;; In the following while statements, after one iteration ;; point will be at the beginning of a line in which case ;; the while will not be executed for the - ;; the first paragraph line and thus will not affect the + ;; first paragraph line and thus will not affect the ;; indentation. ;; ;; First check to see if indentation is based on hanging indent. @@ -7528,7 +7528,7 @@ associated TAG, if any." (setq cl (pop sclasses)) (let ((tags (idlwave-class-tags cl))) (while tags - (if (eq t (compare-strings tag 0 nil (car tags) 0 nil t)) + (if (string-equal-ignore-case tag (car tags)) (throw 'exit cl)) (setq tags (cdr tags)))))))) @@ -8421,7 +8421,7 @@ was pressed." (defun idlwave-list-shell-load-path-shadows (&optional _arg) "List the load path shadows of all routines compiled under the shell. This is very useful for checking an IDL application. Just compile the -application, do RESOLVE_ALL, and `C-c C-i' to compile all referenced +application, do RESOLVE_ALL, and \\`C-c C-i' to compile all referenced routines and update IDLWAVE internal info. Then check for shadowing with this command." (interactive) @@ -8811,7 +8811,7 @@ to reset the variable `idlwave-true-path-alist' to nil." ;; ---------------------------------------------------------------------------- ;; -;; Additions for use with imenu.el and func-menu.el +;; Additions for use with imenu.el ;; (pop-up a list of IDL units in the current file). ;; @@ -8835,16 +8835,7 @@ Assumes that point is at the beginning of the unit as found by "[a-zA-Z_][a-zA-Z0-9$_]+\\(::[a-zA-Z_][a-zA-Z0-9$_]+\\)?") (buffer-substring-no-properties begin (point)))) -(defalias 'idlwave-function-menu - (condition-case nil - (progn - (require 'func-menu) - 'function-menu) - (error (condition-case nil - (progn - (require 'imenu) - 'imenu) - (error nil))))) +(define-obsolete-function-alias 'idlwave-function-menu #'imenu "29.1") (defun idlwave-edit-in-idlde () "Edit the current file in IDL Development environment." @@ -8864,7 +8855,7 @@ Assumes that point is at the beginning of the unit as found by ;; Menus - using easymenu.el (defvar idlwave-mode-menu-def '("IDLWAVE" - ["PRO/FUNC menu" idlwave-function-menu t] + ["PRO/FUNC menu" imenu t] ("Motion" ["Subprogram Start" idlwave-beginning-of-subprogram t] ["Subprogram End" idlwave-end-of-subprogram t] |