Mercurial > emacs
view lisp/cedet/srecode/template.el @ 108576:c85c4eac55a6
* progmodes/sh-script.el (sh-mode-default-syntax-table): Remove.
(sh-mode-syntax-table): Give it a default value instead.
(sh-header-marker): Make buffer-local.
(sh-mode): Move make-local-variable to the corresponding setq.
(sh-add-completer): Avoid gratuitously let-binding a buffer-local var.
Use complete-with-action.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 14 May 2010 17:21:12 -0400 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
;;; srecode-template.el --- SRecoder template language parser support. ;; Copyright (C) 2005, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Parser setup for the semantic recoder template parser. ;;; Code: (require 'semantic) (require 'semantic/ctxt) (require 'semantic/wisent) (require 'srecode/srt-wy) (define-mode-local-override semantic-tag-components srecode-template-mode (tag) "Return sectiondictionary tags." (when (semantic-tag-of-class-p tag 'function) (let ((dicts (semantic-tag-get-attribute tag :dictionaries)) (ans nil)) (while dicts (setq ans (append ans (cdr (car dicts)))) (setq dicts (cdr dicts))) ans) )) ;; In semantic-imenu.el, not part of Emacs. (defvar semantic-imenu-summary-function) ;;;###autoload (defun srecode-template-setup-parser () "Setup buffer for parse." (srecode-template-wy--install-parser) (setq ;; Lexical Analysis semantic-lex-analyzer 'wisent-srecode-template-lexer ;; Parsing ;; Environment semantic-imenu-summary-function 'semantic-format-tag-name imenu-create-index-function 'semantic-create-imenu-index semantic-command-separation-character "\n" semantic-lex-comment-regex ";;" ;; Speedbar semantic-symbol->name-assoc-list '((function . "Template") (variable . "Variable") ) ;; Navigation senator-step-at-tag-classes '(function variable) )) (provide 'srecode/template) ;; Local variables: ;; generated-autoload-file: "loaddefs.el" ;; generated-autoload-load-name: "srecode/template" ;; End: ;; arch-tag: 037fbca7-e846-4521-b801-3463f50c3080 ;;; srecode/template.el ends here