From 239da61d98110076ed1cf0161ffc609ff508246a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 16 Apr 2011 16:30:15 -0700 Subject: [PATCH] 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'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/f90.el | 12 ++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da2995840da..66865f4320e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-04-16 Glenn Morris + + * progmodes/f90.el: Use lexical-binding. + (f90-get-correct-indent): Remove unnecessary local variable `cont'. + 2011-04-15 Stefan Monnier * mail/sendmail.el (mail-mode-map): Use completion-at-point. diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 232299da4db..53aa95498da 100644 --- 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 +;; Author: Torbjörn Einarsson ;; Maintainer: Glenn Morris ;; 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 -- 2.39.2