branch: elpa/dslide
commit 77126167a39a154a99508044fad899f40dc17381
Author: Psionik K <[email protected]>
Commit: Psionik K <[email protected]>
remove extraneous method qualifiers
narrowing should not use the default implementation of end. or begin.
Signed-off-by: Psionik K <[email protected]>
---
dslide.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/dslide.el b/dslide.el
index f146c463da..a343e523b1 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1324,7 +1324,7 @@ restriction, meaning no progress was made."
;; get it right. The key thing to note is that a parent can't re-display
itself
;; unless it's going backwards. It needs to display itself during end even
;; though the end of its children may clobber it. This works, just awkwardly.
-(cl-defmethod dslide-begin :after ((obj dslide-action-narrow))
+(cl-defmethod dslide-begin ((obj dslide-action-narrow))
(dslide-narrow obj))
(cl-defmethod dslide-forward ((_ dslide-action-narrow)) ; odd
@@ -1333,7 +1333,7 @@ restriction, meaning no progress was made."
(cl-defmethod dslide-backward ((obj dslide-action-narrow))
(dslide-narrow obj))
-(cl-defmethod dslide-end :after ((obj dslide-action-narrow))
+(cl-defmethod dslide-end ((obj dslide-action-narrow))
(dslide-narrow obj))
;; ** Reveal items action
@@ -1541,7 +1541,7 @@ stateful-sequence class methods. METHOD-NAME is a
string."
:documentation "Reload images. See `org-display-inline-images'."))
"Show images fullscreen in a buffer.")
-(cl-defmethod dslide-begin :after ((obj dslide-action-image))
+(cl-defmethod dslide-begin ((obj dslide-action-image))
(org-display-inline-images
(oref obj include-linked)
(oref obj refresh)
