branch: externals/objed
commit 244acd2ae319c54e17e8e87e9deb40a51560430e
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Allow passing object to objed-init again
---
objed.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/objed.el b/objed.el
index cedac42..0cb6219 100644
--- a/objed.el
+++ b/objed.el
@@ -1258,12 +1258,13 @@ See `objed-cmd-alist'."
(or (memq major-mode '(messages-buffer-mode help-mode))
(not (derived-mode-p 'comint-mode 'special-mode 'dired-mode)))))
-(defun objed-init (&rest _)
+(defun objed-init (&optional obj)
"Function for activating objed by hooks or advices.
-Initialize with `objed--object' or char if unset."
+Initialize with OBJ which defaults to `objed--object' which falls
+back to char if unset."
(when (funcall objed-init-p-function)
- (objed--init (or objed--object 'char))))
+ (objed--init (or obj objed--object 'char))))
(defun objed--init-later (&rest _)
"Init after command loop returned to top level."
@@ -2017,8 +2018,7 @@ back to `objed-initial-object' if no match found."
(if (assq last-command objed-cmd-alist)
last-command
objed-initial-object))
- (let ((objed--object obj))
- (objed-init))))
+ (objed-init obj)))
;;;###autoload
