Skip to content

Commit a84da83

Browse files
committed
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 91478f4) 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.
1 parent d4429df commit a84da83

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

lisp/bookmark.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -957,7 +957,7 @@ Lines beginning with `#' are ignored."
957957
(error "Not in bookmark-edit-annotation-mode"))
958958
(goto-char (point-min))
959959
(while (< (point) (point-max))
960-
(if (looking-at "^#")
960+
(if (= (following-char) ?#)
961961
(bookmark-kill-line t)
962962
(forward-line 1)))
963963
;; Take no chances with text properties.
@@ -2064,7 +2064,7 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\
20642064
(let ((o-point (point))
20652065
(o-str (save-excursion
20662066
(beginning-of-line)
2067-
(unless (looking-at "^D")
2067+
(unless (= (following-char) ?D)
20682068
(buffer-substring
20692069
(point)
20702070
(progn (end-of-line) (point))))))

0 commit comments

Comments
 (0)