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

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index fc230ddbe0e88e15ef8c9b2e3244340c3d3c1792..35e9f57bf80409f3fa0e31af93790c9cecbec2ba 100644 (file)
--- 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 a085336f9a1fe8e0dc631931802294d93c3394b3..1dae3562707b520121a197d11edaa7bc6252d190 100644 (file)
--- 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