haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix non-exist function 

Emacs does not have 'replace-in-string' function.
This commit is contained in:
Syohei YOSHIDA 2015-11-05 19:32:03 +09:00
parent 0003236802
commit 5c58afb3de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/top/utop.el
View File

@ -409,8 +409,8 @@ it is started."
(save-excursion (save-excursion
(goto-char utop-prompt-min) (goto-char utop-prompt-min)
(forward-line -1) (forward-line -1)
(let ((line (replace-in-string (thing-at-point 'line) "\n" ""))) (let ((line (buffer-substring-no-properties
(set-text-properties 0 (length line) nil line) (line-beginning-position) (line-end-position))))
(message line))))) (message line)))))
;; Poor man's identifier at point ;; Poor man's identifier at point