CVS update by aidan packages/xemacs-packages/fsf-compat ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 08/04/11 21:22:42

  Modified:    packages/xemacs-packages/fsf-compat ChangeLog overlay.el
Log:
Correct a bug with previous overlay.el patch.

Revision  Changes    Path
1.23      +7 -0      XEmacs/packages/xemacs-packages/fsf-compat/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fsf-compat/ChangeLog,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- ChangeLog	2008/04/10 21:30:50	1.22
+++ ChangeLog	2008/04/11 19:22:41	1.23
@@ -1,3 +1,10 @@
+2008-04-11  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* overlay.el (overlay-normalize-begin-end-buffer): 
+	Correct a bug where the value for BUFFER wasn't passed back; make
+	docstring clearer, make normalisation of the BUFFER argument more
+	concise. 
+
 2008-04-10  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* overlay.el: 



1.4       +6 -8      XEmacs/packages/xemacs-packages/fsf-compat/overlay.el

Index: overlay.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fsf-compat/overlay.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- overlay.el	2008/04/10 21:30:50	1.3
+++ overlay.el	2008/04/11 19:22:41	1.4
@@ -82,21 +82,19 @@
 	   pos))))
 
 (defsubst overlay-normalize-begin-end-buffer (beg end &optional buffer)
-  "BEG and END will be normalized so 1 <= BEG <= END <= \(1+ \(length BUFFER)).
+  "Normalize BEG and END so that 1 <= BEG <= END <= \(1+ \(length BUFFER)).
 
 If BUFFER is nil, the current buffer is assumed.  If BEG is
-greater than END, exchange their value."
+greater than END, exchange their value.
 
-  (if (null buffer)
-      (setq buffer (current-buffer))
-    (check-argument-type 'bufferp buffer))
-
+Returns values BEG END BUFFER.  See `multiple-value-setq' and
+`multiple-value-bind'. "
+  (check-argument-type #'bufferp (setq buffer (or buffer (current-buffer))))
   (setq beg (overlay-normalize-pos beg buffer)
 	end (overlay-normalize-pos end buffer))
-
   (when (> beg end)
     (setq beg (prog1 end (setq end beg))))
-  (values beg end))
+  (values beg end buffer))
 
 (defun make-overlay (beg end &optional buffer front-advance rear-advance)
   "Create a new overlay with range BEG to END in BUFFER.