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

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

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

revision 1.118 by nickrob, Mon Aug 1 08:37:48 2005 UTC revision 1.119 by lektu, Tue Aug 30 10:50:41 2005 UTC
# Line 55  Line 55 
55    
56  (eval-when-compile                      ; silence compiler  (eval-when-compile                      ; silence compiler
57    (defvar dabbrev-case-fold-search)    (defvar dabbrev-case-fold-search)
58      (defvar font-lock-syntactic-keywords)
59      (defvar gud-find-expr-function)
60    (defvar imenu-case-fold-search)    (defvar imenu-case-fold-search)
61    (defvar imenu-syntax-alist))    (defvar imenu-syntax-alist))
62    
# Line 1646  notes: 1) A non-zero/non-blank character Line 1648  notes: 1) A non-zero/non-blank character
1648              (let* ((char (if (stringp fortran-comment-indent-char)              (let* ((char (if (stringp fortran-comment-indent-char)
1649                               (aref fortran-comment-indent-char 0)                               (aref fortran-comment-indent-char 0)
1650                             fortran-comment-indent-char))                             fortran-comment-indent-char))
1651                     (chars (string ?  ?\t char)))                     (chars (string ?\s ?\t char)))
1652                (goto-char (match-end 0))                (goto-char (match-end 0))
1653                (skip-chars-backward chars)                (skip-chars-backward chars)
1654                (delete-region (point) (progn (skip-chars-forward chars)                (delete-region (point) (progn (skip-chars-forward chars)
# Line 1656  notes: 1) A non-zero/non-blank character Line 1658  notes: 1) A non-zero/non-blank character
1658            (if indent-tabs-mode            (if indent-tabs-mode
1659                (goto-char (match-end 0))                (goto-char (match-end 0))
1660              (delete-char 2)              (delete-char 2)
1661              (insert-char ?  5)              (insert-char ?\s 5)
1662              (insert fortran-continuation-string))              (insert fortran-continuation-string))
1663          (if (looking-at " \\{5\\}[^ 0\n]")          (if (looking-at " \\{5\\}[^ 0\n]")
1664              (if indent-tabs-mode              (if indent-tabs-mode

Legend:
Removed from v.1.118  
changed lines
  Added in v.1.119

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