Mercurial > hg > xemacs-beta

comparison lisp/modes/fortran.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 34a5b81f86ba
children
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
226 (if fortran-mode-syntax-table 226 (if fortran-mode-syntax-table
227 () 227 ()
228 (setq fortran-mode-syntax-table (make-syntax-table)) 228 (setq fortran-mode-syntax-table (make-syntax-table))
229 (modify-syntax-entry ?\; "w" fortran-mode-syntax-table) 229 (modify-syntax-entry ?\; "w" fortran-mode-syntax-table)
230 (modify-syntax-entry ?\r " " fortran-mode-syntax-table) 230 (modify-syntax-entry ?\r " " fortran-mode-syntax-table)
231 (modify-syntax-entry ?+ "." fortran-mode-syntax-table) 231 (modify-syntax-entry ?+ "." fortran-mode-syntax-table)
232 (modify-syntax-entry ?- "." fortran-mode-syntax-table) 232 (modify-syntax-entry ?- "." fortran-mode-syntax-table)
233 (modify-syntax-entry ?= "." fortran-mode-syntax-table) 233 (modify-syntax-entry ?= "." fortran-mode-syntax-table)
234 ;; XEmacs change 234 ;; XEmacs change
235 ;;(modify-syntax-entry ?* "." fortran-mode-syntax-table) 235 ;;(modify-syntax-entry ?* "." fortran-mode-syntax-table)
236 (modify-syntax-entry ?/ "." fortran-mode-syntax-table) 236 (modify-syntax-entry ?/ "." fortran-mode-syntax-table)
237 (modify-syntax-entry ?\' "\"" fortran-mode-syntax-table) 237 (modify-syntax-entry ?\' "\"" fortran-mode-syntax-table)
238 (modify-syntax-entry ?\" "\"" fortran-mode-syntax-table) 238 (modify-syntax-entry ?\" "\"" fortran-mode-syntax-table)
239 (modify-syntax-entry ?\\ "/" fortran-mode-syntax-table) 239 (modify-syntax-entry ?\\ "/" fortran-mode-syntax-table)
240 (modify-syntax-entry ?. "w" fortran-mode-syntax-table) 240 (modify-syntax-entry ?. "_" fortran-mode-syntax-table)
241 (modify-syntax-entry ?_ "w" fortran-mode-syntax-table) 241 (modify-syntax-entry ?_ "_" fortran-mode-syntax-table)
242 (modify-syntax-entry ?\! "<" fortran-mode-syntax-table) 242 (modify-syntax-entry ?$ "_" fortran-mode-syntax-table)
243 (modify-syntax-entry ?@ "_" fortran-mode-syntax-table)
244 (modify-syntax-entry ?\! "<" fortran-mode-syntax-table)
243 ;; XEmacs change 245 ;; XEmacs change
244 ;;(modify-syntax-entry ?\n ">" fortran-mode-syntax-table) 246 ;;(modify-syntax-entry ?\n ">" fortran-mode-syntax-table)
245 247
246 ;; XEmacs: an attempt to make font-lock understand fortran comments. 248 ;; XEmacs: an attempt to make font-lock understand fortran comments.
247 (modify-syntax-entry ?\n "> 1" fortran-mode-syntax-table) 249 (modify-syntax-entry ?\n "> 1" fortran-mode-syntax-table)
317 '(1 font-lock-comment-face)) 319 '(1 font-lock-comment-face))
318 '("'[^'\n]*'?" . font-lock-string-face) 320 '("'[^'\n]*'?" . font-lock-string-face)
319 ;; 321 ;;
320 ;; Program, subroutine and function declarations, plus calls. 322 ;; Program, subroutine and function declarations, plus calls.
321 (list (concat "\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|" 323 (list (concat "\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|"
322 "program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?") 324 "program\\|subroutine\\)\\>[ \t]*\\(\\(\\sw\\|\\s_\\)+\\)?")
323 '(1 font-lock-keyword-face) 325 '(1 font-lock-keyword-face)
324 '(2 font-lock-function-name-face nil t)))) 326 '(2 font-lock-function-name-face nil t))))
325 327
326 (setq fortran-font-lock-keywords-2 328 (setq fortran-font-lock-keywords-2
327 (append fortran-font-lock-keywords-1 329 (append fortran-font-lock-keywords-1
1685 (progn 1687 (progn
1686 (goto-char fill-point) 1688 (goto-char fill-point)
1687 (fortran-break-line)))))) 1689 (fortran-break-line))))))
1688 )) 1690 ))
1689 (defun fortran-break-line () 1691 (defun fortran-break-line ()
1690 (let ((opoint (point)) 1692 (let ((bol (save-excursion (beginning-of-line) (point)))
1691 (bol (save-excursion (beginning-of-line) (point)))
1692 (eol (save-excursion (end-of-line) (point))) 1693 (eol (save-excursion (end-of-line) (point)))
1693 (comment-string nil)) 1694 (comment-string nil))
1694 1695
1695 (save-excursion 1696 (save-excursion
1696 (if (and comment-start-skip (fortran-find-comment-start-skip)) 1697 (if (and comment-start-skip (fortran-find-comment-start-skip))