Mercurial > emacs

comparison lisp/progmodes/idlwave.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 09:51:45 +0000
parents a0e466c4d599 7eb454a5ec06
children 2fcaae6177a5
comparison
equal deleted inserted replaced
91203:db40129142b2 91204:53108e6cea98
180 ;; We have the old or no custom-library, hack around it! 180 ;; We have the old or no custom-library, hack around it!
181 (defmacro defgroup (&rest args) nil) 181 (defmacro defgroup (&rest args) nil)
182 (defmacro defcustom (var value doc &rest args) 182 (defmacro defcustom (var value doc &rest args)
183 `(defvar ,var ,value ,doc)))) 183 `(defvar ,var ,value ,doc))))
184 184
185 (declare-function idlwave-shell-get-path-info "idlw-shell")
186 (declare-function idlwave-shell-temp-file "idlw-shell")
187 (declare-function idlwave-shell-is-running "idlw-shell")
188 (declare-function widget-value "wid-edit" (widget))
189 (declare-function comint-dynamic-complete-filename "comint" ())
190 (declare-function Info-goto-node "info" (nodename &optional fork))
191
185 (defgroup idlwave nil 192 (defgroup idlwave nil
186 "Major mode for editing IDL .pro files." 193 "Major mode for editing IDL .pro files."
187 :tag "IDLWAVE" 194 :tag "IDLWAVE"
188 :link '(url-link :tag "Home Page" 195 :link '(url-link :tag "Home Page"
189 "http://idlwave.org") 196 "http://idlwave.org")
7597 7604
7598 (defvar idlwave-current-tags-class nil) 7605 (defvar idlwave-current-tags-class nil)
7599 (defvar idlwave-current-class-tags nil) 7606 (defvar idlwave-current-class-tags nil)
7600 (defvar idlwave-current-native-class-tags nil) 7607 (defvar idlwave-current-native-class-tags nil)
7601 (defvar idlwave-sint-class-tags nil) 7608 (defvar idlwave-sint-class-tags nil)
7609 (declare-function idlwave-sintern-class-tag "idlwave" t t)
7602 (idlwave-new-sintern-type 'class-tag) 7610 (idlwave-new-sintern-type 'class-tag)
7603 (add-to-list 'idlwave-complete-special 'idlwave-complete-class-structure-tag) 7611 (add-to-list 'idlwave-complete-special 'idlwave-complete-class-structure-tag)
7604 (add-hook 'idlwave-update-rinfo-hook 'idlwave-class-tag-reset) 7612 (add-hook 'idlwave-update-rinfo-hook 'idlwave-class-tag-reset)
7605 7613
7606 (defun idlwave-complete-class-structure-tag () 7614 (defun idlwave-complete-class-structure-tag ()
7655 ;; Completing system variables and their structure fields 7663 ;; Completing system variables and their structure fields
7656 ;; This is also a plugin. 7664 ;; This is also a plugin.
7657 7665
7658 (defvar idlwave-sint-sysvars nil) 7666 (defvar idlwave-sint-sysvars nil)
7659 (defvar idlwave-sint-sysvartags nil) 7667 (defvar idlwave-sint-sysvartags nil)
7668 (declare-function idlwave-sintern-sysvar "idlwave" t t)
7669 (declare-function idlwave-sintern-sysvartag "idlwave" t t)
7660 (idlwave-new-sintern-type 'sysvar) 7670 (idlwave-new-sintern-type 'sysvar)
7661 (idlwave-new-sintern-type 'sysvartag) 7671 (idlwave-new-sintern-type 'sysvartag)
7662 (add-to-list 'idlwave-complete-special 'idlwave-complete-sysvar-or-tag) 7672 (add-to-list 'idlwave-complete-special 'idlwave-complete-sysvar-or-tag)
7663 (add-hook 'idlwave-update-rinfo-hook 'idlwave-sysvars-reset) 7673 (add-hook 'idlwave-update-rinfo-hook 'idlwave-sysvars-reset)
7664 (add-hook 'idlwave-after-load-rinfo-hook 'idlwave-sintern-sysvar-alist) 7674 (add-hook 'idlwave-after-load-rinfo-hook 'idlwave-sintern-sysvar-alist)