Location: steve@xxxxxxxxxxxxxx http://arch.eicq.org/2005/
Revision: xwem--steve--2.1--patch-9
Archive: steve@xxxxxxxxxxxxxx
Creator: Steve Youngs <steve@xxxxxxxx>
Date: Wed Mar 9 18:45:48 EST 2005
Standard-date: 2005-03-09 08:45:48 GMT
Modified-files: lisp/xwem-selections.el
New-patches: steve@xxxxxxxxxxxxxx/xwem--steve--2.1--patch-9
Summary: H-w fix
Keywords: bugfix
* lisp/xwem-selections.el (xwem-copy-region-as-cutbuffer): simplified
version as `region-active-p' only returns nil or t now and not the
region itself.
* added files
{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)
|