Mercurial > emacs

comparison lisp/cedet/srecode/table.el @ 105328:2f2bc20297c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc/message fixes.
author Glenn Morris <rgm@gnu.org>
date Thu, 01 Oct 2009 03:08:03 +0000
parents 41dc39934483
children 7f4c7f5c0eba
comparison
equal deleted inserted replaced
105327:dcbb3800a4e1 105328:2f2bc20297c6
144 Return nil if there was none." 144 Return nil if there was none."
145 (object-assoc file 'file (oref mt tables))) 145 (object-assoc file 'file (oref mt tables)))
146 146
147 (defun srecode-mode-table-new (mode file &rest init) 147 (defun srecode-mode-table-new (mode file &rest init)
148 "Create a new template table for MODE in FILE. 148 "Create a new template table for MODE in FILE.
149 INIT are the initialization parametrs for the new template table." 149 INIT are the initialization parameters for the new template table."
150 (let* ((mt (srecode-make-mode-table mode)) 150 (let* ((mt (srecode-make-mode-table mode))
151 (old (srecode-mode-table-find mt file)) 151 (old (srecode-mode-table-find mt file))
152 (attr (file-attributes file)) 152 (attr (file-attributes file))
153 (new (apply 'srecode-template-table 153 (new (apply 'srecode-template-table
154 (file-name-nondirectory file) 154 (file-name-nondirectory file)