Lines Matching +defs:at +defs:do
17 ;; the Free Software Foundation; either version 2, or (at your option)
111 ;; the TexInfo documentation or see a complete .emacs available at the
144 ;; Determining the expression at point for printing and other
163 (defalias 'line-beginning-position 'point-at-bol))
165 (defalias 'line-end-position 'point-at-eol))
272 lines at consecutively deeper levels."
323 at the beginning of a line is never changed."
328 "*A comment anchored at the beginning of line.
331 beginning with a \";\". Expressions for comments at the beginning of
663 should contain at least two elements: (method-default . VALUE) and
705 at point."
752 (defcustom idlwave-do-actions nil
873 See documentation for `idlwave-do-action' for a complete description of
884 `idlwave-do-action' for a complete description of the action lists.
967 "*Non-nil means, the documentation header will always be at start of file.
1144 ;; "for" "do" "endfor"
1156 "\\<\\(&&\\|and\\|b\\(egin\\|reak\\)\\|c\\(ase\\|o\\(mpile_opt\\|ntinue\\)\\)\\|do\\|e\\(lse\\|nd\\(case\\|else\\|for\\|if\\|rep\\|switch\\|while\\)?\\|q\\)\\|for\\(ward_function\\)?\\|g\\(oto\\|[et]\\)\\|i\\(f\\|nherits\\)\\|l[et]\\|mod\\|n\\(e\\|ot\\)\\|o\\(n_\\(error\\|ioerror\\)\\|[fr]\\)\\|re\\(peat\\|turn\\)\\|switch\\|then\\|until\\|while\\|xor\\|||\\)\\>")
1349 '(for . ("for\\>" "do"))
1352 '(while . ("while\\>" "do"))
1740 (idlwave-define-abbrev "do" "do" (idlwave-keyword-abbrev 0 t) t)
1796 at that point. When used inside a long constant string, the string
1797 is split at that point with the `+' concatenation operator.
1836 for the system variable, keyword, or routines at point. A single
1845 sensitive and figures out what is expected at point. Lower case
1868 \\[idlwave-doc-header] inserts a documentation header at the
1893 documentation, check IDLWAVE's homepage at `http://idlwave.org'.
2152 (looking-at "[ \t\n\f]"))
2211 ((looking-at "pro\\|case\\|switch\\|function\\>")
2213 ((looking-at "begin\\>")
2249 (unless amp-right ;no need to do it twice, amp-left will catch it.
2268 nil do nothing
2271 integer < 0 at least |n| spaces
2299 "Make space at point.
2303 The amount of space at point is determined by N.
2305 nil - do nothing.
2307 < 0 - a minimum of -N spaces, i.e., do not change if there are
2339 ;; The current line is being split, the cursor should be at the
2359 (if (or (looking-at idlwave-no-change-comment)
2361 (looking-at idlwave-begin-line-comment)
2362 (looking-at "^;")))
2364 (if (looking-at idlwave-code-comment)
2369 ;; after code - do not change
2376 "Continue line by breaking line at point and indent the lines.
2417 If NOMARK is non-nil, do not push mark."
2423 If NOMARK is non-nil, do not push mark."
2449 "Put mark at beginning of program, point at end.
2516 "Put point at beginning of doc library header, mark at end.
2542 (if (looking-at "[ \t]*\\<\\(pro\\|function\\)\\>\\s-+\\(\\([a-zA-Z0-9$_]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)")
2553 Point is placed at the beginning of the line whether or not this is an
2580 (looking-at idlwave-comment-line-start-skip)
2581 (looking-at "[ \t]*$")
2582 (looking-at (concat "[ \t]*" idlwave-label "[ \t]*$"))
2583 (looking-at "^@")))
2626 (looking-at idlwave-comment-line-start-skip)
2627 (looking-at "[ \t]*$")
2628 (looking-at (concat "[ \t]*" idlwave-label "[ \t]*$"))
2629 (looking-at "^@")))))
2672 Returns point at start of substatement modulo whitespace.
2699 (if (looking-at "[ \t]*\\$\\([ \t]*\\(;\\|$\\)\\)")
2713 (while (looking-at "[ \t]*\\$")
2718 (while (and (not (looking-at (nth 0 (cdr (car st)))))
2787 "Call `idlwave-indent-line' and do expand actions.
2794 (looking-at "\\(end\\)\\([ \n\t]\\|\\'\\)"))
2820 (if (looking-at idlwave-comment-line-start-skip)
2830 (if (and expand idlwave-do-actions)
2831 (mapcar 'idlwave-do-action idlwave-indent-expand-table))
2833 (if idlwave-do-actions
2834 (mapcar 'idlwave-do-action idlwave-indent-action-table))
2836 ;; No longer expand abbrevs on the line. The user can do this
2844 (looking-at (concat "^" idlwave-label "[ \t]*$"))
2846 (looking-at "^[ \t]*@"))
2863 (defun idlwave-do-action (action)
2874 (while (idlwave-look-at action-key)
2881 Inserts space before markers at point."
2888 Indents such that first non-whitespace character is at column COL
2889 Inserts spaces before markers at point."
2923 ((idlwave-look-at idlwave-begin-unit-reg)
2942 ((idlwave-look-at idlwave-begin-unit-reg t)
2946 ((idlwave-look-at idlwave-begin-block-reg t)
2950 ((idlwave-look-at idlwave-end-block-reg t)
2964 ((idlwave-look-at idlwave-end-block-reg)
2995 (looking-at "[ \t$]*\\(;.*\\)?$"))
3026 ("\\<\\(for\\|while\\)\\>" . "[ \t]*do")
3036 (if (looking-at (cdr match))
3040 (if (looking-at "end") ;; that one's special
3047 "\\<do\\>"
3056 (if (looking-at (concat ".*" match "[ \t]*\\$[ \t]*"
3068 (looking-at "\\s)")))
3090 (while (idlwave-look-at "&")) ; skip continued statements
3094 (idlwave-look-at "^[ \t]*\\(pro\\|function\\)") ;skip over
3095 (looking-at "[ \t]*\\([a-zA-Z0-9.$_]+[ \t]*->[ \t]*\\)?[a-zA-Z][:a-zA-Z0-9$_]*[ \t]*\\(,\\)[ \t]*"))
3098 (if (save-match-data (looking-at "[ \t$]*\\(;.*\\)?$"))
3104 (while (looking-at "[^=\n\r]*\\(=\\)[ \t]*")
3110 (looking-at "[ \t$]*\\(;.*\\)?$") ; use basic
3184 (while (and found (looking-at block-limit))
3221 ;; if we are at the end of blank line return 0
3232 (idlwave-look-at "\\<\\$")
3234 (while (and (looking-at "^[ \t]*\\(;.*\\)?$")
3236 (if (setq p (idlwave-look-at "\\<\\$")) (throw 'loop p))))))))
3242 (looking-at "[ \t]*;")))
3248 (looking-at "[ \t]*[;\n]")))
3250 (defun idlwave-look-at (regexp &optional cont beg)
3292 (looking-at comment-start))
3301 ;; brute force way to do it.
3335 (while (and (looking-at fill-prefix-reg)
3336 (not (looking-at paragraph-separate))
3344 (while (and (looking-at fill-prefix-reg)
3345 (not (looking-at paragraph-separate))
3349 (if (or (not (looking-at fill-prefix-reg))
3350 (looking-at paragraph-separate))
3353 ;; if at end of buffer add a newline (need this because
3354 ;; fill-region needs END to be at the beginning of line after
3365 ;; point will be at the beginning of a line in which case
3377 ;; each line's indent is at least as great as the hanging
3399 ;; For the following while statement, since START is at the
3400 ;; beginning of line and END is at the end of line
3401 ;; point is greater than START at least once (which would
3429 ;; try to keep point at its original place
3448 ;; When we want the point at the beginning of the comment
3449 ;; body fill-region will put it at the beginning of the line.
3479 non-nil. Places a continuation character at the end of the line if
3483 nil ; do not to fill
3488 (looking-at idlwave-comment-line-start-skip)))
3491 ;; Prevent actions do-auto-fill which calls indent-line-function.
3492 (let (idlwave-do-actions
3500 (do-auto-fill))
3507 (looking-at idlwave-comment-line-start-skip))
3569 ;; Although do-auto-fill (via indent-new-comment-line) calls
3578 In auto-fill mode, inserting a space at a column beyond `fill-column'
3579 automatically breaks the line at a previous space."
3596 "Insert a documentation header at the beginning of the unit.
3598 moving to do insertion unless the optional prefix argument NOMARK
3609 (if (idlwave-look-at "\\<\\(pro\\|function\\)\\>")
3635 "Insert a brief modification log at the beginning of the current program.
3727 (if (looking-at delim)
3731 (while (looking-at delim)
3765 whitespace. S1 and S2 are strings. S1 is inserted at point followed
3787 (if (not (looking-at "\\s-*\n"))
3833 (idlwave-rw-case " do begin\n\nendfor")
3869 (idlwave-rw-case " do begin\n\nendwhile")
3936 (idlwave-do-kill-autoloaded-buffers 'find))
3938 (idlwave-do-kill-autoloaded-buffers 'shell))
3940 (idlwave-do-kill-autoloaded-buffers t))
3950 (defun idlwave-do-kill-autoloaded-buffers (&rest reasons)
3969 Killing would be done by `idlwave-do-kill-autoloaded-buffers'.
4103 (if (looking-at (concat "[ \t]*\\(" comment-start "+\\)"))
4124 ;; the case of procedure names etc. We do this by "interning" these
4133 ;; need to be "sinterned". We do this as early as possible after
4137 ;; buffers for routine information do not intern the grabbed strings.
4169 do (if (not (consp (symbol-value var))) (set var (list nil))))
4176 do (setcdr (symbol-value var)
4186 do (setcar (symbol-value var)
4477 With three prefix args, dispatch asynchronous process to do the update.
4522 ;; We first do the system info, and then the buffers
4544 ;; 1. If we are not going to ask the shell, we need to do the
4550 ;; Therefore, we do a concatenation now, even though
4551 ;; the shell might do it again.
4744 (loop for x in pref-list do
4765 (loop for idx from 0 to 1 do
4800 (loop for x in aliases do
4810 (loop for x in aliases do
4819 (loop for x in all-parts do
4823 (loop for x in aliases do
4829 (loop for x in remove-list do
4836 (loop for x in aliases do
4842 (loop for x in remove-list do
5168 (loop for x in idlwave-routines do
5716 print,item[0:limit-1],'<... truncated at ',strtrim(limit,2),' elements>' $
5756 for j=0,nargs-1 do begin
5765 for j=0,nkw-1 do begin
5783 for i=0L,n_elements(all)-1L do begin
5790 for i=0L,n_elements(all)-1L do begin
5808 for i=0L,n_elements(v)-1 do begin
5885 "Complete a function, procedure or keyword name at point.
5887 at this point.
5908 to override IDLWAVE's idea of what should be completed at point.
6037 (list (idlwave-entry-keywords entry 'do-link)))
6070 (list (idlwave-entry-keywords entry 'do-link))
6102 should use `idlwave-complete-in-buffer' to do some completion and
6373 (looking-at "->[a-zA-Z][a-zA-Z0-9$_]*::")))))
6383 ;; return nil. When t, try to get the class from text properties at
6386 ;; Also stores the selected class as a text property at the arrow.
6405 (looking-at "self\\>")))))
6555 ; ;; FIXME: Do we want to do this at all?
6657 ;; If there is an object at point, move over it and return t.
6664 ((looking-at idlwave-identifier)
6673 (if (not (looking-at idlwave-identifier))
6681 (if (looking-at "[ \t]*->")
6689 and also not part of the current identifier. Since we do this in
6707 (if (looking-at "\\([^\n]*\\)\\$[ \t]*\\(;[^\n]*\\)?\n")
6821 "Complete a class at point."
6859 ;; In these cases, we do not have to do anything
6861 (let* ((do-prop (and (>= show-classes 0)
6863 (do-buf (not (= show-classes 0)))
6864 ;; (do-dots (featurep 'xemacs))
6865 (do-dots t)
6869 (lmax (if do-dots (apply 'max (mapcar 'length list))))
6892 (if do-dots
6895 (if do-buf
6896 ;; We do want info in the buffer
6903 (when do-prop
6904 ;; We do want properties
7099 To do this, PROMPT is displayed and and the user must hit a letter key to
7289 "Return a list of all tags in the structure defined at point.
7308 "Find a given TAG in the structure defined at point."
7317 "Return a list of all `inherits' names in the struct at point.
7616 (looking-at "self\\.")))
7687 (looking-at "\\([a-zA-Z][a-zA-Z0-9_$]*\\)\\.")
7723 ((eq mode 'test) ; we can at least link the main
7753 (defvar idlwave-help-do-class-struct-tag nil)
7771 idlwave-help-do-class-struct-tag t))
7921 (idlwave-do-context-help arg))
7924 "Display online help about the completion at point."
7929 (idlwave-do-mouse-completion-help ev))
7953 (when (looking-at ".?\\(->\\)")
7973 "Call RESOLVE_ROUTINE on the module name at point.
7974 Like `idlwave-routine-info', this looks for a routine call at point.
8069 (idlwave-do-find-module name type class nil this-buffer)))
8071 (defun idlwave-do-find-module (name type class
8129 (looking-at "[ \t]*\\(pro\\|function\\)[ \t]+\\(\\([a-zA-Z0-9_$]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)\\([, \t\n]\\|$\\)")))
8159 (looking-at "[a-zA-Z0-9_]*[ \t]*(")))
8246 (idlwave-routines)) 'do-link))))))
8256 (idlwave-entry-keywords entry 'do-link)))))
8276 (loop for entry in (idlwave-routines) do
8282 (idlwave-entry-keywords entry 'do-link))))
8298 If we do not know about MODULE, just return KEYWORD literally."
8319 ;; We do know the function, which does not have the keyword.
8322 ;; We do not know the function, so this just might be a correct
8370 (keywords (idlwave-entry-keywords entry 'do-link))
8393 (error "No function or procedure call at point"))
8641 (idlwave-do-find-module name type class source)
8690 application, do RESOLVE_ALL, and `C-c C-i' to compile all referenced
8759 (apply 'idlwave-do-find-module
8764 (apply 'idlwave-do-find-module
8977 ;; Look at file names
9092 Assumes that point is at the beginning of the unit as found by