Browse files

- Pre-declare all variables to quiet compiler warnings

  • Loading branch information...
1 parent 7e30e23 commit e8d35428c0a633a045044570ff53ba1d5de3582c jdsmith committed Jul 4, 2005
Showing with 19 additions and 7 deletions.
  1. +5 −1 idlw-complete-structtag.el
  2. +12 −4 idlw-help.el
  3. +2 −2 idlw-shell.el
View
6 idlw-complete-structtag.el
@@ -4,7 +4,7 @@
;; Author: Carsten Dominik <dominik@astro.uva.nl>
;; Maintainer: J.D. Smith <jdsmith@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
View
16 idlw-help.el
@@ -4,7 +4,7 @@
;; Copyright (c) 2003,2004,2005 Free Software Foundation
;;
;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
-;; Carsten Dominik <dominik@astro.uva.nl>
+;; Carsten Dominik <dominik@science.uva.nl>
;; Maintainer: J.D. Smith <jdsmith@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
View
4 idlw-shell.el
@@ -6,7 +6,7 @@
;; Chris Chase <chase@att.com>
;; Maintainer: J.D. Smith <jdsmith@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))

0 comments on commit e8d3542

Please sign in to comment.