Lines Matching +defs:struct +defs:tag
188 :tag "IDLWAVE"
189 :link '(url-link :tag "Home Page"
191 :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el"
193 :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el")
334 :type '(choice (const :tag "Any line beginning with `;'" nil)
391 (const :tag "No buffer" nil)
392 (const :tag "All buffers" t)
393 (const :tag "Current buffer only" 'current)))
416 (const :tag "Never" nil)
417 (const :tag "As often as possible" t)
418 (set :tag "Checklist" :greedy t
419 (const :tag "When visiting a file" find-file)
420 (const :tag "When saving a buffer" save-buffer)
421 (const :tag "After a buffer was killed" kill-buffer)
422 (const :tag "After a buffer was compiled successfully, update shell info" compile-buffer))))
500 '(choice :tag "by applying the function"
505 (symbol :tag "Other"))))
546 (cons (symbol :tag "Derive completion case for")
602 :type '(repeat (regexp :tag "Match method:")))
621 :type '(choice (const :tag "Don't show" nil)
622 (integer :tag "Number of classes shown" 1)))
675 (boolean :tag "Determine class when completing METHODS "))
677 (boolean :tag "Determine class when completing KEYWORDS "))
679 :tag "Exceptions to defaults"
681 (cons (string :tag "MODULE" :value "")
682 (boolean :tag "Determine class for this method")))))
733 :type '(choice (const :tag "Nothing" nil)
734 (const :tag "(" t)
735 (const :tag "()" 2)))
793 (const :tag "Pad like assignments" t)
794 (const :tag "Remove space near `='" nil)
795 (const :tag "Keep space near `='" 'keep)))
1043 :type '(set :tag "Specify modifiers"
1062 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
1092 (const :tag "Procedure and Function definitions" pros-and-functions)
1093 (const :tag "Batch Files" batch-files)
1094 (const :tag "IDL Keywords (reserved words)" idlwave-idl-keywords)
1095 (const :tag "Statement Labels" label)
1096 (const :tag "Goto Statements" goto)
1097 (const :tag "Tags in Structure Definition" structtag)
1098 (const :tag "Structure Name" structname)
1099 (const :tag "Common Blocks" common-blocks)
1100 (const :tag "Keyword Parameters" keyword-parameters)
1101 (const :tag "System Variables" system-variables)
1102 (const :tag "FIXME: Warning" fixme)
1103 (const :tag "Object Arrows with class property " class-arrows)))
1950 ;; Set tag table list to use IDLTAGS as file name.
1951 (if (boundp 'tag-table-alist)
1952 (add-to-list 'tag-table-alist '("\\.pro$" . "IDLTAGS")))
3943 (defun idlwave-count-outlawed-buffers (tag)
3944 "How many outlawed buffers have tag TAG?"
3947 (lambda (x) (eq (cdr x) tag))
4299 (defun idlwave-new-sintern-type (tag)
4303 (let* ((name (symbol-name tag))
4317 (defun idlwave-reset-sintern-type (tag)
4319 (set (intern (concat "idlwave-sint-" (symbol-name tag) "s")) nil))
5479 :tag "List of directories"
5809 t = [''] ; get tag list
6726 'procedure, 'class-tag, 'keyword, 'sysvar, etc.. SPECIAL-SELECTOR is
6852 ;; 'class-tag, for class tags, and otherwise for methods.
6866 (inherit (if (and (not (eq type 'class-tag)) super-classes)
6874 (if (eq type 'class-tag)
6878 (idlwave-class-or-superclass-with-tag class-selector x)))
6920 (defun idlwave-attach-class-tag-classes (list)
6922 (idlwave-attach-classes list 'class-tag idlwave-completion-show-classes))
7276 (defvar idlwave-struct-skip
7281 (defvar idlwave-struct-tag-regexp
7283 idlwave-struct-skip ; 4 groups
7284 "\\([a-zA-Z][a-zA-Z0-9_]*\\)" ;the tag itself, group 5
7288 (defun idlwave-struct-tags ()
7290 Point is expected just before the opening `{' of the struct definition."
7292 (let* ((borders (idlwave-struct-borders))
7299 (while (re-search-forward idlwave-struct-tag-regexp end t)
7307 (defun idlwave-find-struct-tag (tag)
7309 (let* ((borders (idlwave-struct-borders))
7313 (re-search-forward (concat "\\(^[ \t]*\\|[,{][ \t]*\\)" tag "[ \t]*:")
7316 (defun idlwave-struct-inherits ()
7317 "Return a list of all `inherits' names in the struct at point.
7318 Point is expected just before the opening `{' of the struct definition."
7320 (let* ((borders (idlwave-struct-borders))
7330 idlwave-struct-skip ; 4 groups
7331 "inherits" ; The INHERITS tag
7332 idlwave-struct-skip ; 4 more
7348 (let ((borders (idlwave-struct-borders)))
7349 (or (= (car borders) (cdr borders)) ;; struct not yet closed...
7352 (defun idlwave-struct-borders ()
7439 class/struct definition"
7491 (cons 'tags (idlwave-struct-tags))
7492 (cons 'inherits (idlwave-struct-inherits)))))
7515 (idlwave-class-tag-reset)
7603 (idlwave-new-sintern-type 'class-tag)
7604 (add-to-list 'idlwave-complete-special 'idlwave-complete-class-structure-tag)
7605 (add-hook 'idlwave-update-rinfo-hook 'idlwave-class-tag-reset)
7607 (defun idlwave-complete-class-structure-tag ()
7608 "Complete a structure tag on a `self' argument in an object method."
7624 (idlwave-prepare-class-tag-completion class-selector))
7626 (list 'idlwave-complete-class-structure-tag-help
7632 'class-tag 'class-tag
7634 (format "Select a tag of class %s" class-selector)
7635 "class tag"
7636 'idlwave-attach-class-tag-classes))
7640 (defun idlwave-class-tag-reset ()
7643 (defun idlwave-prepare-class-tag-completion (class)
7649 (list (idlwave-sintern-class-tag x 'set)))
7663 (add-to-list 'idlwave-complete-special 'idlwave-complete-sysvar-or-tag)
7668 (defun idlwave-complete-sysvar-or-tag ()
7684 ;; Check if the context is right for sysvar tag
7689 ;; Complete a system variable tag
7696 (list 'idlwave-complete-sysvar-tag-help var))
7699 "Select a system variable tag"
7700 "system variable tag")
7716 (defun idlwave-complete-sysvar-tag-help (mode word)
7753 (defvar idlwave-help-do-class-struct-tag nil)
7754 (defun idlwave-complete-class-structure-tag-help (mode word)
7761 (idlwave-class-or-superclass-with-tag
7771 idlwave-help-do-class-struct-tag t))
7774 (defun idlwave-class-or-superclass-with-tag (class tag)
7784 (if (eq t (compare-strings tag 0 nil (car tags) 0 nil t))
9391 ;; arch-tag: f77f3b0c-c37c-424f-a328-0886fd42b6fb