diff options
author | Mark Oteiza <mvoteiza@udel.edu> | 2017-07-06 23:53:19 -0400 |
---|---|---|
committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-07-06 23:59:58 -0400 |
commit | 51275358e91d654e0cb49b749bf83d2fa19476c7 (patch) | |
tree | 970d07fdd0c9c7c2818781695237ef986c630c1d /lisp/proced.el | |
parent | 1eefada3f277e533cf74bc77ecd36f42c07a96cb (diff) | |
download | emacs-51275358e91d654e0cb49b749bf83d2fa19476c7.tar.gz |
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/proced.el')
-rw-r--r-- | lisp/proced.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index 0736ab09dc9..86d79689a49 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -767,7 +767,7 @@ The time interval for updates is specified via `proced-auto-update-interval'." (while (not (eobp)) (cond ((looking-at mark-re) (proced-insert-mark nil)) - ((looking-at " ") + ((= (following-char) ?\s) (proced-insert-mark t)) (t (forward-line 1))))))) |