Browse Source

ob-comint.el: Fix bug.

* lisp/ob-comint.el (org-babel-comint-eval-invisibly-and-wait-for-file):
Fix bug.

The intention is to test whether the string ends with a newline, so we
should just do that.  Otherwise:

(string-match "\n$" "foo\n\nbar") ;; => 3 => :-(
Aaron Ecay 3 years ago
parent
commit
a4a1d85ed0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/ob-comint.el

+ 1 - 1
lisp/ob-comint.el

@@ -148,7 +148,7 @@ FILE exists at end of evaluation."
   (if (file-exists-p file) (delete-file file))
   (process-send-string
    (get-buffer-process buffer)
-   (if (string-match "\n$" string) string (concat string "\n")))
+   (if (= (aref string (1- (length string))) ?\n) string (concat string "\n")))
   ;; From Tramp 2.1.19 the following cache flush is not necessary
   (if (file-remote-p default-directory)
       (let (v)