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