Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 111486:046351ea9819
Silence idlw*.el compilation.
* lisp/progmodes/idlw-complete-structtag.el: Remove unused dec `name'.
* lisp/progmodes/idlwave.el (idlwave-routine-entry-compare-twins)
(idlwave-study-twins): Prefix dynamic local variable `name'.
(idlwave-routine-twin-compare): Update for above change.
* lisp/progmodes/idlw-help.el (idlwave-do-mouse-completion-help):
Prefix dynamic local variables `name', `kwd', and `link'.
* lisp/progmodes/idlw-shell.el (idlwave-shell-complete-execcomm-help):
* lisp/progmodes/idlw-complete-structtag.el
(idlwave-complete-structure-tag-help):
* lisp/progmodes/idlwave.el (idlwave-complete-sysvar-help)
(idlwave-complete-sysvar-tag-help)
(idlwave-complete-class-structure-tag-help):
Update for above name changes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 10 Nov 2010 19:53:16 -0800 |
| parents | 56b71cddc9c5 |
| children | b47e85affa59 |
comparison
equal
deleted
inserted
replaced
| 111485:4c3fdb97fdaf | 111486:046351ea9819 |
|---|---|
| 2178 | 2178 |
| 2179 (t | 2179 (t |
| 2180 ;; Default completion of modules and keywords | 2180 ;; Default completion of modules and keywords |
| 2181 (idlwave-complete arg))))) | 2181 (idlwave-complete arg))))) |
| 2182 | 2182 |
| 2183 ;; Get rid of opaque dynamic variable passing of link? | 2183 ;; Get rid of opaque dynamic variable passing of idlw-help-link? |
| 2184 (defvar link) ;dynamic variable | 2184 (defvar idlw-help-link) ; dynamic variable from idlwave-do-mouse-completion-help |
| 2185 (defun idlwave-shell-complete-execcomm-help (mode word) | 2185 (defun idlwave-shell-complete-execcomm-help (mode word) |
| 2186 (let ((word (or (nth 1 idlwave-completion-help-info) word)) | 2186 (let ((word (or (nth 1 idlwave-completion-help-info) word)) |
| 2187 (entry (assoc-string word idlwave-executive-commands-alist t))) | 2187 (entry (assoc-string word idlwave-executive-commands-alist t))) |
| 2188 (cond | 2188 (cond |
| 2189 ((eq mode 'test) | 2189 ((eq mode 'test) |
| 2190 (and (stringp word) entry (cdr entry))) | 2190 (and (stringp word) entry (cdr entry))) |
| 2191 ((eq mode 'set) | 2191 ((eq mode 'set) |
| 2192 (if entry (setq link (cdr entry)))) ;; setting dynamic variable!!! | 2192 (if entry (setq idlw-help-link (cdr entry)))) ; setting dynamic variable! |
| 2193 (t (error "This should not happen"))))) | 2193 (t (error "This should not happen"))))) |
| 2194 | 2194 |
| 2195 (defun idlwave-shell-complete-filename (&optional arg) | 2195 (defun idlwave-shell-complete-filename (&optional arg) |
| 2196 "Complete a file name at point if after a file name. | 2196 "Complete a file name at point if after a file name. |
| 2197 We assume that we are after a file name when completing one of the | 2197 We assume that we are after a file name when completing one of the |