[Emacs-diffs] /srv/bzr/emacs/trunk r106982: lisp/textmodes/bibtex.el: minor doc fix

[Roland Winkler]

------------------------------------------------------------
revno: 106982
committer: Roland Winkler <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-28 12:25:03 -0600
message:
  lisp/textmodes/bibtex.el: minor doc fix
modified:
  lisp/ChangeLog
  lisp/textmodes/bibtex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-28 18:06:10 +0000
+++ b/lisp/ChangeLog    2012-01-28 18:25:03 +0000
@@ -1,5 +1,9 @@
 2012-01-28  Roland Winkler  <address@hidden>
 
+       * textmodes/bibtex.el (bibtex-vec-incr): Fix docstring.
+
+2012-01-28  Roland Winkler  <address@hidden>
+
        * textmodes/bibtex.el (bibtex-entry-alist): New function.
        (bibtex-set-dialect): Use it.  Either set global values of
        dialect-dependent variables or bind these variables buffer-locally

=== modified file 'lisp/textmodes/bibtex.el'
--- a/lisp/textmodes/bibtex.el  2012-01-28 18:06:10 +0000
+++ b/lisp/textmodes/bibtex.el  2012-01-28 18:25:03 +0000
@@ -2191,6 +2191,10 @@
   (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 @@
   (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 ()