changelog shortlog tags changeset files revisions annotate raw

tag-funcs.el

changeset 66: 5b737eefe5ea
parent:1fae210bc469
author: kim.vanwyk
date: Wed Nov 10 15:19:03 2010 +0200 (18 months ago)
permissions: -rw-r--r--
description: Adding CSharp Mode and Google Weather 
     1(defun tag-file-find (filename)

     2"Uses tag apropos to find files, escaping the regex components of the name"

     3(interactive (list (read-string "File name to search tag file for: ")))

     4(tags-apropos (regexp-quote filename))

     5(other-window 1)

     6(delete-other-windows)

     7(toggle-read-only)

     8(keep-lines "^- ")

     9(toggle-read-only)

    10;; Check to see if any buttons at all:

    11(if (button-at (point))

    12    (if (equal nil (next-button (line-end-position) 0)) 

    13        ;; Only one button - push it

    14        (progn

    15          (message (concat "Only one file found for " filename ". Opening."))

    16          (push-button)

    17          (kill-buffer "*Tags List*")

    18          ))

    19  ;; No buttons at all - report failure of the search

    20  (message (concat "No results for a search for " filename))

    21  (kill-buffer "*Tags List*")

    22  )

    23)

    24

    25(provide 'tag-funcs)