Gentoo Logo
Gentoo Spaceship




Note: Due to technical difficulties, the Archives are currently not up to date. GMANE provides an alternative service for most mailing lists.
c.f. bug 424647
List Archive: gentoo-commits
Navigation:
Lists: gentoo-commits: < Prev By Thread Next > < Prev By Date Next >
Headers:
To: gentoo-commits@g.o
From: "Ulrich Mueller (ulm)" <ulm@g.o>
Subject: gentoo-x86 commit in app-emacs/slime/files: slime-2.0_p20070816-save-restriction-if-possible.patch digest-slime-2.0_p20070816 digest-slime-2.0_p20070809 digest-slime-2.0_p20070822
Date: Sat, 08 Sep 2007 19:50:27 +0000
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


Navigation:
Lists: gentoo-commits: < Prev By Thread Next > < Prev By Date Next >
Previous by thread:
gentoo-x86 commit in app-emacs/slime: ChangeLog slime-2.0_p20070816.ebuild slime-2.0_p20070809.ebuild slime-2.0_p20070822.ebuild
Next by thread:
gentoo-x86 commit in dev-libs/apr: ChangeLog apr-1.2.11.ebuild
Previous by date:
gentoo-x86 commit in app-emacs/slime: ChangeLog slime-2.0_p20070816.ebuild slime-2.0_p20070809.ebuild slime-2.0_p20070822.ebuild
Next by date:
gentoo-x86 commit in profiles: package.mask


Updated Mar 27, 2011

Summary: Archive of the gentoo-commits mailing list.

Donate to support our development efforts.

Copyright 2001-2013 Gentoo Foundation, Inc. Questions, Comments? Contact us.