Mercurial > emacs
comparison lisp/subr.el @ 83291:bbf359ec4a59
Merged from miles@gnu.org--gnu-2005 (patch 269)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-269
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-331
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Mon, 25 Apr 2005 11:47:55 +0000 |
| parents | 26c9034f3533 c95f35bea727 |
| children | ad07ff6e4555 |
comparison
equal
deleted
inserted
replaced
| 83290:042f282a2ed7 | 83291:bbf359ec4a59 |
|---|---|
| 2296 (let ((st (if parse-sexp-lookup-properties | 2296 (let ((st (if parse-sexp-lookup-properties |
| 2297 (get-char-property pos 'syntax-table)))) | 2297 (get-char-property pos 'syntax-table)))) |
| 2298 (if (consp st) st | 2298 (if (consp st) st |
| 2299 (aref (or st (syntax-table)) (char-after pos)))))) | 2299 (aref (or st (syntax-table)) (char-after pos)))))) |
| 2300 | 2300 |
| 2301 (defun syntax-class (syntax) | |
| 2302 "Return the syntax class part of the syntax descriptor SYNTAX." | |
| 2303 (logand (car syntax) 255)) | |
| 2304 | |
| 2301 (defun add-to-invisibility-spec (arg) | 2305 (defun add-to-invisibility-spec (arg) |
| 2302 "Add elements to `buffer-invisibility-spec'. | 2306 "Add elements to `buffer-invisibility-spec'. |
| 2303 See documentation for `buffer-invisibility-spec' for the kind of elements | 2307 See documentation for `buffer-invisibility-spec' for the kind of elements |
| 2304 that can be added." | 2308 that can be added." |
| 2305 (if (eq buffer-invisibility-spec t) | 2309 (if (eq buffer-invisibility-spec t) |