Cleanup old unused stuff

master
Jacopo De Simoi 12 years ago
parent 58769965a6
commit e267d656ed
  1. 33
      init.el

@ -59,24 +59,9 @@
scroll-conservatively 10000
scroll-preserve-screen-position 1)
(defun delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(delete-region (point) (progn (forward-word arg) (point))))
(defun backward-delete-word (arg)
"Delete characters backward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(delete-word (- arg)))
(require 'mic-paren) ; loading
(paren-activate) ; activating
(global-set-key (kbd "C-'") 'backward-delete-char)
(global-set-key (kbd "M-'") 'backward-kill-word)
(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
(global-set-key (kbd "<backtab>") 'TeX-complete-symbol)
@ -93,24 +78,6 @@
(load "~/bibsnarf.el" nil t t)
(require 'reftex)
(fset 'insert-matching-paren
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([92 108 101 102 116 40 92 114 105 103 104 116 41 C-left left] 0 "%d")) arg)))
(fset 'insert-matching-sqbraces
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([92 108 101 102 116 91 92 114 105 103 104 116 93 C-left left] 0 "%d")) arg)))
(fset 'insert-matching-braces
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([92 108 101 102 116 92 123 92 114 105 103 104 116 92 125 C-left left] 0 "%d")) arg)))
(fset 'insert-matching-abs
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([92 108 101 102 116 124 92 114 105 103 104 116 124 C-left left] 0 "%d")) arg)))
(fset 'insert-matching-bcs
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([123 125 left] 0 "%d")) arg)))
(fset 'insert-superscript
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([94 123] 0 "%d")) arg)))
(fset 'insert-subscript
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote (["_" 123] 0 "%d")) arg)))
(global-set-key (kbd "C-^") 'insert-superscript)
(global-set-key (kbd "C-_") 'insert-subscript)
;; KDE stuff
;;

Loading…
Cancel
Save