User: aidan
Date: 09/08/15 15:25:07
Modified: packages/xemacs-packages/edit-utils ChangeLog setnu.el
Log:
edit-utils: setnu-mode: unstable function defination detecting
Revision Changes Path
1.237 +6 -0 XEmacs/packages/xemacs-packages/edit-utils/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v
retrieving revision 1.236
retrieving revision 1.237
diff -u -p -r1.236 -r1.237
--- ChangeLog 2009/07/22 07:45:15 1.236
+++ ChangeLog 2009/08/15 13:25:05 1.237
@@ -1,3 +1,9 @@
+2009-06-17 It's me FKtPp ;) <[email protected]>
+
+ * setnu.el (setnu-extent-at): re-order the #'cond -> #'foundp
+ special form so that #'map-extents was detected first whether
+ overlay.el loaded or not.
+
2009-07-22 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 2.41 released.
1.4 +9 -9 XEmacs/packages/xemacs-packages/edit-utils/setnu.el
Index: setnu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/setnu.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- setnu.el 2002/07/24 18:36:50 1.3
+++ setnu.el 2009/08/15 13:25:06 1.4
@@ -340,8 +340,16 @@ the line number extents accordingly."
(setnu-set-extent-property e 'evaporate nil)
e ))
-(cond ((fboundp 'overlays-in) ;; expect to see this in 19.30
+(cond ((fboundp 'map-extents)
(defun setnu-extent-at (pos buf)
+ "Finds the setnu extent at the position POS in the buffer BUF."
+ (map-extents (function (lambda (e maparg)
+ (if (setnu-extent-property e 'setnu)
+ e
+ nil)))
+ buf pos pos)))
+ ((fboundp 'overlays-in) ;; expect to see this in 19.30
+ (defun setnu-extent-at (pos buf)
"Finds the setnu extent at the position POS in the buffer BUF."
(catch 'done
(save-excursion
@@ -382,14 +390,6 @@ the line number extents accordingly."
(throw 'done (car o-list)))
(setq o-list (cdr o-list)))
nil )))))
- ((fboundp 'map-extents)
- (defun setnu-extent-at (pos buf)
- "Finds the setnu extent at the position POS in the buffer BUF."
- (map-extents (function (lambda (e maparg)
- (if (setnu-extent-property e 'setnu)
- e
- nil)))
- buf pos pos)))
(t (error "can't find overlays-in, overlays-at, or map-extents!")))
(defun setnu-extent-at-create (pos buf)
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.