From 68734e7b47ed8dd37d12e223eabfbac91dc811b3 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 11 Jul 1995 03:13:15 +0000 Subject: [PATCH] (tcl-mode): Customize for new dabbrev. --- lisp/progmodes/tcl.el | 20 +++++++++++++++++--- 1 file 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 ;; Chris Lindblad ;; 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 ") ;; @@ -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. -- 2.39.2