Commit 6c7dc12e authored by Arnaud Legrand's avatar Arnaud Legrand

This configuration is too specific and should not appear there.

parent cb95ebdb
...@@ -33,23 +33,6 @@ ...@@ -33,23 +33,6 @@
(cua-mode t) (cua-mode t)
(defun jump-mark ()
(interactive)
(set-mark-command (point)))
(defun beginning-of-defun-and-mark ()
(interactive)
(push-mark (point))
(beginning-of-defun))
(defun end-of-defun-and-mark ()
(interactive)
(push-mark (point))
(end-of-defun))
(global-set-key "\^c\^b" 'beginning-of-defun-and-mark)
(global-set-key "\^c\^e" 'end-of-defun-and-mark)
(global-set-key "\^c\^j" 'jump-mark)
(global-set-key [S-f6] 'jump-mark) ;; jump from mark to mark
(global-set-key "\M-g" 'goto-line) (global-set-key "\M-g" 'goto-line)
(global-set-key (kbd "C-+") 'text-scale-increase) (global-set-key (kbd "C-+") 'text-scale-increase)
......
...@@ -88,8 +88,8 @@ my other shortcuts (e.g., the ones for spelling a region). ...@@ -88,8 +88,8 @@ my other shortcuts (e.g., the ones for spelling a region).
#+begin_src emacs-lisp :tangle init.el #+begin_src emacs-lisp :tangle init.el
(cua-mode t) (cua-mode t)
#+end_src #+end_src
** Navigate back in text :ARNAUD: ** Navigate back in text :ARNAUD:noexport:
#+begin_src emacs-lisp :tangle init.el #+begin_src emacs-lisp
(defun jump-mark () (defun jump-mark ()
(interactive) (interactive)
(set-mark-command (point))) (set-mark-command (point)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment