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

    (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))))
    "Major version number of Emacs."))

(eval-and-compile

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

