2017-03-04 2 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

関連する問題