[Emacs-diffs] /srv/bzr/emacs/trunk r103935: Use lexcical-binding in f90.el.

[Glenn Morris]

------------------------------------------------------------
revno: 103935
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-16 16:30:15 -0700
message:
  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'.
modified:
  lisp/ChangeLog
  lisp/progmodes/f90.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-16 03:44:06 +0000
+++ b/lisp/ChangeLog    2011-04-16 23:30:15 +0000
@@ -1,3 +1,8 @@
+2011-04-16  Glenn Morris  <address@hidden>
+
+       * progmodes/f90.el: Use lexical-binding.
+       (f90-get-correct-indent): Remove unnecessary local variable `cont'.
+
 2011-04-15  Stefan Monnier  <address@hidden>
 
        * mail/sendmail.el (mail-mode-map): Use completion-at-point.

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-03-31 07:20:38 +0000
+++ b/lisp/progmodes/f90.el     2011-04-16 23:30:15 +0000
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995-1997, 2000-2011  Free Software Foundation, Inc.
 
-;; Author: Torbj\"orn Einarsson <address@hidden>
+;; Author: Torbjörn Einarsson <address@hidden>
 ;; Maintainer: Glenn Morris <address@hidden>
 ;; Keywords: fortran, f90, languages
 
@@ -1355,11 +1355,10 @@
 (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 @@
 
 (provide 'f90)
 
+;; Local Variables:
+;; coding: utf-8
+;; lexical-binding: t
+;; End:
+
 ;;; f90.el ends here