Mercurial > emacs

comparison lisp/subr.el @ 83227:3ec251523b3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-673 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-674 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-675 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-676 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-677 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-681 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-682 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-683 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-684 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-685 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-686 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-687 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-692 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-267
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 13 Nov 2004 18:34:40 +0000
parents 4056279af756 a683f1bc6fbe
children 2a3f27a45698
comparison
equal deleted inserted replaced
83226:9ea0f6980511 83227:3ec251523b3e
2219 (let ((table (make-char-table 'syntax-table nil))) 2219 (let ((table (make-char-table 'syntax-table nil)))
2220 (set-char-table-parent table (or oldtable (standard-syntax-table))) 2220 (set-char-table-parent table (or oldtable (standard-syntax-table)))
2221 table)) 2221 table))
2222 2222
2223 (defun syntax-after (pos) 2223 (defun syntax-after (pos)
2224 "Return the syntax of the char after POS." 2224 "Return the syntax of the char after POS.
2225 The value is either a syntax class character (a character that designates
2226 a syntax in `modify-syntax-entry'), or a cons cell
2227 of the form (CLASS . MATCH), where CLASS is the syntax class character
2228 and MATCH is the matching parenthesis."
2225 (unless (or (< pos (point-min)) (>= pos (point-max))) 2229 (unless (or (< pos (point-min)) (>= pos (point-max)))
2226 (let ((st (if parse-sexp-lookup-properties 2230 (let* ((st (if parse-sexp-lookup-properties
2227 (get-char-property pos 'syntax-table)))) 2231 (get-char-property pos 'syntax-table)))
2228 (if (consp st) st 2232 (value
2229 (aref (or st (syntax-table)) (char-after pos)))))) 2233 (if (consp st) st
2234 (aref (or st (syntax-table)) (char-after pos))))
2235 (code (if (consp value) (car value) value)))
2236 (setq code (aref "-.w_()'\"$\\/<>@!|" code))
2237 (if (consp value) (cons code (cdr value)) code))))
2230 2238
2231 (defun add-to-invisibility-spec (arg) 2239 (defun add-to-invisibility-spec (arg)
2232 "Add elements to `buffer-invisibility-spec'. 2240 "Add elements to `buffer-invisibility-spec'.
2233 See documentation for `buffer-invisibility-spec' for the kind of elements 2241 See documentation for `buffer-invisibility-spec' for the kind of elements
2234 that can be added." 2242 that can be added."