   (interactive)
   (when (boundp 'project-root) ;; add-to-list if project-root symbol is defined
     (add-to-list 'etags-table-alist
-                 `(,(concat project-root "/.*") ,(concat project-root "/TAGS")) t))
+                 `(,(concat project-root "/.*") ,(concat project-root "/TAGS")) t)
+    (when (boundp 'uvm-source-code-dir)
+      (add-to-list 'etags-table-alist
+                   `("/pr.*j.*/.*" ,(concat uvm-source-code-dir "/TAGS")) t))
+    )
   (etags-select-find-tag-at-point)
   )
 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; etags-table
;; Depending on the location of the file in buffer, the respetive TAGS file is
;; opened on doing a tag find.
(require 'etags-table)
(setq etags-table-alist
      (list
       `(,(concat user-emacs-directory "/.*") ,(concat user-emacs-directory "/TAGS"))
       ))
;; (when (boundp 'project-root) ;; add-to-list if project-root symbol is defined
;;     (add-to-list 'etags-table-alist
;;                  `(,(concat project-root "/.*") ,(concat project-root "/TAGS")) t))
(setq etags-table-search-up-depth 15) ;; Max depth to search up for a tags file.  nil means don't search.



;; Time-stamp: <2014-06-10 09:46:44 kmodi>

;; ctags, etags

