branch: elpa/casual
commit f0976da0f5e0f699a1c18b8a4f1586ea402d2c60
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Change "Open file…" in EditKit to use ffap
- Changes command from `find-file` to `find-file-at-point` in
`casual-editkit-main-tmenu`.
---
lisp/casual-editkit.el | 2 +-
tests/test-casual-editkit.el | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/casual-editkit.el b/lisp/casual-editkit.el
index cf00c99cdd..6487f4df17 100644
--- a/lisp/casual-editkit.el
+++ b/lisp/casual-editkit.el
@@ -48,7 +48,7 @@ It can be used as-is or serve as a template for building a
user-customized menu."
[["File"
("o" "Open›" casual-editkit-open-tmenu)
- ("f" "Open file…" find-file)
+ ("f" "Open file…" find-file-at-point)
("d" "Open in Dired" dired-jump-other-window
:if (lambda () (buffer-file-name)))
("b" "List Buffers" ibuffer)
diff --git a/tests/test-casual-editkit.el b/tests/test-casual-editkit.el
index 5d0ecff5b9..d6417df292 100644
--- a/tests/test-casual-editkit.el
+++ b/tests/test-casual-editkit.el
@@ -35,7 +35,7 @@
((symbol-function
#'casual-editkit-package-symbol-overlay-installed-p) (lambda () t))
((symbol-function #'casual-editkit-package-magit-installed-p)
(lambda () t))
((symbol-function #'display-graphic-p) (lambda (&optional d) t))
- (casualt-mock #'find-file)
+ (casualt-mock #'find-file-at-point)
(casualt-mock #'dired-jump-other-window)
(casualt-mock #'ibuffer)
(casualt-mock #'recentf-open-files)
@@ -63,7 +63,7 @@
(let ((test-vectors
'((:binding "o" :command casual-editkit-open-tmenu)
- (:binding "f" :command find-file)
+ (:binding "f" :command find-file-at-point)
(:binding "d" :command dired-jump-other-window)
(:binding "b" :command ibuffer)
(:binding "R" :command recentf-open-files)
