ulm 07/09/08 19:50:27
Added:
slime-2.0_p20070816-save-restriction-if-possible.patch
digest-slime-2.0_p20070816
Removed: digest-slime-2.0_p20070809
digest-slime-2.0_p20070822
Log:
New CVS snapshot. Fix M-. errors on SBCL functions, thanks to Stelian Ionescu.
(Portage version: 2.1.3.7)
Revision Changes Path
1.1 app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch?rev=1.1&content-type=text/plain
Index: slime-2.0_p20070816-save-restriction-if-possible.patch
===================================================================
--- slime-2.0_p20070816-orig/slime.el 2007-08-16 10:26:33.000000000 +0200
+++ slime-2.0_p20070816/slime.el 2007-09-08 19:32:09.000000000 +0200
@@ -5341,6 +5341,39 @@
(set-buffer buffer)
(goto-char (point-min))))))
+(defmacro save-restriction-if-possible (&rest body)
+ "Very similiarly to `save-restriction'. The only difference is
+that it's not enforcing the restriction as strictly: It's only
+enforced if `point' was not moved outside of the restriction
+after executing BODY.
+
+Example:
+
+ (progn (goto-line 1000)
+ (narrow-to-page)
+ (save-restriction-if-possible (widen) (goto-line 999)))
+
+ In this case, the buffer is narrowed to the current page, and
+ point is on line 999.
+
+ (progn (goto-char 1000)
+ (narrow-to-page)
+ (save-restriction-if-possible (widen) (goto-line 1)))
+
+ Whereas in this case, the buffer is widened and point is on
+ line 1."
+ (let ((gcfg (gensym "NARROWING-CFG+"))
+ (gbeg (gensym "OLDBEG+"))
+ (gend (gensym "OLDEND+")))
+ `(let ((,gcfg (current-slime-narrowing-configuration)))
+ (unwind-protect (progn ,@body)
+ (let ((,gbeg (slime-narrowing-configuration.beg ,gcfg))
+ (,gend (slime-narrowing-configuration.end ,gcfg)))
+ (when (and (>= (point) ,gbeg) (<= (point) ,gend))
+ (set-slime-narrowing-configuration ,gcfg)))))))
+
+(put 'save-restriction-if-possible 'lisp-indent-function 0)
+
(defun slime-goto-location-position (position)
(save-restriction-if-possible ; try to keep restriction if possible.
(widen)
@@ -11128,39 +11161,6 @@
(total (buffer-size)))
(or (/= beg 1) (/= end (1+ total))))))
-(defmacro save-restriction-if-possible (&rest body)
- "Very similiarly to `save-restriction'. The only difference is
-that it's not enforcing the restriction as strictly: It's only
-enforced if `point' was not moved outside of the restriction
-after executing BODY.
-
-Example:
-
- (progn (goto-line 1000)
- (narrow-to-page)
- (save-restriction-if-possible (widen) (goto-line 999)))
-
- In this case, the buffer is narrowed to the current page, and
- point is on line 999.
-
- (progn (goto-char 1000)
- (narrow-to-page)
- (save-restriction-if-possible (widen) (goto-line 1)))
-
- Whereas in this case, the buffer is widened and point is on
- line 1."
- (let ((gcfg (gensym "NARROWING-CFG+"))
- (gbeg (gensym "OLDBEG+"))
- (gend (gensym "OLDEND+")))
- `(let ((,gcfg (current-slime-narrowing-configuration)))
- (unwind-protect (progn ,@body)
- (let ((,gbeg (slime-narrowing-configuration.beg ,gcfg))
- (,gbeg (slime-narrowing-configuration.end ,gcfg)))
- (when (and (>= (point) ,gbeg) (<= (point) ,gend))
- (set-slime-current-narrowing-configuration ,gcfg)))))))
-
-(put 'save-restriction-if-possible 'lisp-indent-function 0)
-
;;;;; Common Lisp-style package-qualified symbols
(defun slime-cl-symbol-name (symbol)
1.1 app-emacs/slime/files/digest-slime-2.0_p20070816
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/digest-slime-2.0_p20070816?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/digest-slime-2.0_p20070816?rev=1.1&content-type=text/plain
Index: digest-slime-2.0_p20070816
===================================================================
MD5 1351f621af33894bac95acc97488ed81 slime-2.0_p20070816.tar.bz2 500700
RMD160 6b6fb7c4cf0e797d901b4aa4dec45555350621df slime-2.0_p20070816.tar.bz2 500700
SHA256 dc393f8343b6c7e0ef32802c34e0943d45dc1b93997090d95afa1a0c0c03e977 slime-2.0_p20070816.tar.bz2 500700
--
gentoo-commits@g.o mailing list
|
