     (if (boundp 'emacs-major-version)
         emacs-major-version
       (string-match "\\([0-9]+\\)\\.\\([0-9]+\\)" emacs-version)
-      (erlang-string-to-int (substring emacs-version
-                                       (match-beginning 1) (match-end 1))))
+      (string-to-number (substring emacs-version
+                                   (match-beginning 1) (match-end 1))))
     "Major version number of Emacs."))
 
 (eval-and-compile

    (if (boundp 'emacs-minor-version)
        emacs-minor-version
      (string-match "\\([0-9]+\\)\\.\\([0-9]+\\)" emacs-version)
      (erlang-string-to-int (substring emacs-version
                                       (match-beginning 2) (match-end 2))))
    "Minor version number of Emacs."))

(defconst erlang-xemacs-p (string-match "Lucid\\|XEmacs" emacs-version)

            (ad-unadvise 'Man-notify-when-ready)
            (ad-unadvise 'set-visited-file-name)))))

;; The end...

(provide 'erlang)
