318 |
If you do a \\[tcl-eval-defun] command on some Lisp source code, what |
If you do a \\[tcl-eval-defun] command on some Lisp source code, what |
319 |
process do you send it to? |
process do you send it to? |
320 |
|
|
321 |
- If you're in a process buffer (foo, bar, or *inferior-tcl*), |
- If you're in a process buffer (foo, bar, or *inferior-tcl*), |
322 |
you send it to that process. |
you send it to that process. |
323 |
- If you're in some other buffer (e.g., a source file), you |
- If you're in some other buffer (e.g., a source file), you |
324 |
send it to the process attached to buffer `inferior-tcl-buffer'. |
send it to the process attached to buffer `inferior-tcl-buffer'. |
494 |
;; FIXME consider using "not word or symbol", not |
;; FIXME consider using "not word or symbol", not |
495 |
;; "whitespace". |
;; "whitespace". |
496 |
(cons (concat "\\(\\s-\\|^\\)" |
(cons (concat "\\(\\s-\\|^\\)" |
497 |
;; FIXME Use regexp-quote? |
;; FIXME Use regexp-quote? |
498 |
(regexp-opt tcl-keyword-list t) |
(regexp-opt tcl-keyword-list t) |
499 |
"\\(\\s-\\|$\\)") |
"\\(\\s-\\|$\\)") |
500 |
2)))) |
2)))) |
573 |
|
|
574 |
(set (make-local-variable 'imenu-generic-expression) |
(set (make-local-variable 'imenu-generic-expression) |
575 |
'tcl-imenu-generic-expression) |
'tcl-imenu-generic-expression) |
576 |
|
|
577 |
;; Settings for new dabbrev code. |
;; Settings for new dabbrev code. |
578 |
(set (make-local-variable 'dabbrev-case-fold-search) nil) |
(set (make-local-variable 'dabbrev-case-fold-search) nil) |
579 |
(set (make-local-variable 'dabbrev-case-replace) nil) |
(set (make-local-variable 'dabbrev-case-replace) nil) |
789 |
(beginning-of-line) |
(beginning-of-line) |
790 |
(let* ((indent-point (point)) |
(let* ((indent-point (point)) |
791 |
(case-fold-search nil) |
(case-fold-search nil) |
792 |
(continued-line |
(continued-line |
793 |
(save-excursion |
(save-excursion |
794 |
(if (bobp) |
(if (bobp) |
795 |
nil |
nil |
937 |
contain-stack (cons nil contain-stack) |
contain-stack (cons nil contain-stack) |
938 |
last-depth (1+ last-depth))) |
last-depth (1+ last-depth))) |
939 |
(if (null (car contain-stack)) |
(if (null (car contain-stack)) |
940 |
(setcar contain-stack |
(setcar contain-stack |
941 |
(or (car (cdr state)) |
(or (car (cdr state)) |
942 |
(save-excursion |
(save-excursion |
943 |
(forward-sexp -1) |
(forward-sexp -1) |
944 |
(point))))) |
(point))))) |
945 |
(forward-line 1) |
(forward-line 1) |
946 |
(setq continued-line |
(setq continued-line |
947 |
(save-excursion |
(save-excursion |
948 |
(backward-char) |
(backward-char) |
949 |
(= (preceding-char) ?\\))) |
(= (preceding-char) ?\\))) |
969 |
(setq this-indent (- this-indent 1)))) |
(setq this-indent (- this-indent 1)))) |
970 |
;; Put chosen indentation into effect. |
;; Put chosen indentation into effect. |
971 |
(or (null this-indent) |
(or (null this-indent) |
972 |
(= (current-column) |
(= (current-column) |
973 |
(if continued-line |
(if continued-line |
974 |
(+ this-indent tcl-indent-level) |
(+ this-indent tcl-indent-level) |
975 |
this-indent)) |
this-indent)) |
976 |
(progn |
(progn |
977 |
(delete-region (point) (progn (beginning-of-line) (point))) |
(delete-region (point) (progn (beginning-of-line) (point))) |
978 |
(indent-to |
(indent-to |
979 |
(if continued-line |
(if continued-line |
980 |
(+ this-indent tcl-indent-level) |
(+ this-indent tcl-indent-level) |
981 |
this-indent))))))))) |
this-indent))))))))) |
982 |
) |
) |