branch: elpa/casual
commit d0408ee522381e0f807d05622c28d308d6d5bbe2
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Fix label for Document up navigation
- Fixes label for Document up navigation.
---
docs/casual.info | Bin 153025 -> 153025 bytes
docs/images/casual-eww-screenshot.png | Bin 131453 -> 140961 bytes
lisp/casual-eww-utils.el | 1 +
lisp/casual-eww.el | 2 +-
tests/test-casual-eww-utils.el | 2 ++
5 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/docs/casual.info b/docs/casual.info
index 2b2678bd8a..67f0048aef 100644
Binary files a/docs/casual.info and b/docs/casual.info differ
diff --git a/docs/images/casual-eww-screenshot.png
b/docs/images/casual-eww-screenshot.png
index 4c6b583ca8..b1e92e6913 100644
Binary files a/docs/images/casual-eww-screenshot.png and
b/docs/images/casual-eww-screenshot.png differ
diff --git a/lisp/casual-eww-utils.el b/lisp/casual-eww-utils.el
index 49babdbcba..f595e20ef6 100644
--- a/lisp/casual-eww-utils.el
+++ b/lisp/casual-eww-utils.el
@@ -35,6 +35,7 @@
(:forward . '("โ" "Forward"))
(:back . '("โ" "Back"))
(:link . '("๐" "Link"))
+ (:up . '("โ" "Up"))
(:top . '("โค" "Top"))
(:history . '("โฃ" "History"))
(:page . '("๐" "Page"))
diff --git a/lisp/casual-eww.el b/lisp/casual-eww.el
index 6113d85a4d..573f50d8d6 100644
--- a/lisp/casual-eww.el
+++ b/lisp/casual-eww.el
@@ -91,7 +91,7 @@ See Info node `(eww)Top' for more information on it."
:description (lambda () (casual-eww-unicode-get :forward))
:transient t)
("^" "โ" eww-up-url
- :description (lambda () (casual-eww-unicode-get :previous))
+ :description (lambda () (casual-eww-unicode-get :up))
:transient t)
("t" "โค" eww-top-url
:description (lambda () (casual-eww-unicode-get :top))
diff --git a/tests/test-casual-eww-utils.el b/tests/test-casual-eww-utils.el
index bcc82be22a..27f0253d10 100644
--- a/tests/test-casual-eww-utils.el
+++ b/tests/test-casual-eww-utils.el
@@ -38,6 +38,7 @@
(should (string-equal (casual-eww-unicode-get :forward) "Forward"))
(should (string-equal (casual-eww-unicode-get :back) "Back"))
(should (string-equal (casual-eww-unicode-get :link) "Link"))
+ (should (string-equal (casual-eww-unicode-get :up) "Up"))
(should (string-equal (casual-eww-unicode-get :top) "Top"))
(should (string-equal (casual-eww-unicode-get :history) "History"))
(should (string-equal (casual-eww-unicode-get :page) "Page"))
@@ -61,6 +62,7 @@
(should (string-equal (casual-eww-unicode-get :forward) "โ"))
(should (string-equal (casual-eww-unicode-get :back) "โ"))
(should (string-equal (casual-eww-unicode-get :link) "๐"))
+ (should (string-equal (casual-eww-unicode-get :up) "โ"))
(should (string-equal (casual-eww-unicode-get :top) "โค"))
(should (string-equal (casual-eww-unicode-get :history) "โฃ"))
(should (string-equal (casual-eww-unicode-get :page) "๐"))
