Nix some useless uses of looking-at, looking-back
* lisp/allout.el (allout-kill-topic): (allout-next-topic-pending-encryption): * lisp/bookmark.el (bookmark-kill-line): * lisp/cus-edit.el (custom-save-variables, custom-save-faces): * lisp/cus-theme.el (custom-theme-write-variables): (custom-theme-write-faces): * lisp/emacs-lisp/autoload.el (autoload-generate-file-autoloads): * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): * lisp/emacs-lisp/checkdoc.el (checkdoc-interactive-loop): (checkdoc-interactive-ispell-loop): (checkdoc-message-interactive-ispell-loop, checkdoc-this-string-valid): (checkdoc-this-string-valid-engine): * lisp/emacs-lisp/elint.el (elint-get-top-forms): * lisp/emulation/viper-cmd.el (viper-backward-indent): * lisp/image-dired.el (image-dired-delete-char): * lisp/simple.el (kill-visual-line): Replace instances of looking-at, looking-back with char comparisons using following-char, preceding-char.
This commit is contained in:
parent
862d6438cf
commit
91478f4623
11 changed files with 23 additions and 24 deletions
|
@ -1995,7 +1995,7 @@ With argument ARG, insert value in current buffer after the form."
|
|||
;; Compile the forms from the input buffer.
|
||||
(while (progn
|
||||
(while (progn (skip-chars-forward " \t\n\^l")
|
||||
(looking-at ";"))
|
||||
(= (following-char) ?\;))
|
||||
(forward-line 1))
|
||||
(not (eobp)))
|
||||
(setq byte-compile-read-position (point)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue