diff lisp/menu-bar.el @ 27773:e209690ccf0a

(menu-bar-goto-menu) [next-tag, next-tag-otherw]: Don't call ring-empty-p unless tags-location-ring is bound. From Noah Friedman <[e-mail]>.

--- 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