352 |
:help "Find function/variables whose names match regexp")) |
:help "Find function/variables whose names match regexp")) |
353 |
(define-key menu-bar-goto-menu [next-tag-otherw] |
(define-key menu-bar-goto-menu [next-tag-otherw] |
354 |
'(menu-item "Next Tag in Other Window" |
'(menu-item "Next Tag in Other Window" |
355 |
(function (lambda () (find-tag-other-window nil t))) |
(lambda () (interactive) (find-tag-other-window nil t)) |
356 |
:enable (and (boundp 'tags-location-ring) |
:enable (and (boundp 'tags-location-ring) |
357 |
(not (ring-empty-p tags-location-ring))) |
(not (ring-empty-p tags-location-ring))) |
358 |
:help "Find next function/variable matching last tag name in another window")) |
:help "Find next function/variable matching last tag name in another window")) |
359 |
(define-key menu-bar-goto-menu [next-tag] |
(define-key menu-bar-goto-menu [next-tag] |
360 |
'(menu-item "Find Next Tag" |
'(menu-item "Find Next Tag" |
361 |
(function (lambda () (find-tag nil t))) |
(lambda () (interactive) (find-tag nil t)) |
362 |
:enable (and (boundp 'tags-location-ring) |
:enable (and (boundp 'tags-location-ring) |
363 |
(not (ring-empty-p tags-location-ring))) |
(not (ring-empty-p tags-location-ring))) |
364 |
:help "Find next function/variable matching last tag name")) |
:help "Find next function/variable matching last tag name")) |