[nongnu] elpa/popup 098170f 006/184: Added :always option for :scroll-bar argument.

[ELPA Syncer]

branch: elpa/popup
commit 098170f2b5f29a836b5d1ebf56eadeb088b01cff
Author: Tomohiro Matsuyama <tomo@cx4a.org>
Commit: Tomohiro Matsuyama <tomo@cx4a.org>

    Added :always option for :scroll-bar argument.
---
 popup.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/popup.el b/popup.el
index f61b8c8..1c28d86 100644
--- a/popup.el
+++ b/popup.el
@@ -649,7 +649,8 @@ PARENT-OFFSET is a row offset from the parent popup."
         for empty-char = (propertize " " 'face face)
         for scroll-bar-char = (if scroll-bar
                                   (cond
-                                   ((<= page-size 1)
+                                   ((and (not (eq scroll-bar :always))
+                                         (<= page-size 1))
                                     empty-char)
                                    ((and (> page-size 1)
                                          (>= cursor (* page-index page-size))
@@ -1246,4 +1247,4 @@ the sub menu."
     map))
 
 (provide 'popup)
-;;; popup.el ends here
+;;; popup.el ends here
\ No newline at end of file