Lines Matching defs:table
35 (unless (fboundp 'with-syntax-table) ; not in Emacs 20
36 (defmacro with-syntax-table (table &rest body)
37 "Evaluate BODY with syntax table of current buffer set to TABLE.
38 The syntax table of the current buffer is saved, BODY is evaluated, and the
39 saved table is restored, even in case of an abnormal exit.
41 (let ((old-table (make-symbol "table"))
43 `(let ((,old-table (syntax-table))
47 (set-syntax-table ,table)
51 (set-syntax-table ,old-table))))))))
182 (with-syntax-table (standard-syntax-table)
319 ;; Use this syntax table when parsing into regions that may need
325 (defconst rfc2047-syntax-table
326 ;; (make-char-table 'syntax-table '(2)) only works in Emacs.
327 (let ((table (make-syntax-table)))
328 ;; The following is done to work for setting all elements of the table
332 (if (fboundp 'set-char-table-range) ; Emacs
333 (funcall (intern "set-char-table-range")
334 table t (aref (standard-syntax-table) ?a))
335 (if (fboundp 'put-char-table)
336 (if (fboundp 'get-char-table) ; warning avoidance
337 (put-char-table t (get-char-table ?a (standard-syntax-table))
338 table))))
339 (modify-syntax-entry ?\\ "\\" table)
340 (modify-syntax-entry ?\" "\"" table)
341 (modify-syntax-entry ?\( "(" table)
342 (modify-syntax-entry ?\) ")" table)
343 (modify-syntax-entry ?\< "." table)
344 (modify-syntax-entry ?\> "." table)
345 (modify-syntax-entry ?\[ "." table)
346 (modify-syntax-entry ?\] "." table)
347 (modify-syntax-entry ?: "." table)
348 (modify-syntax-entry ?\; "." table)
349 (modify-syntax-entry ?, "." table)
350 (modify-syntax-entry ?@ "." table)
351 table))
389 (with-syntax-table rfc2047-syntax-table
867 (with-syntax-table (standard-syntax-table)