diff options
| author | David Aspinall | 2007-12-10 11:47:45 +0000 |
|---|---|---|
| committer | David Aspinall | 2007-12-10 11:47:45 +0000 |
| commit | 9bc3f266832ec50c30802f60e4af5ef88aeadc69 (patch) | |
| tree | e66da819d249c050d39ea219e724cd15a11aef52 /generic/pg-user.el | |
| parent | 95e2a29f51fb86ee958a261ac195d7e8c96d1741 (diff) | |
Emacs compatibility/API updates: string-to-int -> string-to-number
Diffstat (limited to 'generic/pg-user.el')
| -rw-r--r-- | generic/pg-user.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |