mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Convert more uses of looking-at to following-char

Browse source 
More followup to Karl Fogel's commit a84da83c1.
* lisp/dired-aux.el (dired-add-entry, dired-subdir-hidden-p):
* lisp/dired-x.el (dired-mark-unmarked-files, dired-mark-sexp):
* lisp/help-fns.el (doc-file-to-man, doc-file-to-info):
* lisp/proced.el (proced-toggle-marks):
* lisp/progmodes/f90.el (f90-indent-line):
* lisp/ses.el (ses-load):
* lisp/tar-mode.el (tar-expunge): Replace instances of looking-at with
char comparisons using following-char.
This commit is contained in:
Mark Oteiza 2017-07-06 23:53:19 -04:00
parent 1eefada3f2
commit 51275358e9
7 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/f90.el
View file

@ -1880,8 +1880,8 @@ after indenting."
;; FIXME This means f90-calculate-indent gives different answers
;; for comments and preprocessor lines to this function.
;; Better to make f90-calculate-indent return the correct answer?
(cond ((looking-at "!") (setq indent (f90-comment-indent)))
((looking-at "#") (setq indent 0))
(cond ((= (following-char) ?!) (setq indent (f90-comment-indent)))
((= (following-char) ?#) (setq indent 0))
(t
(and f90-smart-end (looking-at "end")
(f90-match-end))