branch: externals/posframe
commit 1fd8c8ce40a38eafb3fb272b1964e376468e5bf1
Author: Štěpán Němec <[email protected]>
Commit: Štěpán Němec <[email protected]>
Remove unused bindings in 'posframe-hide-all' and 'posframe-delete-all'
---
posframe.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/posframe.el b/posframe.el
index c079633..b0f01ca 100644
--- a/posframe.el
+++ b/posframe.el
@@ -712,16 +712,16 @@ passing remaining ARGUMENTS to it."
"Hide all posframe's frames."
(interactive)
(dolist (frame (frame-list))
- (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
- (when buffer-info (posframe--make-frame-invisible frame)))))
+ (when (frame-parameter frame 'posframe-buffer)
+ (posframe--make-frame-invisible frame))))
;;;###autoload
(defun posframe-delete-all ()
"Delete all posframe's frames and buffers."
(interactive)
(dolist (frame (frame-list))
- (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
- (when buffer-info (delete-frame frame))))
+ (when (frame-parameter frame 'posframe-buffer)
+ (delete-frame frame)))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when posframe--frame
