From a84da83c1abceb0750e78c48452903729105df09 Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Sun, 12 Feb 2017 17:21:06 -0600 Subject: [PATCH] Convert more uses of `looking-at' to `following-char' This follows up to Mark Oteiza's commit of 12 Feb 2017, 14:46:03 UTC (commit 91478f46238a) with more of the same. * lisp/bookmark.el (bookmark-send-edited-annotation): (bookmark-bmenu-execute-deletions): Replace instances of looking-at with char comparisons using following-char. --- lisp/bookmark.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index ab4363b023e..5b8ded7b22a 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -957,7 +957,7 @@ Lines beginning with `#' are ignored." (error "Not in bookmark-edit-annotation-mode")) (goto-char (point-min)) (while (< (point) (point-max)) - (if (looking-at "^#") + (if (= (following-char) ?#) (bookmark-kill-line t) (forward-line 1))) ;; Take no chances with text properties. @@ -2064,7 +2064,7 @@ To carry out the deletions that you've marked, use \\\\ (let ((o-point (point)) (o-str (save-excursion (beginning-of-line) - (unless (looking-at "^D") + (unless (= (following-char) ?D) (buffer-substring (point) (progn (end-of-line) (point)))))) -- 2.39.2