| 1 |
ulm 07/09/08 19:50:27 |
| 2 |
|
| 3 |
Added: |
| 4 |
slime-2.0_p20070816-save-restriction-if-possible.patch |
| 5 |
digest-slime-2.0_p20070816 |
| 6 |
Removed: digest-slime-2.0_p20070809 |
| 7 |
digest-slime-2.0_p20070822 |
| 8 |
Log: |
| 9 |
New CVS snapshot. Fix M-. errors on SBCL functions, thanks to Stelian Ionescu. |
| 10 |
(Portage version: 2.1.3.7) |
| 11 |
|
| 12 |
Revision Changes Path |
| 13 |
1.1 app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch |
| 14 |
|
| 15 |
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 |
| 16 |
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 |
| 17 |
|
| 18 |
Index: slime-2.0_p20070816-save-restriction-if-possible.patch |
| 19 |
=================================================================== |
| 20 |
--- slime-2.0_p20070816-orig/slime.el 2007-08-16 10:26:33.000000000 +0200 |
| 21 |
+++ slime-2.0_p20070816/slime.el 2007-09-08 19:32:09.000000000 +0200 |
| 22 |
@@ -5341,6 +5341,39 @@ |
| 23 |
(set-buffer buffer) |
| 24 |
(goto-char (point-min)))))) |
| 25 |
|
| 26 |
+(defmacro save-restriction-if-possible (&rest body) |
| 27 |
+ "Very similiarly to `save-restriction'. The only difference is |
| 28 |
+that it's not enforcing the restriction as strictly: It's only |
| 29 |
+enforced if `point' was not moved outside of the restriction |
| 30 |
+after executing BODY. |
| 31 |
+ |
| 32 |
+Example: |
| 33 |
+ |
| 34 |
+ (progn (goto-line 1000) |
| 35 |
+ (narrow-to-page) |
| 36 |
+ (save-restriction-if-possible (widen) (goto-line 999))) |
| 37 |
+ |
| 38 |
+ In this case, the buffer is narrowed to the current page, and |
| 39 |
+ point is on line 999. |
| 40 |
+ |
| 41 |
+ (progn (goto-char 1000) |
| 42 |
+ (narrow-to-page) |
| 43 |
+ (save-restriction-if-possible (widen) (goto-line 1))) |
| 44 |
+ |
| 45 |
+ Whereas in this case, the buffer is widened and point is on |
| 46 |
+ line 1." |
| 47 |
+ (let ((gcfg (gensym "NARROWING-CFG+")) |
| 48 |
+ (gbeg (gensym "OLDBEG+")) |
| 49 |
+ (gend (gensym "OLDEND+"))) |
| 50 |
+ `(let ((,gcfg (current-slime-narrowing-configuration))) |
| 51 |
+ (unwind-protect (progn ,@body) |
| 52 |
+ (let ((,gbeg (slime-narrowing-configuration.beg ,gcfg)) |
| 53 |
+ (,gend (slime-narrowing-configuration.end ,gcfg))) |
| 54 |
+ (when (and (>= (point) ,gbeg) (<= (point) ,gend)) |
| 55 |
+ (set-slime-narrowing-configuration ,gcfg))))))) |
| 56 |
+ |
| 57 |
+(put 'save-restriction-if-possible 'lisp-indent-function 0) |
| 58 |
+ |
| 59 |
(defun slime-goto-location-position (position) |
| 60 |
(save-restriction-if-possible ; try to keep restriction if possible. |
| 61 |
(widen) |
| 62 |
@@ -11128,39 +11161,6 @@ |
| 63 |
(total (buffer-size))) |
| 64 |
(or (/= beg 1) (/= end (1+ total)))))) |
| 65 |
|
| 66 |
-(defmacro save-restriction-if-possible (&rest body) |
| 67 |
- "Very similiarly to `save-restriction'. The only difference is |
| 68 |
-that it's not enforcing the restriction as strictly: It's only |
| 69 |
-enforced if `point' was not moved outside of the restriction |
| 70 |
-after executing BODY. |
| 71 |
- |
| 72 |
-Example: |
| 73 |
- |
| 74 |
- (progn (goto-line 1000) |
| 75 |
- (narrow-to-page) |
| 76 |
- (save-restriction-if-possible (widen) (goto-line 999))) |
| 77 |
- |
| 78 |
- In this case, the buffer is narrowed to the current page, and |
| 79 |
- point is on line 999. |
| 80 |
- |
| 81 |
- (progn (goto-char 1000) |
| 82 |
- (narrow-to-page) |
| 83 |
- (save-restriction-if-possible (widen) (goto-line 1))) |
| 84 |
- |
| 85 |
- Whereas in this case, the buffer is widened and point is on |
| 86 |
- line 1." |
| 87 |
- (let ((gcfg (gensym "NARROWING-CFG+")) |
| 88 |
- (gbeg (gensym "OLDBEG+")) |
| 89 |
- (gend (gensym "OLDEND+"))) |
| 90 |
- `(let ((,gcfg (current-slime-narrowing-configuration))) |
| 91 |
- (unwind-protect (progn ,@body) |
| 92 |
- (let ((,gbeg (slime-narrowing-configuration.beg ,gcfg)) |
| 93 |
- (,gbeg (slime-narrowing-configuration.end ,gcfg))) |
| 94 |
- (when (and (>= (point) ,gbeg) (<= (point) ,gend)) |
| 95 |
- (set-slime-current-narrowing-configuration ,gcfg))))))) |
| 96 |
- |
| 97 |
-(put 'save-restriction-if-possible 'lisp-indent-function 0) |
| 98 |
- |
| 99 |
;;;;; Common Lisp-style package-qualified symbols |
| 100 |
|
| 101 |
(defun slime-cl-symbol-name (symbol) |
| 102 |
|
| 103 |
|
| 104 |
|
| 105 |
1.1 app-emacs/slime/files/digest-slime-2.0_p20070816 |
| 106 |
|
| 107 |
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/digest-slime-2.0_p20070816?rev=1.1&view=markup |
| 108 |
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 |
| 109 |
|
| 110 |
Index: digest-slime-2.0_p20070816 |
| 111 |
=================================================================== |
| 112 |
MD5 1351f621af33894bac95acc97488ed81 slime-2.0_p20070816.tar.bz2 500700 |
| 113 |
RMD160 6b6fb7c4cf0e797d901b4aa4dec45555350621df slime-2.0_p20070816.tar.bz2 500700 |
| 114 |
SHA256 dc393f8343b6c7e0ef32802c34e0943d45dc1b93997090d95afa1a0c0c03e977 slime-2.0_p20070816.tar.bz2 500700 |
| 115 |
|
| 116 |
|
| 117 |
|
| 118 |
-- |
| 119 |
gentoo-commits@g.o mailing list |
Archives