diff options
| author | Karl Fogel | 2017-02-12 17:21:06 -0600 |
|---|---|---|
| committer | Karl Fogel | 2017-02-12 17:21:06 -0600 |
| commit | a84da83c1abceb0750e78c48452903729105df09 (patch) | |
| tree | 0875171bf945adb1886d6003f4bd911f669ffaab | |
| parent | d4429dfd4975c3a084467fa3b07ac715ed4a2d60 (diff) | |
| download | emacs-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.el | 4 |
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)))))) |