10sr
12 years ago
1 changed files with 7 additions and 2 deletions
Unified View
Diff Options
-
+7 -2emacs.el
+ 7
- 2
emacs.el
View File
| @@ -2333,6 +2333,9 @@ this is test, does not rename files." | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; isdcv | ;; isdcv | ||||
| ;; TODO: remove dependant of sdcv, and change the name to something like | |||||
| ;; `ilookup` | |||||
| (defvar isdcv-prompt "> " | (defvar isdcv-prompt "> " | ||||
| "Prompt string for isdcv input.") | "Prompt string for isdcv input.") | ||||
| @@ -2410,8 +2413,10 @@ Freeze current input and show next prompt." | |||||
| "Return point to bol ignoring prompt." | "Return point to bol ignoring prompt." | ||||
| (save-excursion | (save-excursion | ||||
| (beginning-of-line) | (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 () | (defun isdcv--get-output-start () | ||||
| "Return point where outputs should be inserted. | "Return point where outputs should be inserted. | ||||