*** empty log message ***

[bpt/emacs.git] / lisp / progmodes / etags.el

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index c7daec7..3f2f911 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1,12 +1,12 @@
 ;;; etags.el --- tags facility for Emacs.
 
-;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1988, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -244,6 +244,26 @@ See documentation of variable tags-file-name."
 ;;;###autoload
 (define-key ctl-x-4-map "." 'find-tag-other-window)
 
+;;;###autoload
+(defun find-tag-other-frame (tagname &optional next)
+  "Find tag (in current tag table) whose name contains TAGNAME.
+ Selects the buffer that the tag is contained in in another frame
+and puts point at its definition.
+ If TAGNAME is a null string, the expression in the buffer
+around or before point is used as the tag name.
+ If second arg NEXT is non-nil (interactively, with prefix arg),
+searches for the next tag in the tag table
+that matches the tagname used in the previous find-tag.
+
+See documentation of variable tags-file-name."
+  (interactive (if current-prefix-arg
+                  '(nil t)
+                  (find-tag-tag "Find tag other window: ")))
+  (let ((pop-up-screens t))
+    (find-tag tagname next t)))
+;;;###autoload
+(define-key ctl-x-5-map "." 'find-tag-other-frame)
+
 (defvar next-file-list nil
   "List of files for next-file to process.")