瀏覽代碼

fix bug of isdcv-bol

pull/1/head
10sr 10 年之前
父節點
當前提交
c61ce5251f
共有 1 個文件被更改,包括 7 次插入2 次删除
  1. +7
    -2
      emacs.el

+ 7
- 2
emacs.el 查看文件

@@ -2333,6 +2333,9 @@ this is test, does not rename files."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; isdcv

;; TODO: remove dependant of sdcv, and change the name to something like
;; `ilookup`

(defvar isdcv-prompt "> "
"Prompt string for isdcv input.")

@@ -2410,8 +2413,10 @@ Freeze current input and show next prompt."
"Return point to bol ignoring prompt."
(save-excursion
(beginning-of-line)
(search-forward isdcv-prompt
(point-at-eol))))
(or (search-forward isdcv-prompt
(point-at-eol)
t)
(point))))

(defun isdcv--get-output-start ()
"Return point where outputs should be inserted.


Loading…
取消
儲存