Mercurial > emacs
comparison lisp/progmodes/etags.el @ 3591:507f64624555
Apply typo patches from Paul Eggert.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 09 Jun 1993 11:59:12 +0000 |
parents | 54b82ecde27b |
children | 5bcb8bd982d0 |
comparison
equal
deleted
inserted
replaced
3590:d5f22061277d | 3591:507f64624555 |
---|---|
139 (defvar tags-apropos-function nil | 139 (defvar tags-apropos-function nil |
140 "Function to do the work of `tags-apropos' (which see).") | 140 "Function to do the work of `tags-apropos' (which see).") |
141 (defvar tags-included-tables-function nil | 141 (defvar tags-included-tables-function nil |
142 "Function to do the work of `tags-included-tables' (which see).") | 142 "Function to do the work of `tags-included-tables' (which see).") |
143 (defvar verify-tags-table-function nil | 143 (defvar verify-tags-table-function nil |
144 "Function to return t iff the current buffer vontains a valid | 144 "Function to return t iff the current buffer contains a valid |
145 \(already initialized\) tags file.") | 145 \(already initialized\) tags file.") |
146 | 146 |
147 ;; Initialize the tags table in the current buffer. | 147 ;; Initialize the tags table in the current buffer. |
148 ;; Returns non-nil iff it is a valid tags table. On | 148 ;; Returns non-nil iff it is a valid tags table. On |
149 ;; non-nil return, the tags table state variable are | 149 ;; non-nil return, the tags table state variable are |
634 (setq tags-location-stack (cdr tags-location-stack)) | 634 (setq tags-location-stack (cdr tags-location-stack)) |
635 (prog1 | 635 (prog1 |
636 ;; Move to the saved location. | 636 ;; Move to the saved location. |
637 (set-buffer (marker-buffer marker)) | 637 (set-buffer (marker-buffer marker)) |
638 (goto-char (marker-position marker)) | 638 (goto-char (marker-position marker)) |
639 ;; Kill that marker so it doesn't slow down editting. | 639 ;; Kill that marker so it doesn't slow down editing. |
640 (set-marker marker nil nil) | 640 (set-marker marker nil nil) |
641 ;; Run the user's hook. Do we really want to do this for pop? | 641 ;; Run the user's hook. Do we really want to do this for pop? |
642 (run-hooks 'local-find-tag-hook)))) | 642 (run-hooks 'local-find-tag-hook)))) |
643 (if next-p | 643 (if next-p |
644 ;; Find the same table we last used. | 644 ;; Find the same table we last used. |