File 2273-Remove-redundant-function-erlang-string-to... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2273-Remove-redundant-function-erlang-string-to-int.patch of Package erlang

From 61f8c82192764e2c1141dceed82904bd89edfc53 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@batsov.com>
Date: Thu, 15 Dec 2016 09:45:19 +0200
Subject: [PATCH 03/15] Remove redundant function erlang-string-to-int

---
 lib/tools/emacs/erlang.el | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index e87c0af81..5558366b6 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -99,8 +99,8 @@ Erlang mode menu.")
     (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
@@ -108,8 +108,8 @@ Erlang mode menu.")
     (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)
@@ -2396,7 +2396,7 @@ can contain other `tempo' attributes.  Please see the function
 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))
+            (string-to-number (substring date 8 10))
             (substring date 4 7)
             (substring date -4))))
 
@@ -3599,7 +3599,7 @@ corresponds to the order of the parsed Erlang list."
                                (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))
@@ -5940,12 +5940,6 @@ it assumes that NEWDEF is loaded."
             (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)
-- 
2.11.1

Places

File 2273-Remove-redundant-function-erlang-string-to-int.patch of Package erlang

Places