Lines Matching +defs:char +defs:equal
166 (unless (fboundp 'char-valid-p)
167 (defalias 'char-valid-p 'characterp))
220 A value equal to negative `idlwave-block-indent' will make END lines
722 (defcustom idlwave-keyword-completion-adds-equal t
758 (defcustom idlwave-abbrev-start-char "\\"
1173 (goto-char (match-end 0)) ; needed for XEmacs, could be nil
1379 the leftover unidentified statements containing an equal sign." )
1390 (defvar idlwave-comment-indent-char ?\
1394 (defconst idlwave-continuation-char ?$
1497 A minimum of 1 space before and after `=' (see `idlwave-expand-equal').
1498 (idlwave-action-and-binding \"=\" '(idlwave-expand-equal -1 -1))
1501 (if (not (equal select 'noaction))
1514 (equal select 'noaction)
1515 (equal select 'both))
1559 (not (equal idlwave-shell-debug-modifiers '())))
1619 ;; Automatically add spaces to equal sign if not keyword. This needs
1621 (idlwave-action-and-binding "=" '(idlwave-expand-equal -1 -1))
1648 (if noprefix name (concat idlwave-abbrev-start-char name))
1656 (modify-syntax-entry (string-to-char idlwave-abbrev-start-char)
2027 (goto-char beg)
2030 (goto-char pos)
2084 ((equal idlwave-abbrev-change-case 'down)
2090 (setq idlwave-command-hook (list 'backward-char (1+ arg)))
2091 (backward-char arg)))
2116 (backward-char 1)
2133 (inq last-command-char))
2135 (let ((delim (char-after bq)))
2139 (goto-char bq)
2151 (backward-char 1)
2160 ;;(insert-char ?\ 1) ;; So indent, etc. work well
2161 ;;(backward-char 1)
2172 (goto-char last-abbrev-marker)
2179 (goto-char end-pos)
2185 (goto-char begin-pos)
2195 (goto-char pos)
2196 (backward-char 3)
2198 (delete-char 3)))
2205 ;;(delete-char 1))
2244 (let* ((prev-char (char-after (- (point) 2)))
2245 (next-char (char-after (point)))
2246 (amp-left (eq prev-char ?&))
2247 (amp-right (eq next-char ?&))
2254 (let* ((prev-char (char-after (- (point) 2)))
2255 (next-char (char-after (point)))
2256 (method-invoke (and gtr (eq prev-char ?-)))
2258 (unless (eq next-char ?=)
2278 (backward-char length)
2288 (goto-char here)))
2291 (forward-char length)
2294 (if (and (equal (char-after (1- (point))) ?\ )
2319 (goto-char (+ left n)))
2322 (goto-char (- left n)))
2392 (progn (insert (setq beg (char-after beg)) " + "
2393 idlwave-continuation-char beg)
2394 (backward-char 1)
2396 (forward-char 1))
2400 (insert " " idlwave-continuation-char))
2402 (if (not (member (char-before) '(?\ ?\t)))
2404 (insert idlwave-continuation-char)
2411 (goto-char (- (point-max) beg))
2521 (goto-char (point-max))
2531 (goto-char here)))))
2559 (goto-char (match-end 0))))
2636 (goto-char (match-end 0))
2638 (goto-char save-point)
2639 (if (eq (char-after (- (point) 2)) ?&) (goto-char save-point))))
2663 (forward-char)
2665 (goto-char start)
2688 (if (equal (car st) 'if) (setq ifnest (1+ ifnest)))
2691 (goto-char (match-end 0)))
2694 (goto-char (match-end 0)))
2697 (if pre (goto-char last))
2723 (defun idlwave-expand-equal (&optional before after is-action)
2727 equal sign will be surrounded by BEFORE and AFTER blanks. If
2756 (backward-char)
2795 (progn (goto-char (match-end 1))
2859 (goto-char mloc)
2953 (goto-char beg-prev-pos)
2979 (goto-char open)
2994 (forward-char 1)
3017 (goto-char beg-last-statement)
3031 (goto-char end-reg)
3052 (goto-char end-reg)
3066 (goto-char end-reg)
3089 (goto-char beg-reg)
3096 (goto-char (match-end 0))
3105 (goto-char (match-end 0))
3112 (goto-char beg-last-statement)
3151 (goto-char found)
3189 (if (not found) (goto-char unit-limit)
3271 (if (not found) (goto-char here))
3334 (goto-char bcl)
3343 (goto-char bcl)
3357 (progn (insert ?\n) (backward-char 1)))
3374 (goto-char start)
3430 (goto-char here)
3439 (subst-char-in-region start (+ start first-indent -1) ?\ ?~ nil)
3446 (goto-char start)
3527 (goto-char (- (point-max) here)))
3557 (insert " " (char-after beg) " +"))
3565 (insert (char-after beg)))
3604 (goto-char (point-min))
3619 (goto-char pos)))
3645 (goto-char (point-min))
3651 (goto-char beg)
3656 (goto-char end)
3680 (goto-char (min start end))
3722 (goto-char (1+ (match-beginning 0)))
3725 (setq delim (char-to-string (preceding-char)))
3728 (progn (setq endq (point)) (forward-char 1))
3732 (forward-char 1)
3747 (eq (char-after) ?\*)
3750 (forward-char)
3778 (equal last-abbrev-location (point)))
3933 (let ((c (read-char)))
4099 (goto-char beg)
4177 (make-hash-table ':size size ':test 'equal)))
4187 (make-hash-table ':size size ':test 'equal))))))
4372 ((equal (process-status idlwave-catalog-process) 'exit)
4376 ((equal (process-status idlwave-catalog-process) 'run)
4492 ((equal arg '(64))
4495 ((equal arg '(16))
4572 (not (equal 0 idlwave-init-rinfo-when-idle-after))
5210 ;; will be equal, but not eq.
5247 (goto-char (point-min))
5296 (if (equal type "pro") 'pro 'fun)
5489 (goto-char (point-min))
5567 (goto-char (point-max)))
5571 (goto-char (point-min))
5611 (goto-char (point-max)))
5904 See also the variables `idlwave-keyword-completion-adds-equal' and
5935 (or (and (integerp arg) (not (equal arg '(16))))
5940 (idlwave-force-class-query (equal arg '(4)))
5942 (if (equal arg '(16))
6021 (equal arg '(4)))
6130 ((equal what 0)
6279 (not (equal 1 syslibp)))
6372 (save-excursion (goto-char apos)
6402 (save-excursion (goto-char apos)
6518 (last-char (idlwave-last-valid-char))
6546 (memq last-char '(?\( ?,)))
6549 ((and pro (eq last-char ?,))
6552 ; ((member last-char '(?\' ?\) ?\] ?!))
6570 last-char)))
6603 (when (and (= (following-char) ?\()
6608 func-point (goto-char (match-beginning 2))
6620 (goto-char pos))
6665 (goto-char (match-end 0)))
6666 ((eq (following-char) ?\()
6671 (cond ((eq (following-char) ?.)
6672 (forward-char 1)
6675 (goto-char (match-end 0)))
6676 ((memq (following-char) '(?\( ?\[))
6684 (goto-char pos)
6687 (defun idlwave-last-valid-char ()
6698 (if (eq (preceding-char) ?/)
6699 (backward-char 1))
6704 ((memq (preceding-char) '(?\; ?\$)) (throw 'exit nil))
6705 ((eq (preceding-char) ?\n)
6709 (goto-char (match-end 1))
6711 (t (throw 'exit (preceding-char))))))))
6739 (setq slash (eq (preceding-char) ?/)
6759 ((and (not (equal dpart dcompletion))
6779 (equal dpart dcompletion)))
6800 ; (lambda () (and (eq (preceding-char) ?>)
6831 (goto-char (point-min))
7108 keys-alist char)
7118 (mapconcat (lambda(x) (char-to-string (car x)))
7128 (setq char (read-char)))
7129 (setq char (read-char)))
7132 (nth 2 (assoc char keys-alist))))
7137 (let ((l alist) keys-alist name start char help
7147 (setq char (string-to-char (downcase (match-string 1 name)))
7148 help (format "%c: %s" char name)
7149 keys-alist (cons (list char help name) keys-alist))
7155 char (string-to-char (downcase (match-string 0 name))))
7156 (if (not (assoc char keys-alist))
7158 (setq help (format "%c: %s" char
7162 keys-alist (cons (list char help name) keys-alist))
7168 char (string-to-char (match-string 0 name)))
7169 (if (not (assoc char keys-alist))
7171 (setq help (format "%c: %s" char
7175 keys-alist (cons (list char help name) keys-alist))
7178 (setq char (string-to-char (int-to-string (setq cnt (1+ cnt))))
7179 help (format "%c: %s" char name)
7180 keys-alist (cons (list char help name) keys-alist))))
7296 (goto-char beg)
7304 (goto-char (match-end 0))))
7325 (goto-char beg)
7339 (goto-char (match-end 0))))
7359 (error (goto-char beg)))
7388 (goto-char (match-beginning 3))
7484 (goto-char 1)
7623 (if (not (equal class-selector idlwave-current-tags-class))
7676 (equal (char-before) ?!))
7686 (and (equal (char-before) ?!)
7852 (goto-char (point-min))
7859 (let ((ht (make-hash-table :size (length list) :test 'equal)))
7875 ((equal idlwave-function-completion-adds-paren nil) nil)
7876 ((or (equal idlwave-function-completion-adds-paren t)
7877 (equal idlwave-function-completion-adds-paren 1))
7879 ((equal idlwave-function-completion-adds-paren 2)
7881 (backward-char 1))
7884 (if (and idlwave-keyword-completion-adds-equal
7898 (equal (marker-position idlwave-completion-mark)
7952 (backward-char 1)
7965 (idlwave-force-class-query (equal arg '(4)))
7982 (idlwave-force-class-query (equal arg '(4)))
8026 (idlwave-force-class-query (equal arg '(16)))
8027 (this-buffer (equal arg '(4)))
8066 type (cond ((equal type "f") 'fun)
8067 ((equal type "p") 'pro)
8093 ((or (null name) (equal name ""))
8106 (goto-char (point-max))
8117 (goto-char (match-beginning 0))
8119 (goto-char pos)
8135 (if (equal (downcase (match-string 1)) "pro") 'pro 'fun)
8144 (next-char (save-excursion (skip-chars-forward "a-zA-Z0-9$_")
8145 (following-char)))
8149 (not (equal this-word "")))
8157 (not (equal this-word ""))
8158 (or (eq next-char ?\() ; exclude arrays, vars.
8167 (not (equal this-word ""))
8168 (eq next-char ?\()) ; A function!
8205 (equal (downcase name) "obj_new")
8228 (if (and (equal (upcase name) "OBJ_NEW")
8392 ((or (null name) (equal name ""))
8417 (if (equal (downcase c) (downcase class))
8475 (if (equal cnt 1)
8487 (goto-char (point-min))
8569 (when (and file (not (equal file "")))
8649 (goto-char (marker-position idlwave-rinfo-marker)))))
8664 (if (eq (preceding-char) ?/)
8674 idlwave-keyword-completion-adds-equal)
8798 (goto-char (point-min))
8907 ((not (equal (idlwave-downcase-safe class)
8913 ((not (equal (downcase name) (downcase (car b))))