[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/tuareg 00faf47 8/8: Use uniform argument names for :around
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/tuareg 00faf47 8/8: Use uniform argument names for :around advice |
Date: |
Mon, 13 Sep 2021 18:00:00 -0400 (EDT) |
branch: elpa/tuareg
commit 00faf47a7c65e4cdcf040f38add1c6a08cd2ee2f
Author: Christophe Troestler <Christophe.Troestler@umons.ac.be>
Commit: Christophe Troestler <Christophe.Troestler@umons.ac.be>
Use uniform argument names for :around advice
---
tuareg-compat.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/tuareg-compat.el b/tuareg-compat.el
index 81b2b32..8ff10bc 100644
--- a/tuareg-compat.el
+++ b/tuareg-compat.el
@@ -6,11 +6,11 @@
(require 'newcomment)
;; Emacs < 26
-(defun tuareg--comment-padright--advice (origfn &rest args)
+(defun tuareg--comment-padright--advice (orig-fun &rest args)
(let ((str (nth 0 args)))
(unless (and (eq major-mode 'tuareg-mode)
(stringp str) (not (string-match "\\S-" str)))
- (apply origfn args))))
+ (apply orig-fun args))))
(when (and (< emacs-major-version 26) (fboundp 'comment-region-default))
(advice-add 'comment-padright :around #'tuareg--comment-padright--advice))
@@ -86,10 +86,10 @@
lines
indent))))))
-(defun tuareg--comment-region-default--advice (origfn &rest args)
+(defun tuareg--comment-region-default--advice (orig-fun &rest args)
(apply (if (eq major-mode 'tuareg-mode)
'tuareg--comment-region-default
- origfn)
+ orig-fun)
args))
(when (and (< emacs-major-version 27) (fboundp 'comment-region-default))
@@ -183,10 +183,10 @@ out."
lines
indent))))))
-(defun tuareg--comment-region-default-1--advice (origfn &rest args)
+(defun tuareg--comment-region-default-1--advice (orig-fun &rest args)
(apply (if (eq major-mode 'tuareg-mode)
'tuareg--comment-region-default-1
- origfn)
+ orig-fun)
args))
(when (and (= emacs-major-version 27) (fboundp 'comment-region-default-1))
@@ -295,10 +295,10 @@ This function is the default value of
`uncomment-region-function'."
(goto-char (point-max))))))
(set-marker end nil))
-(defun tuareg--uncomment-region-default--advice (origfn &rest args)
+(defun tuareg--uncomment-region-default--advice (orig-fun &rest args)
(apply (if (eq major-mode 'tuareg-mode)
'tuareg--uncomment-region-default
- origfn)
+ orig-fun)
args))
(when (and (< emacs-major-version 27) (fboundp 'uncomment-region-default))
@@ -413,10 +413,10 @@ This function is the default value of
`uncomment-region-function'."
(delete-char (- (skip-chars-backward " " slim)))))))))
(set-marker end nil))
-(defun tuareg--uncomment-region-default-1--advice (origfn &rest args)
+(defun tuareg--uncomment-region-default-1--advice (orig-fun &rest args)
(apply (if (eq major-mode 'tuareg-mode)
'tuareg--uncomment-region-default-1
- origfn)
+ orig-fun)
args))
(when (and (<= emacs-major-version 28) (fboundp 'uncomment-region-default-1))
- [nongnu] elpa/tuareg updated (c33222d -> 00faf47), ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg c9bbe95 7/8: Better comment delimiter match using `syntax-ppss', ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg 0fd9588 1/8: README: mention NonGNU ELPA, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg 9f48840 2/8: README: Remove duplicate bug report URL, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg a156d04 3/8: Faster after comment detection & match comment delimiters, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg 50309ae 4/8: Enable to turn off the delimiters matching (show-paren) for comments, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg cbe70da 5/8: Remove conditional use of add-function, available on Emacs ≥ 24.4, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg fe10533 6/8: Document recent changes, ELPA Syncer, 2021/09/13
- [nongnu] elpa/tuareg 00faf47 8/8: Use uniform argument names for :around advice,
ELPA Syncer <=