Skip to content
Snippets Groups Projects
Commit 0e63da93 authored by Philippe Dosch's avatar Philippe Dosch
Browse files

changement de clé pour scissors et snip-lines-mail

parent 0fd408ce
No related branches found
No related tags found
No related merge requests found
...@@ -1082,7 +1082,7 @@ ...@@ -1082,7 +1082,7 @@
(interactive) (interactive)
(insert scissors) (insert scissors)
(forward-line 1)) (forward-line 1))
(global-set-key (kbd "M-s s") 'scissors) (global-set-key (kbd "M-s c") 'scissors)
(defun snip-lines-mail () (defun snip-lines-mail ()
"Delete all lines except the first three in the current buffer selection. "Delete all lines except the first three in the current buffer selection.
...@@ -1110,7 +1110,7 @@ For the middle line, remove all characters after the prefix and insert '[snip]' ...@@ -1110,7 +1110,7 @@ For the middle line, remove all characters after the prefix and insert '[snip]'
(if (re-search-forward "^\\([ >]*\\)\\(.*\\)$" nil t) (if (re-search-forward "^\\([ >]*\\)\\(.*\\)$" nil t)
(replace-match "" nil nil nil 2)) (replace-match "" nil nil nil 2))
(forward-line 1)))) (forward-line 1))))
(global-set-key (kbd "M-s l") 'snip-lines-mail) (global-set-key (kbd "M-s s") 'snip-lines-mail)
;;; .emacs ends here ;;; .emacs ends here
(provide '.emacs) (provide '.emacs)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment