From 51275358e91d654e0cb49b749bf83d2fa19476c7 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Thu, 6 Jul 2017 23:53:19 -0400 Subject: 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. --- lisp/ses.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/ses.el') diff --git a/lisp/ses.el b/lisp/ses.el index 97bade380ec..741d588e4be 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1880,7 +1880,7 @@ Does not execute cell formulas or print functions." (setq ses--numlocprn 0) (dotimes (_ numlocprn) (let ((x (read (current-buffer)))) - (or (and (looking-at-p "\n") + (or (and (= (following-char) ?\n) (eq (car-safe x) 'ses-local-printer) (apply #'ses--local-printer (cdr x))) (error "local printer-def error")) @@ -1890,7 +1890,7 @@ Does not execute cell formulas or print functions." (dotimes (col ses--numcols) (let* ((x (read (current-buffer))) (sym (car-safe (cdr-safe x)))) - (or (and (looking-at-p "\n") + (or (and (= (following-char) ?\n) (eq (car-safe x) 'ses-cell) (ses-create-cell-variable sym row col)) (error "Cell-def error")) -- cgit v1.2.1