aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorMark Oteiza2017-07-06 23:53:19 -0400
committerMark Oteiza2017-07-06 23:59:58 -0400
commit51275358e91d654e0cb49b749bf83d2fa19476c7 (patch)
tree970d07fdd0c9c7c2818781695237ef986c630c1d /lisp/progmodes
parent1eefada3f277e533cf74bc77ecd36f42c07a96cb (diff)
downloademacs-51275358e91d654e0cb49b749bf83d2fa19476c7.tar.gz
emacs-51275358e91d654e0cb49b749bf83d2fa19476c7.zip
Convert more uses of looking-at to following-char
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.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/f90.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index b3661bfe3f1..49e072c65bd 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1880,8 +1880,8 @@ after indenting."
1880 ;; FIXME This means f90-calculate-indent gives different answers 1880 ;; FIXME This means f90-calculate-indent gives different answers
1881 ;; for comments and preprocessor lines to this function. 1881 ;; for comments and preprocessor lines to this function.
1882 ;; Better to make f90-calculate-indent return the correct answer? 1882 ;; Better to make f90-calculate-indent return the correct answer?
1883 (cond ((looking-at "!") (setq indent (f90-comment-indent))) 1883 (cond ((= (following-char) ?!) (setq indent (f90-comment-indent)))
1884 ((looking-at "#") (setq indent 0)) 1884 ((= (following-char) ?#) (setq indent 0))
1885 (t 1885 (t
1886 (and f90-smart-end (looking-at "end") 1886 (and f90-smart-end (looking-at "end")
1887 (f90-match-end)) 1887 (f90-match-end))