diff options
| author | Tom Tromey <tromey@redhat.com> | 1995-07-11 03:13:15 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 1995-07-11 03:13:15 +0000 |
| commit | 68734e7b47ed8dd37d12e223eabfbac91dc811b3 (patch) | |
| tree | fd0c0725791fb444d511611c198b617070ff4b1b /lisp | |
| parent | d9817d8cd78d8fcc82bc6576cc42978d07bd35df (diff) | |
| download | emacs-68734e7b47ed8dd37d12e223eabfbac91dc811b3.tar.gz emacs-68734e7b47ed8dd37d12e223eabfbac91dc811b3.tar.bz2 emacs-68734e7b47ed8dd37d12e223eabfbac91dc811b3.zip | |
(tcl-mode): Customize for new dabbrev.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/tcl.el | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index bc0f75338d7..5c52b40c497 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -6,7 +6,7 @@ ;; Author: Tom Tromey <tromey@busco.lanl.gov> ;; Chris Lindblad <cjl@lcs.mit.edu> ;; Keywords: languages tcl modes -;; Version: $Revision: 1.38 $ +;; Version: $Revision: 1.39 $ ;; This file is part of GNU Emacs. @@ -51,7 +51,7 @@ ;; LCD Archive Entry: ;; tcl|Tom Tromey|tromey@busco.lanl.gov| ;; Major mode for editing Tcl| -;; $Date: 1995/07/09 21:30:32 $|$Revision: 1.38 $|~/modes/tcl.el.Z| +;; $Date: 1995/07/09 21:58:03 $|$Revision: 1.39 $|~/modes/tcl.el.Z| ;; CUSTOMIZATION NOTES: ;; * tcl-proc-list can be used to customize a list of things that @@ -65,6 +65,10 @@ ;; Change log: ;; $Log: tcl.el,v $ +;; Revision 1.39 1995/07/09 21:58:03 tromey +;; (tcl-do-fill-paragraph): New function. +;; (tcl-mode): Set up for paragraph filling. +;; ;; Revision 1.38 1995/07/09 21:30:32 tromey ;; (tcl-mode): Fixes to 19.29 paragraph variables. ;; @@ -325,7 +329,7 @@ (require 'imenu)) ())) -(defconst tcl-version "$Revision: 1.38 $") +(defconst tcl-version "$Revision: 1.39 $") (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") ;; @@ -946,6 +950,16 @@ Commands: (setq imenu-create-index-function 'tcl-imenu-create-index-function) (make-local-variable 'parse-sexp-ignore-comments) + ;; Settings for new dabbrev code. + (make-local-variable 'dabbrev-case-fold-search) + (setq dabbrev-case-fold-search nil) + (make-local-variable 'dabbrev-case-replace) + (setq dabbrev-case-replace nil) + (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) + (setq dabbrev-abbrev-skip-leading-regexp "[$!]") + (make-local-variable 'dabbrev-abbrev-char-regexp) + (setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_") + (if tcl-using-emacs-19 (progn ;; This can only be set to t in Emacs 19 and XEmacs. |