Mercurial > emacs
comparison lisp/progmodes/etags.el @ 78487:419c5c316b51
Replace `iff' in doc-strings and comments.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 08 Aug 2007 07:31:11 +0000 |
parents | c1ec1c8a8d2e |
children | 80960ac6e90e 424b655804ca |
comparison
equal
deleted
inserted
replaced
78486:f0a07da7dd45 | 78487:419c5c316b51 |
---|---|
254 (defvar tags-apropos-function nil | 254 (defvar tags-apropos-function nil |
255 "Function to do the work of `tags-apropos' (which see).") | 255 "Function to do the work of `tags-apropos' (which see).") |
256 (defvar tags-included-tables-function nil | 256 (defvar tags-included-tables-function nil |
257 "Function to do the work of `tags-included-tables' (which see).") | 257 "Function to do the work of `tags-included-tables' (which see).") |
258 (defvar verify-tags-table-function nil | 258 (defvar verify-tags-table-function nil |
259 "Function to return t iff current buffer contains valid tags file.") | 259 "Function to return t if current buffer contains valid tags file.") |
260 | 260 |
261 ;; Initialize the tags table in the current buffer. | 261 ;; Initialize the tags table in the current buffer. |
262 ;; Returns non-nil iff it is a valid tags table. On | 262 ;; Returns non-nil if it is a valid tags table. On |
263 ;; non-nil return, the tags table state variable are | 263 ;; non-nil return, the tags table state variable are |
264 ;; made buffer-local and initialized to nil. | 264 ;; made buffer-local and initialized to nil. |
265 (defun initialize-new-tags-table () | 265 (defun initialize-new-tags-table () |
266 (set (make-local-variable 'tags-table-files) nil) | 266 (set (make-local-variable 'tags-table-files) nil) |
267 (set (make-local-variable 'tags-completion-table) nil) | 267 (set (make-local-variable 'tags-completion-table) nil) |
415 list) | 415 list) |
416 | 416 |
417 (defun tags-verify-table (file) | 417 (defun tags-verify-table (file) |
418 "Read FILE into a buffer and verify that it is a valid tags table. | 418 "Read FILE into a buffer and verify that it is a valid tags table. |
419 Sets the current buffer to one visiting FILE (if it exists). | 419 Sets the current buffer to one visiting FILE (if it exists). |
420 Returns non-nil iff it is a valid table." | 420 Returns non-nil if it is a valid table." |
421 (if (get-file-buffer file) | 421 (if (get-file-buffer file) |
422 ;; The file is already in a buffer. Check for the visited file | 422 ;; The file is already in a buffer. Check for the visited file |
423 ;; having changed since we last used it. | 423 ;; having changed since we last used it. |
424 (let (win) | 424 (let (win) |
425 (set-buffer (get-file-buffer file)) | 425 (set-buffer (get-file-buffer file)) |
1217 (tags-apropos-function . etags-tags-apropos) | 1217 (tags-apropos-function . etags-tags-apropos) |
1218 (tags-included-tables-function . etags-tags-included-tables) | 1218 (tags-included-tables-function . etags-tags-included-tables) |
1219 (verify-tags-table-function . etags-verify-tags-table) | 1219 (verify-tags-table-function . etags-verify-tags-table) |
1220 )))) | 1220 )))) |
1221 | 1221 |
1222 ;; Return non-nil iff the current buffer is a valid etags TAGS file. | |
1223 (defun etags-verify-tags-table () | 1222 (defun etags-verify-tags-table () |
1223 "Return non-nil if the current buffer is a valid etags TAGS file." | |
1224 ;; Use eq instead of = in case char-after returns nil. | 1224 ;; Use eq instead of = in case char-after returns nil. |
1225 (eq (char-after (point-min)) ?\f)) | 1225 (eq (char-after (point-min)) ?\f)) |
1226 | 1226 |
1227 (defun etags-file-of-tag (&optional relative) | 1227 (defun etags-file-of-tag (&optional relative) |
1228 (save-excursion | 1228 (save-excursion |