Mercurial > hg > xemacs-beta

comparison lisp/symbol-syntax.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 70ad99077275
children
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
99 ;; lisp-mode-syntax-table 99 ;; lisp-mode-syntax-table
100 ;; text-mode-syntax-table) 100 ;; text-mode-syntax-table)
101 ;; ?_) 101 ;; ?_)
102 102
103 (defun show-chars-with-syntax (tables syntax) 103 (defun show-chars-with-syntax (tables syntax)
104 (let ((osyn (syntax-table)) 104 (let ((schars nil))
105 (schars nil))
106 (unwind-protect 105 (unwind-protect
107 (while (consp tables) 106 (while (consp tables)
108 (let* ((chars nil) 107 (let* ((chars nil)
109 (table-symbol (car tables)) 108 (table-symbol (car tables))
110 (table table-symbol) 109 (table table-symbol))
111 (i 0))
112 (or (symbolp table-symbol) 110 (or (symbolp table-symbol)
113 (error "bad argument non-symbol")) 111 (error "bad argument non-symbol"))
114 (while (symbolp table) 112 (while (symbolp table)
115 (setq table (symbol-value table))) 113 (setq table (symbol-value table)))
116 (map-syntax-table 114 (map-syntax-table