diff options
| author | Roland Winkler <winkler@gnu.org> | 2012-01-28 12:25:03 -0600 |
|---|---|---|
| committer | Roland Winkler <winkler@gnu.org> | 2012-01-28 12:25:03 -0600 |
| commit | e70ee68111e0f8f2fa5e6966dcd9c3740d49e74a (patch) | |
| tree | e6712379528d6a0bc98dfe62b8e36f02087188a7 | |
| parent | ace88aa20f32b298e7f2e8e6115b5661504f8724 (diff) | |
| download | emacs-e70ee68111e0f8f2fa5e6966dcd9c3740d49e74a.tar.gz | |
lisp/textmodes/bibtex.el: minor doc fix
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 6 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 51c56159688..e7a09b7b208 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2012-01-28 Roland Winkler <winkler@gnu.org> + * textmodes/bibtex.el (bibtex-vec-incr): Fix docstring. + +2012-01-28 Roland Winkler <winkler@gnu.org> + * 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 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 () |