Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 51492:168bf1dc1b53
(tcl-mode): Set imenu-generic-expression to the value of
tcl-imenu-generic-expression instead of the symbol.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 05 Jun 2003 19:47:26 +0000 |
| parents | 5dbeffb17d8e |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51491:0f2773d31797 | 51492:168bf1dc1b53 |
|---|---|
| 4 | 4 |
| 5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
| 6 ;; Author: Tom Tromey <tromey@redhat.com> | 6 ;; Author: Tom Tromey <tromey@redhat.com> |
| 7 ;; Chris Lindblad <cjl@lcs.mit.edu> | 7 ;; Chris Lindblad <cjl@lcs.mit.edu> |
| 8 ;; Keywords: languages tcl modes | 8 ;; Keywords: languages tcl modes |
| 9 ;; Version: $Revision: 1.73 $ | 9 ;; Version: $Revision: 1.74 $ |
| 10 | 10 |
| 11 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
| 12 | 12 |
| 13 ;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
| 547 '(tcl-font-lock-keywords nil nil nil beginning-of-defun | 547 '(tcl-font-lock-keywords nil nil nil beginning-of-defun |
| 548 (font-lock-syntactic-keywords . tcl-font-lock-syntactic-keywords) | 548 (font-lock-syntactic-keywords . tcl-font-lock-syntactic-keywords) |
| 549 (parse-sexp-lookup-properties . t))) | 549 (parse-sexp-lookup-properties . t))) |
| 550 | 550 |
| 551 (set (make-local-variable 'imenu-generic-expression) | 551 (set (make-local-variable 'imenu-generic-expression) |
| 552 'tcl-imenu-generic-expression) | 552 tcl-imenu-generic-expression) |
| 553 | 553 |
| 554 ;; Settings for new dabbrev code. | 554 ;; Settings for new dabbrev code. |
| 555 (set (make-local-variable 'dabbrev-case-fold-search) nil) | 555 (set (make-local-variable 'dabbrev-case-fold-search) nil) |
| 556 (set (make-local-variable 'dabbrev-case-replace) nil) | 556 (set (make-local-variable 'dabbrev-case-replace) nil) |
| 557 (set (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) "[$!]") | 557 (set (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) "[$!]") |