Commit 9a50b93f authored by Roland McGrath's avatar Roland McGrath

*** empty log message ***

parent 9708f7fc
...@@ -84,7 +84,7 @@ nil means it has not yet been computed; use `tags-table-files' to do so.") ...@@ -84,7 +84,7 @@ nil means it has not yet been computed; use `tags-table-files' to do so.")
(defvar tags-table-format-hooks '(etags-recognize-tags-table (defvar tags-table-format-hooks '(etags-recognize-tags-table
recognize-empty-tags-table recognize-empty-tags-table
ctags-recognize-tags-table) ;standard? XXX ctags-recognize-tags-table)
"List of functions to be called in a tags table buffer to identify "List of functions to be called in a tags table buffer to identify
the type of tags table. The functions are called in order, with no arguments, the type of tags table. The functions are called in order, with no arguments,
until one returns non-nil. The function should make buffer-local bindings until one returns non-nil. The function should make buffer-local bindings
...@@ -757,7 +757,7 @@ See documentation of variable `tags-file-name'." ...@@ -757,7 +757,7 @@ See documentation of variable `tags-file-name'."
(and (zerop (buffer-size)) (and (zerop (buffer-size))
(mapcar (function (lambda (sym) (mapcar (function (lambda (sym)
(make-local-variable sym) (make-local-variable sym)
(set sym (function (lambda (&rest ignore) nil))))) (set sym 'ignore)))
'(tags-table-files-function '(tags-table-files-function
tags-completion-table-function tags-completion-table-function
find-tag-regexp-search-function find-tag-regexp-search-function
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment