/[emacs]/emacs/lisp/language/ind-util.el
ViewVC logotype

Diff of /emacs/lisp/language/ind-util.el

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

revision 1.5.2.2 by fx, Sun Sep 8 20:31:05 2002 UTC revision 1.5.2.3 by fx, Fri Sep 13 23:25:53 2002 UTC
# Line 452  Returns new end position." Line 452  Returns new end position."
452                (intern (concat "is13194-to-ucs-"                (intern (concat "is13194-to-ucs-"
453                                (symbol-name current-repertory) "-regexp")))                                (symbol-name current-repertory) "-regexp")))
454               (re (eval current-regexp))               (re (eval current-regexp))
455               (hahsh (eval current-hashtable)))               (hash (eval current-hashtable)))
456          (while (re-search-forward re nil t)          (while (re-search-forward re nil t)
457            (replace-match (gethash (match-string 0) hash ""))))            (replace-match (gethash (match-string 0) hash ""))))
458        (point-max))))        (point-max))))

Legend:
Removed from v.1.5.2.2  
changed lines
  Added in v.1.5.2.3

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