diff --git a/.emacs.d/lisp/functions.el b/.emacs.d/lisp/functions.el index 078f8149..0b2f10fb 100644 --- a/.emacs.d/lisp/functions.el +++ b/.emacs.d/lisp/functions.el @@ -295,6 +295,11 @@ Hook function for skeletons." (defvar skeleton-markers nil "Markers for locations saved in `skeleton-positions'.") +(defun skeleton-previous-position () + "Move to previous skeleton placeholder. +See `skeleton-next-position'." + (skeleton-next-position t)) + (defun skeleton-next-position (&optional reverse) "Move to next skeleton placeholder. If REVERSE it t, move to previous placeholder." diff --git a/.emacs.d/lisp/init-eshell.el b/.emacs.d/lisp/init-eshell.el index fa8a905e..aea1b8c2 100644 --- a/.emacs.d/lisp/init-eshell.el +++ b/.emacs.d/lisp/init-eshell.el @@ -213,7 +213,7 @@ See `eshell-prompt-regexp'." ;; cannonical file names (i.e. withou '~') while fish preserves ;; non-cannonical results. If the result contains a directory, ;; expand it. - (mapcar (lambda (e)(car (split-string e "\t"))) + (mapcar (lambda (e) (car (split-string e "\t"))) (split-string (with-output-to-string (with-current-buffer standard-output diff --git a/.emacs.d/lisp/main.el b/.emacs.d/lisp/main.el index d1d03256..4eec497f 100644 --- a/.emacs.d/lisp/main.el +++ b/.emacs.d/lisp/main.el @@ -283,7 +283,7 @@ (turn-on-skeleton-markers) (global-set-keys "C->" 'skeleton-next-position - "C-<" (lambda () (interactive) (skeleton-next-position t))) + "C-<" 'skeleton-previous-position) ;;; Disable prompt (but leave warning) on git symlink. (setq vc-follow-symlinks t)