[Erc-commit] [commit][emacs22] Simplified erc-restore-text-properties, moved it to erc.el.

[mwolson]

commit 2e39b828140367094385e13a2bc6f3484766d549
Author: Diane Murray <address@hidden>
Date:   Tue Jan 16 17:05:37 2007 +0000

    Simplified erc-restore-text-properties, moved it to erc.el.
    
    * erc.el (erc-restore-text-properties): Moved here from
    erc-fill.el since it could be useful in general.
    
    * erc-fill.el (erc-restore-text-properties): Removed.
    git-archimport-id: address@hidden/erc--main--0--patch-92

diff --git a/ChangeLog b/ChangeLog
index 59fd87d..bc6b1c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-01-16  Diane Murray  <address@hidden>
+
+       * erc.el (erc-restore-text-properties): Moved here from
+       erc-fill.el since it could be useful in general.
+
+       * erc-fill.el (erc-restore-text-properties): Removed.
+
 2007-01-13  Michael Olson  <address@hidden>
 
        * erc.el (erc-command-regexp): New variable that is used to match
diff --git a/erc-fill.el b/erc-fill.el
index 9552ce8..3305146 100644
--- a/erc-fill.el
+++ b/erc-fill.el
@@ -187,14 +187,6 @@ You can put this on `erc-insert-modify-hook' and/or 
`erc-send-modify-hook'."
       (length (format-time-string erc-timestamp-format))
     0))
 
-(defun erc-restore-text-properties ()
-  "Restore the property 'erc-parsed for the region."
-  (let* ((parsed-posn (text-property-not-all (point-min) (point-max)
-                                             'erc-parsed nil))
-         (parsed-prop (when parsed-posn
-                        (get-text-property parsed-posn 'erc-parsed))))
-    (put-text-property (point-min) (point-max) 'erc-parsed parsed-prop)))
-
 (provide 'erc-fill)
 
 ;;; erc-fill.el ends here
diff --git a/erc.el b/erc.el
index 5d82269..bdbb9ff 100644
--- a/erc.el
+++ b/erc.el
@@ -6237,6 +6237,14 @@ This function should be on `erc-kill-channel-hook'."
   "Find the next occurrence of the `erc-parsed' text property."
   (text-property-not-all (point-min) (point-max) 'erc-parsed nil))
 
+(defun erc-restore-text-properties ()
+  "Restore the property 'erc-parsed for the region."
+  (let ((parsed-posn (erc-find-parsed-property)))
+    (put-text-property
+     (point-min) (point-max)
+     'erc-parsed (when parsed-posn
+                   (get-text-property parsed-posn 'erc-parsed)))))
+
 (defun erc-get-parsed-vector (point)
   "Return the whole parsed vector on POINT."
   (get-text-property point 'erc-parsed))