branch: elpa/popup
commit 098170f2b5f29a836b5d1ebf56eadeb088b01cff
Author: Tomohiro Matsuyama <t...@cx4a.org>
Commit: Tomohiro Matsuyama <t...@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
