From e70ee68111e0f8f2fa5e6966dcd9c3740d49e74a Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Sat, 28 Jan 2012 12:25:03 -0600 Subject: [PATCH] lisp/textmodes/bibtex.el: minor doc fix --- lisp/ChangeLog | 4 ++++ lisp/textmodes/bibtex.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 51c56159688..e7a09b7b208 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-01-28 Roland Winkler + + * textmodes/bibtex.el (bibtex-vec-incr): Fix docstring. + 2012-01-28 Roland Winkler * textmodes/bibtex.el (bibtex-entry-alist): New function. diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 292446ea24f..e9dea3dd4ec 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -2191,6 +2191,10 @@ Optional arg COMMA is as in `bibtex-enclosing-field'." (let ((fun (lambda (kryp kr) ; adapted from `current-kill' (car (set kryp (nthcdr (mod (- n (length (eval kryp))) (length kr)) kr)))))) + ;; We put the mark at the beginning of the inserted field or entry + ;; and point at its end - a behavior similar to what `yank' does. + ;; The mark is then used by `bibtex-yank-pop', which needs to know + ;; what we have inserted. (if (eq bibtex-last-kill-command 'field) (progn ;; insert past the current field @@ -2219,7 +2223,7 @@ Optional arg COMMA is as in `bibtex-enclosing-field'." (aset vec idx (cons newelt (aref vec idx)))) (defsubst bibtex-vec-incr (vec idx) - "Add NEWELT to the list stored in VEC at index IDX." + "Increment by 1 the counter which is stored in VEC at index IDX." (aset vec idx (1+ (aref vec idx)))) (defun bibtex-format-entry () -- 2.39.2