[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/psgml c3decf3: * psgml-parse.el: Fix old defadvice in c
From: |
Stefan Monnier |
Subject: |
[elpa] externals/psgml c3decf3: * psgml-parse.el: Fix old defadvice in comment |
Date: |
Wed, 13 Mar 2019 14:30:35 -0400 (EDT) |
branch: externals/psgml
commit c3decf39d2b287f6ec7471aaacf8aee2ca76e08d
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* psgml-parse.el: Fix old defadvice in comment
---
psgml-parse.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/psgml-parse.el b/psgml-parse.el
index 38dc38b..0522c4f 100644
--- a/psgml-parse.el
+++ b/psgml-parse.el
@@ -49,10 +49,11 @@ The functions is evaluated before the standard auto-fill
function,
`do-auto-fill', tries to fill a line. If the function returns a true
value the auto-fill is inhibited.")
-;;(defadvice do-auto-fill (around disable-auto-fill-hook activate)
+;;(advice-add 'do-auto-fill :around #'sgml--auto-fill-inhibit)
+;;(defun sgml--auto-fill-inhibit (orig-fun &rest args)
;; (or (and sgml-auto-fill-inhibit-function
-;; (funcall sgml-auto-fill-inhibit-function))
-;; ad-do-it))
+;; (funcall sgml-auto-fill-inhibit-function))
+;; (apply orig-fun args)))
;;;; Variables
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/psgml c3decf3: * psgml-parse.el: Fix old defadvice in comment,
Stefan Monnier <=