Togan Muftuoglu
c0745d5e2e
- Add the following patches
* 0001-string-to-number.patch replaces depreciated emacs
function
* librep-remove-build_date.patch remove build date to prevent
unnecessary builds
OBS-URL: https://build.opensuse.org/request/show/139609
OBS-URL: https://build.opensuse.org/package/show/X11:windowmanagers/librep?expand=0&rev=4
109 lines
4.0 KiB
Diff
109 lines
4.0 KiB
Diff
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
|
|
|