mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Use lexcical-binding in f90.el.

Browse source 
* lisp/progmodes/f90.el: Use lexical-binding.  Use utf-8 coding.
(f90-get-correct-indent): Remove unnecessary local variable `cont'.
This commit is contained in:
Glenn Morris 2011-04-16 16:30:15 -07:00
parent fd35b6f967
commit 239da61d98
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

12
lisp/progmodes/f90.el
View file

@ -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