Function: emerge-remove-flags-in-buffer

emerge-remove-flags-in-buffer is a byte-compiled function defined in emerge.el.gz.

Signature

(emerge-remove-flags-in-buffer BUFFER BEFORE AFTER)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
(defun emerge-remove-flags-in-buffer (buffer before after)
  (with-current-buffer
   buffer
   (let ((inhibit-read-only t))
     ;; remove the flags, if they're there
     (goto-char (- before (1- emerge-before-flag-length)))
     (if (looking-at emerge-before-flag-match)
	 (delete-char emerge-before-flag-length)
       ;; the flag isn't there
       (ding)
       (message "Trouble removing flag"))
     (goto-char (1- after))
     (if (looking-at emerge-after-flag-match)
	 (delete-char emerge-after-flag-length)
       ;; the flag isn't there
       (ding)
       (message "Trouble removing flag")))))