diff options
| author | Mark Oteiza | 2017-07-06 23:53:19 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-07-06 23:59:58 -0400 |
| commit | 51275358e91d654e0cb49b749bf83d2fa19476c7 (patch) | |
| tree | 970d07fdd0c9c7c2818781695237ef986c630c1d /lisp/progmodes | |
| parent | 1eefada3f277e533cf74bc77ecd36f42c07a96cb (diff) | |
| download | emacs-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.el | 4 |
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)) |