Mercurial > emacs

comparison lisp/progmodes/f90.el @ 90261:7beb78bc1f8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 616-696) - Add lisp/mh-e/.arch-inventory - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. - lisp/gnus/ChangeLog: Remove duplicate entry * gnus--rel--5.10 (patch 147-181) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS: texi/message.texi: Fix default values. - Update from CVS: texi/gnus.texi (RSS): Addition.
author Miles Bader <miles@gnu.org>
date Mon, 16 Jan 2006 08:37:27 +0000
parents 5e2d3828e89f a11fdee52c05
children 4b3d39451150
comparison
equal deleted inserted replaced
90260:0ca0d9181b5e 90261:7beb78bc1f8e
162 162
163 ;; User options 163 ;; User options
164 164
165 (defgroup f90 nil 165 (defgroup f90 nil
166 "Major mode for editing free format Fortran 90,95 code." 166 "Major mode for editing free format Fortran 90,95 code."
167 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
167 :group 'languages) 168 :group 'languages)
168 169
169 (defgroup f90-indent nil 170 (defgroup f90-indent nil
170 "Indentation in free format Fortran." 171 "Indentation in free format Fortran."
171 :prefix "f90-" 172 :prefix "f90-"
1765 (message "Matches %s: %s" 1766 (message "Matches %s: %s"
1766 (what-line) 1767 (what-line)
1767 (buffer-substring 1768 (buffer-substring
1768 (line-beginning-position) 1769 (line-beginning-position)
1769 (line-end-position))) 1770 (line-end-position)))
1770 (sit-for 1))) 1771 (sit-for blink-matching-delay)))
1771 (setq beg-block (car matching-beg) 1772 (setq beg-block (car matching-beg)
1772 beg-name (car (cdr matching-beg))) 1773 beg-name (car (cdr matching-beg)))
1773 (goto-char end-point) 1774 (goto-char end-point)
1774 (beginning-of-line) 1775 (beginning-of-line)
1775 (f90-block-match beg-block beg-name end-block end-name)))))) 1776 (f90-block-match beg-block beg-name end-block end-name))))))