1 changed files with 6 additions and 4 deletions
Unified View
Diff Options
-
+6 -4emacs.el
+ 6
- 4
emacs.el
View File
| @@ -530,10 +530,11 @@ Otherwize hook it." | |||||
| (define-key ctl-x-map (kbd "C-x") 'my-exchange-point-and-mark) | (define-key ctl-x-map (kbd "C-x") 'my-exchange-point-and-mark) | ||||
| (when (fboundp 'counsel-mark-ring) | (when (fboundp 'counsel-mark-ring) | ||||
| (define-key ctl-x-map "m" 'counsel-mark-ring)) | (define-key ctl-x-map "m" 'counsel-mark-ring)) | ||||
| (with-eval-after-load 'ivy | |||||
| (defvar ivy-sort-functions-alist) | |||||
| (add-to-list 'ivy-sort-functions-alist | |||||
| '(counsel-mark-ring))) | |||||
| ;; ? | |||||
| ;; (with-eval-after-load 'ivy | |||||
| ;; (defvar ivy-sort-functions-alist) | |||||
| ;; (add-to-list 'ivy-sort-functions-alist | |||||
| ;; '(counsel-mark-ring))) | |||||
| (run-with-idle-timer 10 t | (run-with-idle-timer 10 t | ||||
| (lambda () | (lambda () | ||||
| (push-mark) | (push-mark) | ||||
| @@ -1248,6 +1249,7 @@ THEM are function and its args." | |||||
| :history 'my-cousel-recently-history | :history 'my-cousel-recently-history | ||||
| :preselect default-directory | :preselect default-directory | ||||
| :action (lambda (x) (find-file x)) | :action (lambda (x) (find-file x)) | ||||
| :sort nil | |||||
| :caller 'my-counsel-recently)) | :caller 'my-counsel-recently)) | ||||
| (define-key ctl-x-map (kbd "C-r") 'my-counsel-recently) | (define-key ctl-x-map (kbd "C-r") 'my-counsel-recently) | ||||