Summary for xwem--main--2.1--patch-34

[Zajcev Evgeny <lg@xxxxxxxx>]

Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/

Revision: xwem--main--2.1--patch-34
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Wed Mar  9 23:09:25 MSK 2005
Standard-date: 2005-03-09 20:09:25 GMT
Modified-files: lisp/xwem-selections.el
New-patches: lg@xxxxxxxxxxxxxx/xwem--main--2.1--patch-34
    steve@xxxxxxxxxxxxxx/xwem--steve--2.1--patch-9
Summary: Merge from steve
Keywords: 

Patches applied:

 * steve@xxxxxxxxxxxxxx/xwem--steve--2.1--patch-9
   H-w fix


* added files

    {arch}/xwem/xwem--main/xwem--main--2.1/lg@xxxxxxxxxxxxxx/patch-log/patch-34
    
{arch}/xwem/xwem--steve/xwem--steve--2.1/steve@xxxxxxxxxxxxxx/patch-log/patch-9

* modified files

--- orig/lisp/xwem-selections.el
+++ mod/lisp/xwem-selections.el
@@ -186,15 +186,12 @@
   "Copy selected region to `xwem-selections' as ordinary cutbuffer."
   (xwem-interactive)
 
-  (let* ((extp (region-active-p))
-         (regb (and (extentp extp) (extent-object extp)))
-         rr)
-    (unless (bufferp regb)
-      (error 'xwem-error "No active region"))
+  (unless (region-active-p)
+    (error 'xwem-error "No active region"))
     
-    (setq rr (buffer-substring (region-beginning regb) (region-end regb) regb))
-    (push rr xwem-selections)
-    (xwem-message 'info "Copying: %S" rr)))
+  (setq rr (buffer-substring (region-beginning) (region-end)))
+  (push rr xwem-selections)
+  (xwem-message 'info "Copying: %S" rr))
 
 
 (provide 'xwem-selections)