# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 951049334 0
# Node ID e209690ccf0ac64b81b2aef2f0eddfc020d2409d
# Parent  11a8d125f241455b911ca5fd488353c7405e6625
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Don't call ring-empty-p unless tags-location-ring is bound.
From Noah Friedman <friedman@splode.com>.

diff -r 11a8d125f241 -r e209690ccf0a lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Feb 18 23:35:24 2000 +0000
+++ b/lisp/menu-bar.el	Sun Feb 20 12:22:14 2000 +0000
@@ -326,12 +326,14 @@
 (define-key menu-bar-goto-menu [next-tag-otherw]
   '(menu-item "Next Tag in Other Window"
 	      (function (lambda () (find-tag-other-window nil t)))
-	      :enable (not (ring-empty-p tags-location-ring))
+	      :enable (and (boundp 'tags-location-ring)
+			   (not (ring-empty-p tags-location-ring)))
 	      :help "Find next function/variable matching last tag name in another window"))
 (define-key menu-bar-goto-menu [next-tag]
   '(menu-item "Find Next Tag"
 	      (function (lambda () (find-tag nil t)))
-	      :enable (not (ring-empty-p tags-location-ring))
+	      :enable (and (boundp 'tags-location-ring)
+			   (not (ring-empty-p tags-location-ring)))
 	      :help "Find next function/variable matching last tag name"))
 (define-key menu-bar-goto-menu [find-tag-otherw]
   '(menu-item "Find Tag in Other Window..." find-tag-other-window