# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867705937 0
# Node ID 708870732e5da5196dbb678832039e281baa03c3
# Parent  37f4c7aeb5a8fd66e13a33793c77cfbb34e6de06
(bibtex-kill-field, bibtex-find-text): Killing a field moves to the next line.

diff -r 37f4c7aeb5a8 -r 708870732e5d lisp/textmodes/bibtex.el
--- a/lisp/textmodes/bibtex.el	Mon Jun 30 08:22:49 1997 +0000
+++ b/lisp/textmodes/bibtex.el	Mon Jun 30 21:25:37 1997 +0000
@@ -3174,7 +3174,7 @@
        (forward-char))))
   (bibtex-find-text arg t))
 
-(defun bibtex-find-text (arg &optional as-if-interactive)
+(defun bibtex-find-text (arg &optional as-if-interactive silent)
   "Go to end of text of current field; with ARG, go to beginning."
   (interactive "P")
   (bibtex-inside-field)
@@ -3205,7 +3205,8 @@
            (match-beginning bibtex-key-in-head)
          (match-end 0))))
      (t
-      (error "Not on BibTeX field.")))))
+      (if (not silent)
+          (error "Not on BibTeX field."))))))
 
 (defun bibtex-remove-OPT-or-ALT ()
   "Removes the string starting optional/alternative fields.
@@ -3287,9 +3288,8 @@
       (if copy-only
           (goto-char pnt)
         (delete-region the-beginning the-end)
-        (goto-char the-beginning)
         (let (bibtex-help-message)
-          (bibtex-find-text nil t)))))
+          (bibtex-find-text nil t t)))))
   (setq bibtex-last-kill-command 'field))
 
 (defun bibtex-copy-field-as-kill ()
@@ -3544,7 +3544,7 @@
                                   " comma at end of entry? "))
                        'last-comma)
                    (if (y-or-n-p
-                        "Substitute double page dashes by single ones? ")
+                        "Replace double page dashes by single ones? ")
                        'page-dashes)
                    (if (y-or-n-p
                         "Force delimiters? ")