branch: externals/idlwave
commit e8d35428c0a633a045044570ff53ba1d5de3582c
Author: jdsmith <jdsmith>
Commit: jdsmith <jdsmith>
- Pre-declare all variables to quiet compiler warnings
---
idlw-complete-structtag.el | 6 +++++-
idlw-help.el | 16 ++++++++++++----
idlw-shell.el | 4 ++--
3 files changed, 19 insertions(+), 7 deletions(-)
diff --git a/idlw-complete-structtag.el b/idlw-complete-structtag.el
index 7ea022d2e3..a6e4f3b058 100644
--- a/idlw-complete-structtag.el
+++ b/idlw-complete-structtag.el
@@ -4,7 +4,7 @@
;; Author: Carsten Dominik <domi...@astro.uva.nl>
;; Maintainer: J.D. Smith <jdsm...@as.arizona.edu>
;; Version: 1.2
-;; Date: $Date: 2005/05/06 22:53:56 $
+;; Date: $Date: 2005/07/04 01:29:41 $
;; Keywords: languages
;; This file is part of GNU Emacs.
@@ -208,6 +208,8 @@ an up-to-date completion list."
'idlwave-complete-structure-tag-get-tags-from-help
'hide 'wait))
+(defvar idlwave-shell-prompt-pattern)
+(defvar idlwave-shell-command-output)
(defun idlwave-complete-structure-tag-get-tags-from-help ()
"Filter structure tag name output, result to `idlwave-current-struct-tags'."
(setq idlwave-current-struct-tags
@@ -220,6 +222,8 @@ an up-to-date completion list."
;; Fake help in the source buffer for structure tags.
;; kwd and name are global-variables here.
+(defvar name)
+(defvar kwd)
(defvar idlwave-help-do-struct-tag)
(defun idlwave-complete-structure-tag-help (mode word)
(cond
diff --git a/idlw-help.el b/idlw-help.el
index 751ea171c2..c35cd3a74f 100644
--- a/idlw-help.el
+++ b/idlw-help.el
@@ -4,7 +4,7 @@
;; Copyright (c) 2003,2004,2005 Free Software Foundation
;;
;; Authors: J.D. Smith <jdsm...@as.arizona.edu>
-;; Carsten Dominik <domi...@astro.uva.nl>
+;; Carsten Dominik <domi...@science.uva.nl>
;; Maintainer: J.D. Smith <jdsm...@as.arizona.edu>
;; Version: VERSIONTAG
@@ -247,6 +247,10 @@ support."
"--"
["Quit" idlwave-help-quit t]))
+(defvar idlwave-help-def-pos)
+(defvar idlwave-help-args)
+(defvar idlwave-help-in-header)
+
(defun idlwave-help-mode ()
"Major mode for displaying IDL Help.
@@ -287,6 +291,7 @@ Here are all keybindings.
(set (make-local-variable 'idlwave-help-in-header) nil)
(run-hooks 'idlwave-help-mode-hook))
+(defvar idlwave-system-directory)
(defun idlwave-html-help-location ()
"Return the help directory where HTML files are, or nil if that is unknown."
(or (and (stringp idlwave-html-help-location)
@@ -326,7 +331,11 @@ It collects and prints the diagnostics messages."
"; "))))))
(defvar idlwave-help-do-class-struct-tag nil)
+(defvar idlwave-structtag-struct-location)
(defvar idlwave-help-do-struct-tag nil)
+(defvar idlwave-system-variables-alist)
+(defvar idlwave-executive-commands-alist)
+(defvar idlwave-system-class-info)
(defun idlwave-do-context-help1 (&optional arg)
"The work-horse version of `idlwave-context-help', which see."
(save-excursion
@@ -780,11 +789,10 @@ see if a link is set for it. Try extra help functions if
necessary."
(browse-url full-link))))
;; A special help routine for source-level syntax help in files.
-(defvar idlwave-help-def-pos)
-(defvar idlwave-help-args)
-(defvar idlwave-help-in-header)
(defvar idlwave-help-fontify-source-code)
(defvar idlwave-help-source-try-header)
+(defvar idlwave-current-tags-buffer)
+(defvar idlwave-current-tags-class)
(defun idlwave-help-with-source (name type class keyword)
"Provide help for routines not documented in the IDL manuals. Works
by loading the routine source file into the help buffer. Depending on
diff --git a/idlw-shell.el b/idlw-shell.el
index f4419ae6f0..0d4eb27736 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -6,7 +6,7 @@
;; Chris Chase <ch...@att.com>
;; Maintainer: J.D. Smith <jdsm...@as.arizona.edu>
;; Version: VERSIONTAG
-;; Date: $Date: 2005/07/03 23:54:12 $
+;; Date: $Date: 2005/07/04 01:29:41 $
;; Keywords: processes
;; This file is part of GNU Emacs.
@@ -3706,7 +3706,7 @@ only for glyphs)."
(interactive "e")
(if ev (mouse-set-point ev))
(let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame)))
- index condition count select)
+ index condition count select cmd disabled)
(unless bp
(error "Breakpoint not found"))
(setq index (int-to-string (idlwave-shell-bp-get bp))
