     (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))))
+      (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)

The first character of DD is space if the value is less than 10."
  (let ((date (current-time-string)))
    (format "%2d %s %s"
            (erlang-string-to-int (substring date 8 10))
            (substring date 4 7)
            (substring date -4))))


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

(eval-and-compile
