ERC: (erc-remove-text-properties-region): Disable this command by default.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index fc230ddbe0e..35e9f57bf80 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-14  Michael Olson  <mwolson@gnu.org>
+
+        * erc.el (erc-remove-text-properties-region): Disable this command
+        by default.  Thanks to e1f for the suggestion.
+
 2008-02-20  Michael Olson  <mwolson@gnu.org>
 
         * erc.el (erc-notice-face): Fix this face for Emacs 21 users.
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index a085336f9a1..1dae3562707 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -5477,6 +5477,7 @@ If CHANNEL is non-nil, toggle MODE for that channel, otherwise use
   (save-excursion
     (let ((inhibit-read-only t))
       (set-text-properties start end nil object))))
+(put 'erc-remove-text-properties-region 'disabled t)
 
 ;; script execution and startup