/[erbot]/erbot/erbutils.el
ViewVC logotype

Diff of /erbot/erbutils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by deego, Tue Jul 5 15:03:46 2005 UTC revision 1.26 by deego, Wed Jul 6 14:29:01 2005 UTC
# Line 1  Line 1 
1  ;;; erbutils.el ---  ;;; erbutils.el ---
2  ;; Time-stamp: <2005-07-05 11:04:18 deego>  ;; Time-stamp: <2005-07-06 10:30:48 deego>
3  ;; Copyright (C) 2002 D. Goel  ;; Copyright (C) 2002 D. Goel
4  ;; Emacs Lisp Archive entry  ;; Emacs Lisp Archive entry
5  ;; Filename: erbutils.el  ;; Filename: erbutils.el
# Line 530  should start at the beginning of b." Line 530  should start at the beginning of b."
530  (run-hooks 'erbutils-after-load-hooks)  (run-hooks 'erbutils-after-load-hooks)
531    
532    
533  (defun erbutils-remove-text-properties (str)  (defun erbutils-remove-text-properties (str1)
534  ;;;   (with-temp-buffer  ;;;   (with-temp-buffer
535  ;;;     (insert text)  ;;;     (insert text)
536  ;;;     (buffer-substring-no-properties (point-min) (point-max))))  ;;;     (buffer-substring-no-properties (point-min) (point-max))))
537    ;; fledermaus' code: avoid with-temp-buffer becuse of i8n problems.    ;; fledermaus' code: avoid with-temp-buffer becuse of i8n problems.
538    (set-text-properties 0 (length str) nil str)    (let ((str (copy-sequence str1)))
539    str)      (set-text-properties 0 (length str) nil str)
540        str))
541    
542    
543    
544  (defun erbutils-defalias-i (ls &optional prefix prefix-rm  (defun erbutils-defalias-i (ls &optional prefix prefix-rm

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26