Mercurial > hg > xemacs-beta

comparison lisp/packages/paren.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children 9b50b4588a93
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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
307 (setq post-command-hook (delq 'blink-paren-post-command post-command-hook)) 307 (setq post-command-hook (delq 'blink-paren-post-command post-command-hook))
308 308
309 ;;;###autoload 309 ;;;###autoload
310 (defun paren-set-mode (arg &optional quiet) 310 (defun paren-set-mode (arg &optional quiet)
311 "Cycles through possible values for `paren-mode', force off with negative arg. 311 "Cycles through possible values for `paren-mode', force off with negative arg.
312 When called from lisp, a symbolic value for `paren-mode' can be pased directly. 312 When called from lisp, a symbolic value for `paren-mode' can be passed directly.
313 See also `paren-mode' and `paren-highlight'." 313 See also `paren-mode' and `paren-highlight'."
314 (interactive "P") 314 (interactive "P")
315 (let* ((paren-modes '(blink-paren paren sexp)) 315 (let* ((paren-modes '(blink-paren paren sexp))
316 (paren-next-modes (cons nil (append paren-modes (list nil))))) 316 (paren-next-modes (cons nil (append paren-modes (list nil)))))
317 (setq paren-mode (if (and (numberp arg) (< arg 0)) 317 (setq paren-mode (if (and (numberp arg) (< arg 0))