[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Make defadvice mode local

From: Frederik
Subject: Make defadvice mode local
Date: Sun, 03 Nov 2013 14:14:31 +0100
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Thunderbird/24.1.0

Hello lisp hackers,

I found the following snippet on the web which changes the filling of
paragraphs in LaTeX documents such that each sentence begins on a new line:

;; Start each sentence on a new line when editing LaTex source files

(defadvice LaTeX-fill-region-as-paragraph (around LaTeX-sentence-filling)
  "Start each sentence on a new line."
  (let ((from (ad-get-arg 0))
        (to-marker (set-marker (make-marker) (ad-get-arg 1)))
    (while (< from (marker-position to-marker))
      ;; might have gone beyond to-marker --- use whichever is smaller:
      (ad-set-arg 1 (setq tmp-end (min (point) (marker-position
      (ad-set-arg 0 (setq from (point)))
      (unless (or
               (looking-at "\\s *$"))
    (set-marker to-marker nil)))
(ad-activate 'LaTeX-fill-region-as-paragraph) ; to activate
;;(ad-deactivate 'LaTeX-fill-region-as-paragraph) ; to deactivate

However, I want that this behaviour only gets activated in documents
which are under version control.  So I seek a way to only activate the
advice in buffers with vc-mode enabled...

I don't know where to start as I practically don't know any lisp; but I
fear that this defadvice only can be enabled globally to all LaTeX

Any pointers?



reply via email to

[Prev in Thread] Current Thread [Next in Thread]