From 9bc3f266832ec50c30802f60e4af5ef88aeadc69 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 10 Dec 2007 11:47:45 +0000
Subject: Emacs compatibility/API updates: string-to-int -> string-to-number

---
 generic/pg-user.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'generic/pg-user.el')

diff --git a/generic/pg-user.el b/generic/pg-user.el
index 0fcf66de..5339f2ed 100644
--- a/generic/pg-user.el
+++ b/generic/pg-user.el
@@ -750,7 +750,7 @@ last use time, to discourage saving these into the users database."
 	span
       (if noerr
 	  nil
-	(error "No region to move past" num)))))
+	(error "No region to move past")))))
 
 (defun pg-control-span-of (span)
   "Return the controlling span of SPAN, or SPAN itself."
@@ -814,8 +814,8 @@ If NUM is negative, move upwards.  Return new span."
 
 (defun pg-fixup-children-span (span)
   (if (span-property span 'controlspan)
-      ;; WARNING: dynamic binding for new-span
       (progn
+	;; WARNING: dynamic binding for new-span
 	(set-span-property span 'controlspan new-span)
 	(list span))))
       
-- 
cgit v1.2.3