2017-03-04 35 views

回答

3

我可以想像但是,這種不工作以及在某些情況下,...

(defadvice fill-delete-newlines (before my-before-fill-delete-newlines) 
    "Replace -\\n with an empty string when calling `fill-paragraph'." 
    (when (eq this-command 'fill-paragraph) 
    (goto-char (ad-get-arg 0)) 
    (while (search-forward "-\n" (ad-get-arg 1) t) 
     (replace-match "") 
     (ad-set-arg 1 (- (ad-get-arg 1) 2))))) 

(ad-activate 'fill-delete-newlines) 
+0

酷。我不知道你可以魔法般地將自己陷入這樣的現有功能中。迄今爲止工作良好。 – towi