diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-02-12 09:46:03 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-02-12 10:59:33 -0500 |
| commit | 91478f46238ab5a0f5fb7e6e6b4b1da0163c596e (patch) | |
| tree | d02f5d6a4227d838e6523311085414390fefcc8f /lisp/emulation | |
| parent | 862d6438cfa6c6c035033697751f3d002357b024 (diff) | |
| download | emacs-91478f46238ab5a0f5fb7e6e6b4b1da0163c596e.tar.gz emacs-91478f46238ab5a0f5fb7e6e6b4b1da0163c596e.tar.bz2 emacs-91478f46238ab5a0f5fb7e6e6b4b1da0163c596e.zip | |
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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 86364282dcf..aa31fac32cc 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -4520,7 +4520,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back." (interactive) (if viper-cted (let ((p (point)) (c (current-column)) bol (indent t)) - (if (looking-back "[0^]" (1- (point))) + (if (memq (preceding-char) '(?0 ?^)) (progn (if (eq ?^ (preceding-char)) (setq viper-preserve-indent t)) |