Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 62772:f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
* progmodes/antlr-mode.el (antlr-mode):
* progmodes/autoconf.el (autoconf-mode):
* progmodes/dcl-mode.el (dcl-mode):
* progmodes/delphi.el (delphi-mode):
* progmodes/ebrowse.el (ebrowse-tree-mode)
(ebrowse-electric-list-mode, ebrowse-member-mode)
(ebrowse-electric-position-mode):
* progmodes/f90.el (f90-mode):
* progmodes/fortran.el (fortran-mode):
* progmodes/icon.el (icon-mode):
* progmodes/idlw-help.el (idlwave-help-mode):
* progmodes/idlw-shell.el (idlwave-shell-mode):
* progmodes/idlwave.el (idlwave-mode):
* progmodes/inf-lisp.el (inferior-lisp-mode):
* progmodes/m4-mode.el (m4-mode):
* progmodes/meta-mode.el (metafont-mode, metapost-mode):
* progmodes/modula2.el (modula-2-mode):
* progmodes/octave-inf.el (inferior-octave-mode):
* progmodes/octave-mod.el (octave-mode):
* progmodes/pascal.el (pascal-mode):
* progmodes/sh-script.el (sh-mode):
* progmodes/sql.el (sql-mode, sql-interactive-mode):
* progmodes/vhdl-mode.el (vhdl-mode):
* progmodes/xscheme.el (scheme-interaction-mode): Use run-mode-hooks.
author | Lute Kamstra <lute@gnu.org> |
---|---|
date | Thu, 26 May 2005 16:39:28 +0000 |
parents | 9554f19ae068 |
children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
62771:a0b0cf078b7b | 62772:f2892faa87d4 |
---|---|
797 #'fortran-end-of-subprogram) | 797 #'fortran-end-of-subprogram) |
798 (set (make-local-variable 'add-log-current-defun-function) | 798 (set (make-local-variable 'add-log-current-defun-function) |
799 #'fortran-current-defun) | 799 #'fortran-current-defun) |
800 (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) | 800 (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) |
801 (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) | 801 (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) |
802 (run-hooks 'fortran-mode-hook)) | 802 (run-mode-hooks 'fortran-mode-hook)) |
803 | 803 |
804 | 804 |
805 (defun fortran-gud-find-expr () | 805 (defun fortran-gud-find-expr () |
806 ;; Consider \n as punctuation (end of expression). | 806 ;; Consider \n as punctuation (end of expression). |
807 (with-syntax-table fortran-gud-syntax-table | 807 (with-syntax-table fortran-gud-syntax-table |