emacs/lisp/simple.el

39 (defcustom idle-update-delay 0.5
40   "*Idle time delay before updating various things on the screen.
51 (defgroup paren-matching nil
52   "Highlight (un)matching of parens and expressions."
53   :group 'matching)
394   (unless delay-mode-hooks
1190   "*Minibuffer history variables for which matching should ignore case.
1192 \\[previous-matching-history-element] and \\[next-matching-history-element]\
1197 (defun previous-matching-history-element (regexp n)
1208 	  (regexp (read-from-minibuffer "Previous element matching (regexp): "
1245 		     "No later matching history item"
1246 		   "No earlier matching history item")))
1265   (if (memq (car (car command-history)) '(previous-matching-history-element
1266 					  next-matching-history-element))
1269 (defun next-matching-history-element (regexp n)
1279 	  (regexp (read-from-minibuffer "Next element matching (regexp): "
1292   (previous-matching-history-element regexp (- n)))
1352     (next-matching-history-element
1356     ;; next-matching-history-element always puts us at (point-min).
2641 	      (sit-for blink-matching-delay)
4454   "Blinking matching of parens and expressions."
4455   :prefix "blink-matching-"
4456   :group 'paren-matching)
4458 (defcustom blink-matching-paren t
4459   "*Non-nil means show matching open-paren when close-paren is inserted."
4463 (defcustom blink-matching-paren-on-screen t
4464   "*Non-nil means show matching open-paren when it is on screen.
4468 This variable has no effect if `blink-matching-paren' is nil.
4474 (defcustom blink-matching-paren-distance (* 25 1024)
4475   "*If non-nil, maximum distance to search backwards for matching open-paren.
4480 (defcustom blink-matching-delay 1
4481   "*Time in seconds to delay after showing a matching paren."
4485 (defcustom blink-matching-paren-dont-ignore-comments nil
4486   "*If nil, `blink-matching-paren' ignores comments.
4487 More precisely, when looking for the matching parenthesis,
4492 (defun blink-matching-open ()
4496 	     blink-matching-paren
4505 	   message-log-max  ; Don't log messages about paren matching.
4506 	   matching-paren
4510 	  (if blink-matching-paren-distance
4512 				     (- (point) blink-matching-paren-distance))
4517 			  (not blink-matching-paren-dont-ignore-comments))))
4523 	     (setq matching-paren
4529 	 ((not (or (eq matching-paren (char-before oldpos))
4531                    ;; a matching-char info, in which case the two CDRs
4533                    (eq matching-paren (cdr (syntax-after (1- oldpos))))))
4536 	  (if (not blink-matching-paren-distance)
4540 	  ;; if `blink-matching-paren-on-screen' is non-nil.
4541 	  (and blink-matching-paren-on-screen
4545 		 (sit-for blink-matching-delay))))
4584 (setq blink-paren-function 'blink-matching-open)