Re: thingatpt-utils1.6 - length-of-region-atpt

[Andreas Röhler]

Below a patch needed for `length-of-region-atpt'

*** /thingatpt-utils-base.el    2007-11-05 12:04:58.000000000 +0100
--- thingatpt-utils-base.el     2007-11-05 20:39:45.000000000 +0100
***************
*** 679,690 ****
  
  ;; Region
  
  (put 'region 'end-op-atpt
!      (lambda () 
!        (goto-char (region-end))))
  
  (put 'region 'beginning-op-atpt
       (lambda ()
         (goto-char (region-beginning))))
  
  ;; Delimited
--- 681,695 ----
  
  ;; Region
  
+ (defvar region-atpt-end nil)
+ 
  (put 'region 'end-op-atpt
!      (lambda ()
!        (goto-char region-atpt-end)))
  
  (put 'region 'beginning-op-atpt
       (lambda ()
+        (setq region-atpt-end (region-end))
         (goto-char (region-beginning))))
  
  ;; Delimited