Mercurial > emacs

comparison lisp/simple.el @ 18379:1dd6f63f0ea3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(paren-blinking group): Doc fix. (current-word): Ignore text properties.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Jun 1997 09:16:07 +0000
parents d03c1b315e76
children 78a8721a690c
comparison
equal deleted inserted replaced
18378:22cd8d7dd5aa 18379:1dd6f63f0ea3
2526 (skip-syntax-forward "w_") 2526 (skip-syntax-forward "w_")
2527 (setq end (point))) 2527 (setq end (point)))
2528 (setq end (point)) 2528 (setq end (point))
2529 (skip-syntax-backward "w_") 2529 (skip-syntax-backward "w_")
2530 (setq start (point))) 2530 (setq start (point)))
2531 (buffer-substring start end))) 2531 (buffer-substring-no-properties start end)))
2532 (buffer-substring start end))))) 2532 (buffer-substring-no-properties start end)))))
2533 2533
2534 (defcustom fill-prefix nil 2534 (defcustom fill-prefix nil
2535 "*String for filling to insert at front of new line, or nil for none. 2535 "*String for filling to insert at front of new line, or nil for none.
2536 Setting this variable automatically makes it local to the current buffer." 2536 Setting this variable automatically makes it local to the current buffer."
2537 :type '(choice (const :tag "None" nil) 2537 :type '(choice (const :tag "None" nil)
2875 (if (null arg) (not column-number-mode) 2875 (if (null arg) (not column-number-mode)
2876 (> (prefix-numeric-value arg) 0))) 2876 (> (prefix-numeric-value arg) 0)))
2877 (force-mode-line-update)) 2877 (force-mode-line-update))
2878 2878
2879 (defgroup paren-blinking nil 2879 (defgroup paren-blinking nil
2880 "Blinking (un)matching of parens and expressions." 2880 "Blinking matching of parens and expressions."
2881 :prefix "blink-matching-" 2881 :prefix "blink-matching-"
2882 :group 'paren-matching) 2882 :group 'paren-matching)
2883 2883
2884 (defcustom blink-matching-paren t 2884 (defcustom blink-matching-paren t
2885 "*Non-nil means show matching open-paren when close-paren is inserted." 2885 "*Non-nil means show matching open-paren when close-paren is inserted."