/[emacs]/emacs/lisp/progmodes/tcl.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/tcl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by monnier, Thu Nov 7 15:22:49 2002 UTC revision 1.71 by lektu, Tue Feb 4 13:24:35 2003 UTC
# Line 318  have three inferior Lisps running: Line 318  have three inferior Lisps running:
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'.
# Line 494  Uses variables `tcl-proc-regexp' and `tc Line 494  Uses variables `tcl-proc-regexp' and `tc
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))))
# Line 573  Commands: Line 573  Commands:
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)
# Line 789  Returns nil if line starts inside a stri Line 789  Returns nil if line starts inside a stri
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
# Line 937  Returns nil if line starts inside a stri Line 937  Returns nil if line starts inside a stri
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) ?\\)))
# Line 969  Returns nil if line starts inside a stri Line 969  Returns nil if line starts inside a stri
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    )    )

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26