lisp/emulation/viper-util.el

113 ;; LIST is a list of chars, nil, and negative numbers
116 ;; chars.
300 ;; so we had to use Emacs' chars-in-region to count characters. Since 20.3,
304 (defun viper-chars-in-region (beg end &optional preserve-sign)
305   ;;(let ((count (abs (if (fboundp 'chars-in-region)
306   ;;    		(chars-in-region beg end)
433 	  (skip-chars-forward " \t\n\j")
452   (let ((skip-chars (if one-per-line "\t\n" " \t\n"))
454     (skip-chars-forward skip-chars)
464 		  (concat "[^" skip-chars "]+") nil t))) ;noerror
469       (skip-chars-forward " \t\n")
481       (skip-chars-forward "^*?.\\\\")
670 	    (search-backward var-name)
1230 (defun viper-key-press-events-to-chars (events)
1246 	 ;; skip event if not char
1286 ;; used in skip-chars-forward, which treats - specially. Here we achieve the
1301 (defconst viper-strict-ALPHA-chars "a-zA-Z0-9_"
1304 (defconst viper-strict-SEP-chars " \t\n"
1307 (defconst viper-strict-SEP-chars-sans-newline " \t"
1320 			   "w")   ; Viper words have only Emacs word chars
1322 			   "w_")  ; Viper words have Emacs word & symbol chars
1324 	(non-word-chars (cond ((eq viper-syntax-preference 'reformed-vi)
1330 		      viper-non-word-characters non-word-chars)
1332 	    viper-non-word-characters non-word-chars))
1385 ;; addl-chars are characters to be temporarily considered as alphanumerical
1386 (defun viper-looking-at-alpha (&optional addl-chars)
1387   (or (stringp addl-chars) (setq addl-chars ""))
1389       (setq addl-chars (concat addl-chars "_")))
1393 	    (looking-at (concat "[" viper-strict-ALPHA-chars addl-chars "]"))
1395 	   ;; or one of the additional chars being asked to include
1396 	   (viper-memq-char char (viper-string-to-list addl-chars))
1398 	    ;; not one of the excluded word chars (note:
1410 	    (viper-memq-char char (viper-string-to-list viper-strict-SEP-chars))
1416 (defsubst viper-looking-at-alphasep (&optional addl-chars)
1417   (or (viper-looking-at-separator) (viper-looking-at-alpha addl-chars)))
1419 (defun viper-skip-alpha-forward (&optional addl-chars)
1420   (or (stringp addl-chars) (setq addl-chars ""))
1421   (viper-skip-syntax
1427 	  (concat viper-strict-ALPHA-chars addl-chars))
1428 	 (t addl-chars))))
1430 (defun viper-skip-alpha-backward (&optional addl-chars)
1431   (or (stringp addl-chars) (setq addl-chars ""))
1432   (viper-skip-syntax
1433    'backward
1438 	  (concat viper-strict-ALPHA-chars addl-chars))
1439 	 (t addl-chars))))
1442 (defsubst viper-skip-all-separators-forward (&optional within-line)
1445 	  (skip-chars-forward viper-strict-SEP-chars-sans-newline)
1446 	(skip-chars-forward viper-strict-SEP-chars))
1447     (viper-skip-syntax 'forward
1452 (defsubst viper-skip-all-separators-backward (&optional within-line)
1455 	  (skip-chars-backward viper-strict-SEP-chars-sans-newline)
1456 	(skip-chars-backward viper-strict-SEP-chars))
1457     (viper-skip-syntax 'backward
1461 (defun viper-skip-nonseparators (direction)
1462   (viper-skip-syntax
1469 ;; skip over non-word constituents and non-separators
1470 (defun viper-skip-nonalphasep-forward ()
1472       (skip-chars-forward
1473        (concat "^" viper-strict-SEP-chars viper-strict-ALPHA-chars))
1474     (viper-skip-syntax
1481 (defun viper-skip-nonalphasep-backward ()
1483       (skip-chars-backward
1484        (concat "^" viper-strict-SEP-chars viper-strict-ALPHA-chars))
1485     (viper-skip-syntax
1486      'backward
1492 ;; Skip SYNTAX like skip-syntax-* and ADDL-CHARS like skip-chars-*
1493 ;; Return the number of chars traveled.
1497 (defun viper-skip-syntax (direction syntax addl-chars &optional limit)
1500 	(skip-chars-func
1502 	     'skip-chars-forward 'skip-chars-backward))
1503 	(skip-syntax-func
1505 	     'viper-forward-char-carefully 'viper-backward-char-carefully))
1507     (setq addl-chars
1508 	  (cond ((listp addl-chars) (viper-charlist-to-string addl-chars))
1509 		((stringp addl-chars) addl-chars)
1529 			  (limit ; backward & limit
1543 		   (funcall skip-syntax-func 1)
1545 	       (funcall skip-chars-func addl-chars limit)))