Emacs: Define skeleton-previous-position instead of using lambda

master
Pierre Neidhardt 2017-10-06 20:03:09 +01:00
parent 2f1ad8a349
commit b1e8a03b17
3 changed files with 7 additions and 2 deletions

View File

@ -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."

View File

@ -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

View File

@ -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)