[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][emacs22] Simplified erc-restore-text-properties, m
From: |
mwolson |
Subject: |
[Erc-commit] [commit][emacs22] Simplified erc-restore-text-properties, moved it to erc.el. |
Date: |
Sun, 14 Oct 2007 00:48:42 -0400 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][emacs22] Simplified erc-restore-text-properties, moved it to erc.el.,
mwolson <=