             (ad-unadvise 'Man-notify-when-ready)
             (ad-unadvise 'set-visited-file-name)))))
 
-
-(defun erlang-string-to-int (string)
-  (if (fboundp 'string-to-number)
-      (string-to-number string)
-    (funcall (symbol-function 'string-to-int) string)))
-
 ;; The end...
 
 (provide 'erlang)

                               (erlang-remove-quotes
                                (erlang-buffer-substring
                                 (match-beginning 1) (match-end 1)))
                               (erlang-string-to-int
                                (erlang-buffer-substring
                                 (match-beginning
                                  (+ 1 erlang-atom-regexp-matches))

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

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