C-uM-C-d browse hackage.

2010-03-10 16:51:42 +09:00
parent 387bf83f37
commit 4fd1aa963a
2 changed files with 16 additions and 10 deletions
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -10,9 +10,10 @@

 (defun ghc-replace-character (string from to)
  "Replace characters equal to FROM to TO in STRING."
-  (dotimes (cnt (length string) string)
-    (if (char-equal (aref string cnt) from)
-        (aset string cnt to))))
+  (let ((ret (copy-sequence string)))
+    (dotimes (cnt (length ret) ret)
+      (if (char-equal (aref ret cnt) from)
+	  (aset ret cnt to)))))

 (defun ghc-which (cmd)
  (catch 'loop