/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by gm, Wed Apr 16 11:08:58 2003 UTC revision 1.70 by gm, Wed Apr 16 13:50:40 2003 UTC
# Line 855  For example, \"!\" or \"!!\"." Line 855  For example, \"!\" or \"!!\"."
855    "Return (\"do\" NAME) if a do statement starts after point.    "Return (\"do\" NAME) if a do statement starts after point.
856  NAME is nil if the statement has no label."  NAME is nil if the statement has no label."
857    (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>")    (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>")
858        (list (match-string 3) (match-string 2)))        (list (match-string 3) (match-string 2))))
859    
860  (defsubst f90-looking-at-select-case ()  (defsubst f90-looking-at-select-case ()
861    "Return (\"select\" NAME) if a select-case statement starts after point.    "Return (\"select\" NAME) if a select-case statement starts after point.
# Line 1519  is non-nil, call `f90-update-line' after Line 1519  is non-nil, call `f90-update-line' after
1519        (forward-char (if (looking-at f90-no-break-re) 2 1))        (forward-char (if (looking-at f90-no-break-re) 2 1))
1520      (backward-char)      (backward-char)
1521      (or (looking-at f90-no-break-re)      (or (looking-at f90-no-break-re)
1522          (forward-char)))))          (forward-char))))
1523    
1524  (defun f90-do-auto-fill ()  (defun f90-do-auto-fill ()
1525    "Break line if non-white characters beyond `fill-column'.    "Break line if non-white characters beyond `fill-column'.

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26