Lines Matching +defs:insert +defs:char
34 (defvar viper-minibuffer-insert-face)
83 (fset 'viper-int-to-char (symbol-function 'int-to-char))
101 (fset 'viper-int-to-char (symbol-function 'identity))
112 ;; CHAR is supposed to be a char or an integer (positive or negative)
117 (defun viper-memq-char (char list)
118 (cond ((and (integerp char) (>= char 0))
119 (memq (viper-int-to-char char) list))
120 ((memq char list))))
122 ;; Check if char-or-int and char are the same as characters
123 (defun viper-char-equal (char-or-int char)
124 (cond ((and (integerp char-or-int) (>= char-or-int 0))
125 (= (viper-int-to-char char-or-int) char))
126 ((eq char-or-int char))))
129 (defun viper= (char char1)
130 (cond ((eq char char1) t)
131 ((and (viper-characterp char) (viper-characterp char1))
132 (= char char1))
176 ((eq viper-current-state 'insert-state)
177 (viper-change-cursor-color viper-insert-state-cursor-color frame))
197 'viper-saved-cursor-color-in-insert-mode))
212 (defsubst viper-get-saved-cursor-color-in-insert-mode ()
217 'viper-saved-cursor-color-in-insert-mode)
238 (t (viper-get-saved-cursor-color-in-insert-mode)))
291 (goto-char (+ (viper-line-pos 'start) (viper-line-pos 'end) 2)))
296 (goto-char cur-pos)
302 ;; counting each char as just one pos. So, now we can simply subtract beg from
429 (goto-char (point-min))
442 (goto-char (point-min))
468 (forward-char 1))
478 (insert wcard)
479 (goto-char (point-min))
482 (cond ((eq (char-after (point)) ?*) (insert ".")(forward-char 1))
483 ((eq (char-after (point)) ?.) (insert "\\")(forward-char 1))
484 ((eq (char-after (point)) ?\\) (insert "\\")(forward-char 1))
485 ((eq (char-after (point)) ??) (delete-char 1)(insert ".")))
499 (insert filespec)
500 (goto-char (point-min))
562 ;; insert with a prefix argument, or if this-command-keys doesn't give
568 (viper-ring-insert (eval ring-var) item))
603 (defun viper-ring-insert (ring item)
667 (goto-char (point-min))
672 (goto-char (match-beginning 0))
673 (insert (format "%s '%S" var-name var-val)))
674 (goto-char (point-max))
675 (if (not (bolp)) (insert "\n"))
676 (insert (format "(setq %s '%S)\n" var-name var-val)))
692 (goto-char (point-min))
694 (goto-char (point-max))
695 (if string (insert string))
830 (viper-restore-cursor-color 'after-insert-mode)
981 ;; like read-event, but in XEmacs also try to convert to char, if possible
982 (defun viper-read-event-convert-to-char ()
1006 (viper-insert-intercept-minor-mode nil)
1008 (viper-insert-global-user-minor-mode nil)
1009 (viper-insert-local-user-minor-mode nil))
1028 help-char key)
1063 ;; Emacs has the oddity whereby characters 128+char
1064 ;; represent M-char *if* this appears inside a string.
1065 ;; So, we convert them manually to (meta char).
1085 (intern (char-to-string basis)))))
1091 (let (key-name char-p modifiers mod-char-list base-key base-key-name)
1097 (string-to-char key-name))
1113 char-p (= (length base-key-name) 1))
1114 (setq mod-char-list
1118 (if char-p
1123 (mapconcat 'identity mod-char-list "-\\")
1129 (mapconcat 'identity mod-char-list "-")
1192 (defun viper-char-symbol-sequence-p (vec)
1202 (defun viper-char-array-p (array)
1216 (cond ((viper-char-symbol-sequence-p temp)
1218 ((and (viper-char-array-p
1220 (mapconcat 'char-to-string temp2 ""))
1222 ((viper-char-symbol-sequence-p event-seq)
1225 (viper-char-array-p
1227 (mapconcat 'char-to-string temp ""))
1232 (lambda (elt) (char-to-string (event-to-character elt))) ; xemacs
1233 'char-to-string ; emacs
1239 (defun viper-read-char-exclusive ()
1240 (let (char
1242 (while (null char)
1244 (setq char (read-char))
1246 ;; skip event if not char
1248 char))
1259 (string-to-char (symbol-name key)))
1275 (viper-ring-insert viper-related-files-and-buffers-ring elt))
1277 (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))
1296 (viper-deflocalvar viper-ALPHA-char-class "w"
1311 (defconst viper-SEP-char-class " -"
1329 (setq-default viper-ALPHA-char-class preference
1331 (setq viper-ALPHA-char-class preference
1390 (let ((char (char-after (point))))
1391 (if char
1396 (viper-memq-char char (viper-string-to-list addl-chars))
1400 (not (viper-memq-char char viper-non-word-characters))
1401 ;; char of the Viper-word syntax class
1402 (viper-memq-char (char-syntax char)
1403 (viper-string-to-list viper-ALPHA-char-class))))))
1407 (let ((char (char-after (point))))
1408 (if char
1410 (viper-memq-char char (viper-string-to-list viper-strict-SEP-chars))
1411 (or (eq char ?\n) ; RET is always a separator in Vi
1412 (viper-memq-char (char-syntax char)
1413 (viper-string-to-list viper-SEP-char-class)))))
1425 (t viper-ALPHA-char-class))
1436 (t viper-ALPHA-char-class))
1448 viper-SEP-char-class
1458 viper-SEP-char-class
1464 (concat "^" viper-SEP-char-class)
1476 (concat "^" viper-ALPHA-char-class viper-SEP-char-class)
1487 (concat "^" viper-ALPHA-char-class viper-SEP-char-class)
1505 'viper-forward-char-carefully 'viper-backward-char-carefully))
1506 char-looked-at syntax-of-char-looked-at negated-syntax)
1521 (setq char-looked-at (viper-char-at-pos direction)
1523 syntax-of-char-looked-at (if char-looked-at
1524 (char-syntax char-looked-at)))
1532 ;; char under/before cursor has appropriate syntax
1534 (not (memq syntax-of-char-looked-at syntax))
1535 (memq syntax-of-char-looked-at syntax))
1536 ;; if char-syntax class is "word", make sure it is not one
1538 (if (and (eq syntax-of-char-looked-at ?w)
1540 (not (viper-memq-char
1541 char-looked-at viper-non-word-characters))
1553 (not (eq (get-char-property (point) 'field)
1554 (get-char-property (1- (point)) 'field)))))