branch: elpa/sesman
commit e340810e829e8a6ebeecf6d20ce4cd8f124b3aad
Author: Bozhidar Batsov <bozhi...@batsov.com>
Commit: Bozhidar Batsov <bozhi...@batsov.com>
Refer to a few commands with the #' notation
---
sesman.el | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/sesman.el b/sesman.el
index f937deff01..c7f35da6a5 100644
--- a/sesman.el
+++ b/sesman.el
@@ -355,24 +355,24 @@ argument or 'all, show info for all sessions."
(defvar sesman-map
(let (sesman-map)
(define-prefix-command 'sesman-map)
- (define-key sesman-map (kbd "C-i") 'sesman-show-session-info)
- (define-key sesman-map (kbd "i") 'sesman-show-session-info)
- (define-key sesman-map (kbd "C-l") 'sesman-show-links)
- (define-key sesman-map (kbd "l") 'sesman-show-links)
- (define-key sesman-map (kbd "C-s") 'sesman-start)
- (define-key sesman-map (kbd "s") 'sesman-start)
- (define-key sesman-map (kbd "C-r") 'sesman-restart)
- (define-key sesman-map (kbd "r") 'sesman-restart)
- (define-key sesman-map (kbd "C-q") 'sesman-quit)
- (define-key sesman-map (kbd "q") 'sesman-quit)
- (define-key sesman-map (kbd "C-b") 'sesman-link-with-buffer)
- (define-key sesman-map (kbd "b") 'sesman-link-with-buffer)
- (define-key sesman-map (kbd "C-d") 'sesman-link-with-directory)
- (define-key sesman-map (kbd "d") 'sesman-link-with-directory)
- (define-key sesman-map (kbd "C-p") 'sesman-link-with-project)
- (define-key sesman-map (kbd "p") 'sesman-link-with-project)
- (define-key sesman-map (kbd "C-u") 'sesman-unlink)
- (define-key sesman-map (kbd " u") 'sesman-unlink)
+ (define-key sesman-map (kbd "C-i") #'sesman-show-session-info)
+ (define-key sesman-map (kbd "i") #'sesman-show-session-info)
+ (define-key sesman-map (kbd "C-l") #'sesman-show-links)
+ (define-key sesman-map (kbd "l") #'sesman-show-links)
+ (define-key sesman-map (kbd "C-s") #'sesman-start)
+ (define-key sesman-map (kbd "s") #'sesman-start)
+ (define-key sesman-map (kbd "C-r") #'sesman-restart)
+ (define-key sesman-map (kbd "r") #'sesman-restart)
+ (define-key sesman-map (kbd "C-q") #'sesman-quit)
+ (define-key sesman-map (kbd "q") #'sesman-quit)
+ (define-key sesman-map (kbd "C-b") #'sesman-link-with-buffer)
+ (define-key sesman-map (kbd "b") #'sesman-link-with-buffer)
+ (define-key sesman-map (kbd "C-d") #'sesman-link-with-directory)
+ (define-key sesman-map (kbd "d") #'sesman-link-with-directory)
+ (define-key sesman-map (kbd "C-p") #'sesman-link-with-project)
+ (define-key sesman-map (kbd "p") #'sesman-link-with-project)
+ (define-key sesman-map (kbd "C-u") #'sesman-unlink)
+ (define-key sesman-map (kbd " u") #'sesman-unlink)
sesman-map)
"Session management prefix keymap.")
