Mercurial > emacs

changeset 18502:708870732e5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bibtex-kill-field, bibtex-find-text): Killing a field moves to the next line.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Jun 1997 21:25:37 +0000
parents 37f4c7aeb5a8
children 828ca7cea30f
files lisp/textmodes/bibtex.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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? ")