comparison lisp/progmodes/etags.el @ 747:701693a7acb7

*** empty log message ***

746:1b0748ff6f65

  (let ((tagbuf (find-tag-noselect tagname nil next)))
    (if other-window
	(switch-to-buffer-other-window tagbuf)
      (switch-to-buffer tagbuf))
    )
  (setq tags-loop-form '(find-tag nil t))
  ;; Return t in case used as the tags-loop-form.
  t)

;;;###autoload
(define-key esc-map "." 'find-tag)

747:701693a7acb7

  (let ((tagbuf (find-tag-noselect tagname nil next)))
    (if other-window
	(switch-to-buffer-other-window tagbuf)
      (switch-to-buffer tagbuf))
    )
;; I turned this off because people complain that it causes trouble
;; when they find a tag during a tags-search.  M-0 M-. is easy enough. --RMS
;;  (setq tags-loop-form '(find-tag nil t))
  ;; Return t in case used as the tags-loop-form.
  t)

;;;###autoload
(define-key esc-map "." 'find-tag)