[nongnu] elpa/visual-fill-column 7c479f1a1c 098/137: Use `(selected-window)' instead of `(get-buffer-window (current-buffer))'.

[ELPA Syncer]

branch: elpa/visual-fill-column
commit 7c479f1a1c9de142aed02c72a8dc955834bc2ef0
Author: Joost Kremers <joostkremers@fastmail.fm>
Commit: Joost Kremers <joostkremers@fastmail.fm>

    Use `(selected-window)' instead of `(get-buffer-window (current-buffer))'.
---
 visual-fill-column.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index 9e0261f1ef..bc3fa724ed 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -203,7 +203,7 @@ area plus the margins, but excluding the fringes, scroll 
bar and
 right divider.  WINDOW defaults to the selected window.  The
 return value is scaled to account for `text-scale-mode-amount'
 and `text-scale-mode-step'."
-  (or window (setq window (get-buffer-window (current-buffer))))
+  (or window (setq window (selected-window)))
   (let* ((margins (window-margins window))
          (buffer (window-buffer window))
          (scale (if (and (boundp 'text-scale-mode-step)