comparison lisp/progmodes/etags.el @ 824:b7ba8d69e136

*** empty log message ***

823:746ebe6cc4c8

;;;###autoload
(defvar tags-file-name nil "\
*File name of tags table.
To switch to a new tags table, setting this variable is sufficient.
Use the `etags' program to make a tags table file.")

;;;###autoload
(defvar tags-table-list nil
  "*List of names of tags table files which are currently being searched.
An element of nil means to look for a file \"TAGS\" in the current directory.

  "List of files for \\[next-file] to process.")

;; Hooks for file formats.

(defvar tags-table-format-hooks '(etags-recognize-tags-table
				  recognize-empty-tags-table
				  ctags-recognize-tags-table)
  "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,
until one returns non-nil.  The function should make buffer-local bindings
of the format-parsing tags function variables if successful.")

				     default-directory
				     (expand-file-name "TAGS"
						       default-directory)
				     t)
		     current-prefix-arg))
  (setq file (abbreviate-file-name (expand-file-name file)))
  (if (file-directory-p file)
      (setq file (expand-file-name "TAGS" file)))
  (if local
      (setq tags-file-name file)
    (kill-local-variable 'tags-file-name)

			    "Tags file has changed, read new contents? ")))
		  (and win (funcall verify-tags-table-function))
		(revert-buffer t t)
		(initialize-new-tags-table)))
	  (set-buffer (find-file-noselect file))
	  (initialize-new-tags-table))
	
	(if (and put-in-list
		 (not (equal file (car tags-table-list-pointer))))
	    (let (elt)

824:b7ba8d69e136

;;;###autoload
(defvar tags-file-name nil "\
*File name of tags table.
To switch to a new tags table, setting this variable is sufficient.
Use the `etags' program to make a tags table file.")
;;;###autoload (put 'tags-file-name 'variable-interactive "fVisit tags table: ")

;;;###autoload
(defvar tags-table-list nil
  "*List of names of tags table files which are currently being searched.
An element of nil means to look for a file \"TAGS\" in the current directory.

  "List of files for \\[next-file] to process.")

;; Hooks for file formats.

(defvar tags-table-format-hooks '(etags-recognize-tags-table
				  recognize-empty-tags-table)
  "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,
until one returns non-nil.  The function should make buffer-local bindings
of the format-parsing tags function variables if successful.")

				     default-directory
				     (expand-file-name "TAGS"
						       default-directory)
				     t)
		     current-prefix-arg))
  (if (file-directory-p file)
      (setq file (expand-file-name "TAGS" file)))
  (if local
      (setq tags-file-name file)
    (kill-local-variable 'tags-file-name)

			    "Tags file has changed, read new contents? ")))
		  (and win (funcall verify-tags-table-function))
		(revert-buffer t t)
		(initialize-new-tags-table)))
	  (set-buffer (find-file-noselect file))
	  (or (string= file buffer-file-name)
	      ;; find-file-noselect has changed the file name.
	      ;; Propagate the change to tags-file-name and tags-table-list.
	      (let ((tail (assoc file tags-table-list)))
		(if tail
		    (setcar tail buffer-file-name))
		(setq tags-file-name buffer-file-name)))
	  (initialize-new-tags-table))
	
	(if (and put-in-list
		 (not (equal file (car tags-table-list-pointer))))
	    (let (elt)