 is not implemented under XEmacs.  (Hint: The Emacs 19 etags module
 works under XEmacs.)"
   (interactive)
-  (cond ((= erlang-emacs-major-version 18)
+  (cond ((= emacs-major-version 18)
          (require 'tags)
          (erlang-tags-define-keys (current-local-map))
          (setq erlang-tags-installed t))

  ;; Make sure our functions are installed in TAGS files loaded
  ;; into Emacs while searching.
  (cond
   ((>= erlang-emacs-major-version 20)
    (setq erlang-tags-orig-format-functions
          (symbol-value 'tags-table-format-functions))
    (funcall (symbol-function 'set) 'tags-table-format-functions

           (if (and popup (boundp 'mode-popup-menu))
               (funcall (symbol-function 'set)
                        'mode-popup-menu erlang-xemacs-popup-menu))))
        ((>= emacs-major-version 19)
         (define-key keymap (vector 'menu-bar (intern name))
           (erlang-menu-make-keymap name items)))
        (t nil)))
