Làm cách nào để xóa dòng mới khỏi quá trình xuất?

Question

Tôi gọi git nhận được thư mục toplevel (theo Is there a way to get the git root directory in one command? ).

(let ((tmpbuffer (get-buffer-create (make-temp-name "git")))) 
    (call-process "git" nil tmpbuffer nil "rev-parse" "--show-toplevel") 
    (with-current-buffer tmpbuffer 
    (with-output-to-string 
     (princ (buffer-string)) 
     (kill-buffer)))) 

Nhưng có một dòng mới trong chuỗi được trả lại. Tôi không chắc làm thế nào để thoát khỏi nó.

Answer 1

Tôi nghĩ rằng bạn có thể làm

(replace-regexp-in-string "\n$" "" 
       (shell-command-to-string "git rev-parse --show-toplevel")) 

Answer 2

Nếu bạn chỉ muốn xóa một dòng mới vào cuối của đầu ra, sử dụng

(replace-regexp-in-string "\n\\'" "" 
    (shell-command-to-string "git rev-parse --show-toplevel")) 

Câu trả lời được chấp nhận cũng thay thế cặp dòng mới ("\n\n") ở đầu ra bằng một dòng mới ("\n"), bởi vì $ kết quả khớp ở cuối chuỗi hoặc sau một dòng mới, trong khi \\' chỉ phù hợp ở cuối chuỗi.