[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-complete-structtag.el
From: |
John-David T. Smith |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-complete-structtag.el |
Date: |
Thu, 06 Apr 2006 18:46:56 +0000 |
Index: emacs/lisp/progmodes/idlw-complete-structtag.el
diff -u emacs/lisp/progmodes/idlw-complete-structtag.el:3.6
emacs/lisp/progmodes/idlw-complete-structtag.el:3.7
--- emacs/lisp/progmodes/idlw-complete-structtag.el:3.6 Fri Feb 10 09:00:30 2006
+++ emacs/lisp/progmodes/idlw-complete-structtag.el Thu Apr 6 18:46:56 2006
@@ -1,8 +1,7 @@
;;; idlw-complete-structtag.el --- Completion of structure tags.
-;; Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006
-;; Free Software Foundation, Inc.
+;; Copyright (c) 2001,2002,2003,2004,2005,2006 Free Software Foundation
-;; Author: Carsten Dominik <address@hidden>
+;; Author: Carsten Dominik <address@hidden>
;; Maintainer: J.D. Smith <address@hidden>
;; Version: 1.2
;; Keywords: languages
@@ -54,10 +53,10 @@
;;
;; INSTALLATION
;; ============
-;; Put this file on the emacs load path and load it with the following
+;; Put this file on the emacs load path and load it with the following
;; line in your .emacs file:
;;
-;; (add-hook 'idlwave-load-hook
+;; (add-hook 'idlwave-load-hook
;; (lambda () (require 'idlw-complete-structtag)))
;;
;; DESCRIPTION
@@ -88,7 +87,7 @@
;; - You can force an update of the tag list with the usual command
;; to update routine info in IDLWAVE: C-c C-i
-(defvar idlwave-completion-help-info)
+(require 'idlwave)
;; Some variables to identify the previously used structure
(defvar idlwave-current-tags-var nil)
@@ -107,7 +106,7 @@
(add-hook 'idlwave-update-rinfo-hook 'idlwave-structtag-reset)
;;; The main code follows below
-
+(defvar idlwave-completion-help-info)
(defun idlwave-complete-structure-tag ()
"Complete a structure tag.
This works by looking in the current file for a structure assignment to a
@@ -146,9 +145,9 @@
(not (equal start idlwave-current-tags-completion-pos)))
(idlwave-prepare-structure-tag-completion var))
(setq idlwave-current-tags-completion-pos start)
- (setq idlwave-completion-help-info
+ (setq idlwave-completion-help-info
(list 'idlwave-complete-structure-tag-help))
- (idlwave-complete-in-buffer 'structtag 'structtag
+ (idlwave-complete-in-buffer 'structtag 'structtag
idlwave-current-struct-tags nil
"Select a structure tag" "structure tag")
t) ; we did the completion: return t to skip other completions
@@ -167,7 +166,7 @@
(if (eq major-mode 'idlwave-shell-mode)
;; OK, we are in the shell, do it dynamically
(progn
- (message "preparing shell tags")
+ (message "preparing shell tags")
;; The following call puts the tags into `idlwave-current-struct-tags'
(idlwave-complete-structure-tag-query-shell var)
;; initialize
@@ -189,7 +188,7 @@
;; Find possible definitions of the structure.
(while (idlwave-find-structure-definition var nil 'all)
(let ((tags (idlwave-struct-tags)))
- (when tags
+ (when tags
;; initialize
(setq idlwave-sint-structtags nil
idlwave-current-tags-buffer (current-buffer)
@@ -242,4 +241,3 @@
;;; idlw-complete-structtag.el ends here
-;; arch-tag: d1f9e55c-e504-4187-9c31-3c3651fa4bfa
- [Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-complete-structtag.el,
John-David T. Smith <=