3290 |
(const reindent-then-newline-and-indent) |
(const reindent-then-newline-and-indent) |
3291 |
(sexp :tag "Other"))) |
(sexp :tag "Other"))) |
3292 |
|
|
3293 |
|
(defun TeX-insert-backslash (arg) |
3294 |
|
"Either insert typed key ARG times or call `TeX-electric-macro'. |
3295 |
|
`TeX-electric-macro' will be called if `TeX-electric-escape' is non-nil." |
3296 |
|
(interactive "*p") |
3297 |
|
(if TeX-electric-escape |
3298 |
|
(funcall 'TeX-electric-macro) |
3299 |
|
(self-insert-command arg))) |
3300 |
|
|
3301 |
(defun TeX-insert-sub-or-superscript (arg) |
(defun TeX-insert-sub-or-superscript (arg) |
3302 |
"Insert typed key ARG times and possibly a pair of braces. |
"Insert typed key ARG times and possibly a pair of braces. |
3303 |
Brace insertion is only done if point is in a math construct and |
Brace insertion is only done if point is in a math construct and |
3332 |
(define-key map "\C-c{" 'TeX-insert-braces) |
(define-key map "\C-c{" 'TeX-insert-braces) |
3333 |
(define-key map "\C-c\C-f" 'TeX-font) |
(define-key map "\C-c\C-f" 'TeX-font) |
3334 |
(define-key map "\C-c\C-m" 'TeX-insert-macro) |
(define-key map "\C-c\C-m" 'TeX-insert-macro) |
3335 |
(if TeX-electric-escape |
(define-key map "\\" 'TeX-insert-backslash) |
3336 |
(define-key map "\\" 'TeX-electric-macro)) |
(define-key map "^" 'TeX-insert-sub-or-superscript) |
3337 |
(define-key map "^" 'TeX-insert-sub-or-superscript) |
(define-key map "_" 'TeX-insert-sub-or-superscript) |
3338 |
(define-key map "_" 'TeX-insert-sub-or-superscript) |
(define-key map "\e\t" 'TeX-complete-symbol) ;*** Emacs 19 way |
|
(define-key map "\e\t" 'TeX-complete-symbol) ;*** Emacs 19 way |
|
3339 |
|
|
3340 |
(define-key map "\C-c'" 'TeX-comment-or-uncomment-paragraph) ;*** Old way |
(define-key map "\C-c'" 'TeX-comment-or-uncomment-paragraph) ;*** Old way |
3341 |
(define-key map "\C-c:" 'TeX-comment-or-uncomment-region) ;*** Old way |
(define-key map "\C-c:" 'TeX-comment-or-uncomment-region) ;*** Old way |