aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Fogel2017-02-12 17:21:06 -0600
committerKarl Fogel2017-02-12 17:21:06 -0600
commita84da83c1abceb0750e78c48452903729105df09 (patch)
tree0875171bf945adb1886d6003f4bd911f669ffaab
parentd4429dfd4975c3a084467fa3b07ac715ed4a2d60 (diff)
downloademacs-a84da83c1abceb0750e78c48452903729105df09.tar.gz
emacs-a84da83c1abceb0750e78c48452903729105df09.zip
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.
-rw-r--r--lisp/bookmark.el4
1 files 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."
957 (error "Not in bookmark-edit-annotation-mode")) 957 (error "Not in bookmark-edit-annotation-mode"))
958 (goto-char (point-min)) 958 (goto-char (point-min))
959 (while (< (point) (point-max)) 959 (while (< (point) (point-max))
960 (if (looking-at "^#") 960 (if (= (following-char) ?#)
961 (bookmark-kill-line t) 961 (bookmark-kill-line t)
962 (forward-line 1))) 962 (forward-line 1)))
963 ;; Take no chances with text properties. 963 ;; Take no chances with text properties.
@@ -2064,7 +2064,7 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\
2064 (let ((o-point (point)) 2064 (let ((o-point (point))
2065 (o-str (save-excursion 2065 (o-str (save-excursion
2066 (beginning-of-line) 2066 (beginning-of-line)
2067 (unless (looking-at "^D") 2067 (unless (= (following-char) ?D)
2068 (buffer-substring 2068 (buffer-substring
2069 (point) 2069 (point)
2070 (progn (end-of-line) (point)))))) 2070 (progn (end-of-line) (point))))))