Lines Matching +defs:next +defs:error
78 (error nil))
81 (error nil))
113 (t '(error "Cannot implement color-defined-p")))))
1113 (error nil)))
1119 `(error "This version of Emacs has no `ps-extend-face-list'")))
1155 (cperl-define-key "\C-c\C-v" 'cperl-next-interpolated-REx)
1156 (cperl-define-key "\C-c\C-x" 'cperl-next-interpolated-REx-0)
1157 (cperl-define-key "\C-c\C-y" 'cperl-next-interpolated-REx-1)
1247 ["Find next interpolated" cperl-next-interpolated-REx
1248 (next-single-property-change (point-min) 'REx-interpolated)]
1249 ["Find next interpolated (no //o)"
1250 cperl-next-interpolated-REx-0
1253 ["Find next interpolated (neither //o nor whole-REx)"
1254 cperl-next-interpolated-REx-1
1266 ["Next error" next-error (get-buffer "*compilation*")]
1283 (next-single-property-change (point-min) 'in-pod nil (point-max)))
1289 (next-single-property-change (point-min) 'here-doc-group nil (point-max)))
1379 (error nil))
1507 (defvar cperl-compilation-error-regexp-alist nil)
1558 return. It places you in the next line with proper indentation, or if
1793 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
1794 (make-local-variable 'compilation-error-regexp-alist-alist)
1795 (set 'compilation-error-regexp-alist-alist
1796 (cons (cons 'cperl cperl-compilation-error-regexp-alist)
1797 (symbol-value 'compilation-error-regexp-alist-alist)))
1798 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
1799 (let ((f 'compilation-build-compilation-error-regexp-alist))
1801 (make-local-variable 'compilation-error-regexp-alist)
1802 (push 'cperl compilation-error-regexp-alist)))
1803 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
1804 (make-local-variable 'compilation-error-regexp-alist)
1805 (set 'compilation-error-regexp-alist
1806 (append cperl-compilation-error-regexp-alist
1807 (symbol-value 'compilation-error-regexp-alist)))))
2045 (error nil))))
2207 (error nil))
2579 (error nil)))
2695 (beginning-of-line 2))) ; Go to the next line.
2734 (error "Spaces before POD section!"))
2925 (or (next-single-property-change (point) 'in-pod)
3067 (error "Unrecognized value of indent: %s" i))))
3181 (error "Unrecognized value of indent: %s" i))))
3183 (error "Got strange value of indent: %s" i))))))
3375 (setq e (next-single-property-change (point) 'syntax-type nil (point-max))))
3474 is s/// or tr/// like expression. If END is nil, generates an error
3477 error message in its CAR (unless it already contains some error
3478 message). ARGUMENT should be the name of the construct (used in error
3512 (error "Unfinished regular expression"))
3549 (error (goto-char lim)
3573 Return the error message (if any). Does not work if delimiter is `)'.
3586 (error (message
3587 "cperl-forward-group-in-re: error %s" b)))
3660 end (next-single-property-change end 'syntax-type nil (point-max)))
3714 (error (message
3957 b1 nil) ; error condition
4071 (error t)))))))
4072 (error nil))) ; func(<<EOF)
4293 (error nil)))
4424 (error t))))
4544 (error font-lock-warning-face)))
4847 (t (error "Error in regexp of the sniffer")))
4957 (error nil))))
5019 (error nil)))
5037 (error t))))
5046 (error nil)))
5120 (error (setq done t)))
5316 (error nil)))
5492 (error
5719 (defvar cperl-compilation-error-regexp-alist
5795 "foreach" "continue" "exit" "die" "last" "goto" "next"
5879 ;; "grep" "if" "keys" "last" "local" "map" "my" "next"
5947 '("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
5987 (error
5990 (error nil)))) ; typeahead
6307 (error (message "cperl-init-faces (ignored): %s" errs))))
6610 (or cperl-old-style (error "The style was not changed"))
6821 (error "Cannot line up in a middle of the word"))
6823 (error "Cannot line up end of line"))
6835 (error "The construction to line up occurred only once"))
6865 ;;(error "Not implemented: recursive")
6874 ;;(error "Not implemented: all")
7019 (error (if cperl-unreadable-ok nil
7023 (error "Aborting: unreadable file %s" ifile)))))
7031 (error (message "While scanning for syntax: %s" err))))
7124 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
7148 (error
7154 (error "Aborting: unreadable directory %s" file)))))))
7235 ;; Moves to beginning of the next line:
7298 (error "No items found"))
7479 'cperl-next-bad-style
7500 (defun cperl-next-bad-style ()
7548 (defvar cperl-message-on-help-error t)
7619 (if cperl-message-on-help-error
7667 (if cperl-message-on-help-error
7677 $! In numeric context: errno. In a string context: error string.
7713 $@ The perl error message from the last eval or do @var{EXPR} command.
7721 $^E Information about the last system error other than that provided by $!.
7818 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
7822 \\u Upcase the next character. See also \\U and \\l, ucfirst.
7852 continue of { block } continue { block }. Is executed after `next' or at end.
7939 next [LABEL]
8182 (error "[]-group not terminated"))
8194 (error "[:POSIX:]-group in []-group not terminated"))
8197 (error "[]-group not terminated"))
8213 ;; (error "()-group not terminated")))
8282 (error "Unknown code `%s' in a regexp"
8297 (error "I need to have a regexp marked!"))
8311 (error "Possible s/blah// - do not know how to deal with"))
8345 (error "Cannot find `(' which starts a group"))
8381 (error ; We are outside outermost group
8431 (error "Can't find `if', `unless', `while', `until', `for' or `foreach'"))
8501 (error nil)))))
8519 (error nil))
8520 (error
8535 (error "`%s' inside `%s' BLOCK" A if-string))
8586 (error "`%s' (EXPR) not with an {BLOCK}" if-string)))
8587 ;; (error "`%s' not with an (EXPR)" if-string)
8590 ;;(error "Not at `if', `unless', `while', `until', `for' or `foreach'")
8609 (error "No perldoc args given")
8682 (error "Malformed Man-filter-list"))
8689 (defun cperl-next-interpolated-REx-1 ()
8690 "Move point to next REx which has interpolated parts without //o.
8695 (cperl-next-interpolated-REx 1))
8697 (defun cperl-next-interpolated-REx-0 ()
8698 "Move point to next REx which has interpolated parts without //o."
8700 (cperl-next-interpolated-REx 0))
8702 (defun cperl-next-interpolated-REx (&optional skip beg limit)
8703 "Move point to next REx which has interpolated parts.
8718 (setq beg (next-single-property-change beg 'syntax-type nil limit)))
8773 (setq posend (next-single-property-change pos prop nil end))
8789 (e (next-single-property-change pos 'syntax-type)))
8798 (or p (error "Not inside a HERE document"))
8821 (error "Faces can only be set within POD"))
8827 (error "Face %s not configured for cperl-mode"
8834 doing next incremental fontification, LIM is the maximal number of
8862 "Emulate `lazy-lock' without `condition-case', so `debug-on-error' works.
8928 (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t))
8965 (error nil)))
8968 (setq end (next-single-property-change end 'syntax-type nil (point-max)))
9013 posend (next-single-property-change pos 'cperl-postpone nil end))
9027 (setq posend (next-single-property-change pos 'cperl-postpone))