erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erbot-cvs] Changes to erbot/erbutils.el


From: D . Goel
Subject: [Erbot-cvs] Changes to erbot/erbutils.el
Date: Tue, 05 Jul 2005 11:03:46 -0400

Index: erbot/erbutils.el
diff -u erbot/erbutils.el:1.24 erbot/erbutils.el:1.25
--- erbot/erbutils.el:1.24      Sun Jan  9 01:10:42 2005
+++ erbot/erbutils.el   Tue Jul  5 15:03:46 2005
@@ -1,5 +1,5 @@
 ;;; erbutils.el --- 
-;; Time-stamp: <2005-01-08 12:52:29 deego>
+;; Time-stamp: <2005-07-05 11:04:18 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbutils.el
@@ -530,10 +530,14 @@
 (run-hooks 'erbutils-after-load-hooks)
 
 
-(defun erbutils-remove-text-properties (text)
-  (with-temp-buffer
-    (insert text)
-    (buffer-substring-no-properties (point-min) (point-max))))
+(defun erbutils-remove-text-properties (str)
+;;;   (with-temp-buffer
+;;;     (insert text)
+;;;     (buffer-substring-no-properties (point-min) (point-max))))
+  ;; fledermaus' code: avoid with-temp-buffer becuse of i8n problems.
+  (set-text-properties 0 (length str) nil str) 
+  str)
+
 
 (defun erbutils-defalias-i (ls &optional prefix prefix-rm
                               functionpref)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]