[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/xah-fly-keys 9e4d32ad02 4/4: removed xah-open-file-fast an
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/xah-fly-keys 9e4d32ad02 4/4: removed xah-open-file-fast and associated code. in emacs 28, use bookmark-jump and turn on fido-vertical-mode |
Date: |
Mon, 16 May 2022 21:58:48 -0400 (EDT) |
branch: elpa/xah-fly-keys
commit 9e4d32ad028649786557858366acf1cd9793d338
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>
removed xah-open-file-fast and associated code. in emacs 28, use
bookmark-jump and turn on fido-vertical-mode
---
xah-fly-keys.el | 26 ++------------------------
1 file changed, 2 insertions(+), 24 deletions(-)
diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 64fe9f7465..307e3b00a2 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
;; Author: Xah Lee ( http://xahlee.info/ )
;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 17.8.20220516182155
+;; Version: 17.9.20220516184525
;; Created: 10 Sep 2013
;; Package-Requires: ((emacs "24.1"))
;; Keywords: convenience, emulations, vim, ergoemacs
@@ -2284,28 +2284,6 @@ Version: 2016-06-19"
(mapc (lambda ($f) (insert (cdr $f) "\n"))
xah-recently-closed-buffers)))
-(declare-function bookmark-maybe-load-default-file "bookmark" ())
-(defvar bookmark-alist)
-(declare-function bookmark-get-filename "bookmark" (bookmark-name-or-record))
-
-(defun xah-open-file-fast ()
- "Prompt to open a file from bookmark `bookmark-bmenu-list'.
-This command is similar to `bookmark-jump'.
-
-Note: this command is obsolete in emacs 28.1. Use `bookmark-jump' instead and
turn on `fido-vertical-mode'. The purpose of `xah-open-file-fast' was using ido
interface for flex matching. Now it's no longer needed.
-
-URL `http://xahlee.info/emacs/emacs/emacs_hotkey_open_file_fast.html'
-Version: 2019-02-26 2022-04-07"
- (interactive)
- (require 'bookmark)
- (bookmark-maybe-load-default-file)
- (let (($xBookmark (completing-read "Open bookmark:" (mapcar (lambda ($x)
(car $x)) bookmark-alist))))
- (find-file (bookmark-get-filename $xBookmark))))
-
-(if (<= emacs-major-version 28)
- nil
- (defalias 'xah-open-file-fast 'bookmark-jump))
-
(defvar xah-open-file-at-cursor-pre-hook nil "Hook for
`xah-open-file-at-cursor'. Functions in the hook will be called in order, each
given the path as arg. The first return non-nil, its value is given to
`xah-open-file-at-cursor' as input. This is useful for transforming certain url
into file path (your website url), so instead of opening in browser, it opens
in emacs as file.")
(defun xah-open-file-at-cursor ()
@@ -4038,7 +4016,7 @@ minor modes loaded later may override bindings in this
map.")
("o" . xah-show-in-desktop)
("p" . xah-open-last-closed)
("q" . nil)
- ("r" . xah-open-file-fast)
+ ("r" . bookmark-jump)
("s" . write-file)
("t" . nil)
("u" . xah-open-file-at-cursor)