Mercurial > hg > xemacs-beta

comparison lisp/packages/paren.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
76 nested (not yet implemented) use variable shading to see the 76 nested (not yet implemented) use variable shading to see the
77 nesting of an expression. Also groks regular expressions 77 nesting of an expression. Also groks regular expressions
78 and shell quoting. 78 and shell quoting.
79 79
80 This variable is global by default, but you can make it buffer-local and 80 This variable is global by default, but you can make it buffer-local and
81 highlight parentheses differrently in different major modes.") 81 highlight parentheses differently in different major modes.")
82 82
83 (make-face 'paren-match) 83 (make-face 'paren-match)
84 (or (face-differs-from-default-p 'paren-match) 84 (or (face-differs-from-default-p 'paren-match)
85 (copy-face 'highlight 'paren-match)) 85 (copy-face 'highlight 'paren-match))
86 86
310 (setq post-command-hook (delq 'blink-paren-post-command post-command-hook)) 310 (setq post-command-hook (delq 'blink-paren-post-command post-command-hook))
311 311
312 ;;;###autoload 312 ;;;###autoload
313 (defun paren-set-mode (arg &optional quiet) 313 (defun paren-set-mode (arg &optional quiet)
314 "Cycles through possible values for `paren-mode', force off with negative arg. 314 "Cycles through possible values for `paren-mode', force off with negative arg.
315 When called from lisp, a symbolic value for `paren-mode' can be pased directly. 315 When called from lisp, a symbolic value for `paren-mode' can be passed directly.
316 See also `paren-mode' and `paren-highlight'." 316 See also `paren-mode' and `paren-highlight'."
317 (interactive "P") 317 (interactive "P")
318 (let* ((paren-modes '(blink-paren paren sexp)) 318 (let* ((paren-modes '(blink-paren paren sexp))
319 (paren-next-modes (cons nil (append paren-modes (list nil))))) 319 (paren-next-modes (cons nil (append paren-modes (list nil)))))
320 (setq paren-mode (if (and (numberp arg) (< arg 0)) 320 (setq paren-mode (if (and (numberp arg) (< arg 0))