File 0001-string-to-number.patch of Package librep

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-string-to-number.patch of Package librep

From 3adc90f1f16f77b6b8cd6ee39bfc41ab4f9974ab Mon Sep 17 00:00:00 2001
From: Togan Muftuoglu <toganm@opensuse.org>
Date: Sat, 27 Oct 2012 19:13:01 +0200
Subject: [PATCH] string-to-number

String-to-int function is obsolute since Emacs 22.1 Therefore update
the function to newer emacs functions

Signed-off-by: Togan Muftuoglu <toganm@opensuse.org>
---
 rep-debugger.el | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/rep-debugger.el b/rep-debugger.el
index db241e2..6bb4706 100644
--- a/rep-debugger.el
+++ b/rep-debugger.el
@@ -21,7 +21,7 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with Librep; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301 USA. 
+;; Boston, MA 02110-1301 USA.
 
 ;; This file is the perldb portions of gud.el with trivial substitutions
 ;; to make it work with rep..
@@ -49,20 +49,20 @@
 
     ;; Process all the complete markers in this chunk.
     (while (string-match "\032\032\\(\\([a-zA-Z]:\\)?[^:\n]*\\):\\([0-9]*\\):.*\n"
-			 gud-marker-acc)
+             gud-marker-acc)
       (setq
 
        ;; Extract the frame position from the marker.
        gud-last-frame
        (cons (substring gud-marker-acc (match-beginning 1) (match-end 1))
-	     (string-to-int (substring gud-marker-acc
-				       (match-beginning 3)
-				       (match-end 3))))
+             (string-to-number (substring gud-marker-acc
+                                          (match-beginning 3)
+                                          (match-end 3))))
 
        ;; Append any text before the marker to the output we're going
        ;; to return - we don't include the marker in this text.
        output (concat output
-		      (substring gud-marker-acc 0 (match-beginning 0)))
+              (substring gud-marker-acc 0 (match-beginning 0)))
 
        ;; Set the accumulator to the remaining text.
        gud-marker-acc (substring gud-marker-acc (match-end 0))))
@@ -73,17 +73,17 @@
     ;; know the full marker regexp above failed, it's pretty simple to
     ;; test for marker starts.
     (if (string-match "\032.*\\'" gud-marker-acc)
-	(progn
-	  ;; Everything before the potential marker start can be output.
-	  (setq output (concat output (substring gud-marker-acc
-						 0 (match-beginning 0))))
+    (progn
+      ;; Everything before the potential marker start can be output.
+      (setq output (concat output (substring gud-marker-acc
+                         0 (match-beginning 0))))
 
-	  ;; Everything after, we save, to combine with later input.
-	  (setq gud-marker-acc
-		(substring gud-marker-acc (match-beginning 0))))
+      ;; Everything after, we save, to combine with later input.
+      (setq gud-marker-acc
+        (substring gud-marker-acc (match-beginning 0))))
 
       (setq output (concat output gud-marker-acc)
-	    gud-marker-acc ""))
+        gud-marker-acc ""))
 
     output))
 
@@ -106,17 +106,17 @@ The directory containing FILE becomes the initial working directory
 and source-file directory for your debugger."
   (interactive
    (list (read-from-minibuffer "Run rep debugger (like this): "
-			       (if (consp gud-rep-history)
-				   (car gud-rep-history)
-				 (concat gud-rep-command-name
-					 " "
-					 (buffer-file-name)
-					 " "))
-			       nil nil
-			       '(gud-rep-history . 1))))
+                   (if (consp gud-rep-history)
+                   (car gud-rep-history)
+                 (concat gud-rep-command-name
+                     " "
+                     (buffer-file-name)
+                     " "))
+                   nil nil
+                   '(gud-rep-history . 1))))
 
   (gud-common-init command-line 'gud-rep-massage-args
-		   'gud-rep-marker-filter 'gud-rep-find-file)
+           'gud-rep-marker-filter 'gud-rep-find-file)
 
 ;  (gud-def gud-break  "b %l"         "\C-b" "Set breakpoint at current line.")
 ;  (gud-def gud-remove "d %l"         "\C-d" "Remove breakpoint at current line")
-- 
1.8.0

Places

File 0001-string-to-number.patch of Package librep

Places