Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children a300bb07d72d
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
403 403
404 ;; #### should this be on previous page? 404 ;; #### should this be on previous page?
405 (defun buffer-tag-table-files () 405 (defun buffer-tag-table-files ()
406 "Returns a list of all files referenced by all TAGS tables that 406 "Returns a list of all files referenced by all TAGS tables that
407 this buffer uses." 407 this buffer uses."
408 (apply #'append 408 (apply #'nconc
409 (mapcar #'tag-table-files (buffer-tag-table-list)))) 409 (mapcar #'tag-table-files (buffer-tag-table-list))))
410 410
411 411
412 ;; Building the completion table 412 ;; Building the completion table
413 413
1062 (error "File %s not a valid tag table" tags-file-name))) 1062 (error "File %s not a valid tag table" tags-file-name)))
1063 1063
1064 1064
1065 ;; Sample uses of find-tag-hook and find-tag-default-hook 1065 ;; Sample uses of find-tag-hook and find-tag-default-hook
1066 1066
1067 ;; This is wrong. We should either make this behavior default and 1067 ;; This is wrong. We should either make this behaviour default and
1068 ;; back it up, or not use it at all. For now, I've commented it out. 1068 ;; back it up, or not use it at all. For now, I've commented it out.
1069 ;; --hniksic 1069 ;; --hniksic
1070 1070
1071 ;; Example buffer-local tag finding 1071 ;; Example buffer-local tag finding
1072 1072
1187 (defun push-tag-mark () 1187 (defun push-tag-mark ()
1188 (push-mark-on-stack 'tag-mark-stack1 tag-mark-stack-max)) 1188 (push-mark-on-stack 'tag-mark-stack1 tag-mark-stack-max))
1189 1189
1190 ;;;###autoload (define-key esc-map "*" 'pop-tag-mark) 1190 ;;;###autoload (define-key esc-map "*" 'pop-tag-mark)
1191 1191
1192 ;;;###autoload
1193 (defun pop-tag-mark (arg) 1192 (defun pop-tag-mark (arg)
1194 "Go to last tag position. 1193 "Go to last tag position.
1195 `find-tag' maintains a mark-stack seperate from the \\[set-mark-command] mark-stack. 1194 `find-tag' maintains a mark-stack seperate from the \\[set-mark-command] mark-stack.
1196 This function pops (and moves to) the tag at the top of this stack." 1195 This function pops (and moves to) the tag at the top of this stack."
1197 (interactive "P") 1196 (interactive "P")
1202 'tag-mark-stack2 'tag-mark-stack1 tag-mark-stack-max))) 1201 'tag-mark-stack2 'tag-mark-stack1 tag-mark-stack-max)))
1203 1202
1204 1203
1205 (provide 'etags) 1204 (provide 'etags)
1206 (provide 'tags) 1205 (provide 'tags)
1207
1208 ;;; etags.el ends here