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 |
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 |