Use lexcical-binding in f90.el.

* lisp/progmodes/f90.el: Use lexical-binding.  Use utf-8 coding.
(f90-get-correct-indent): Remove unnecessary local variable `cont'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da29958..66865f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-16  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/f90.el: Use lexical-binding.
+       (f90-get-correct-indent): Remove unnecessary local variable `cont'.
+
 2011-04-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * mail/sendmail.el (mail-mode-map): Use completion-at-point.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 232299d..53aa954 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995-1997, 2000-2011  Free Software Foundation, Inc.
 
-;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se>
+;; Author: Torbjörn Einarsson <Torbjorn.Einarsson@era.ericsson.se>
 ;; Maintainer: Glenn Morris <rgm@gnu.org>
 ;; Keywords: fortran, f90, languages
 
@@ -1355,11 +1355,10 @@ if all else fails."
 (defun f90-get-correct-indent ()
   "Get correct indent for a line starting with line number.
 Does not check type and subprogram indentation."
-  (let ((epnt (line-end-position)) icol cont)
+  (let ((epnt (line-end-position)) icol)
     (save-excursion
       (while (and (f90-previous-statement)
-                  (or (memq (setq cont (f90-present-statement-cont))
-                            '(middle end))
+                  (or (memq (f90-present-statement-cont) '(middle end))
                       (looking-at "[ \t]*[0-9]"))))
       (setq icol (current-indentation))
       (beginning-of-line)
@@ -2223,4 +2222,9 @@ escape character."
 
 (provide 'f90)
 
+;; Local Variables:
+;; coding: utf-8
+;; lexical-binding: t
+;; End:
+
 ;;; f90.el ends here