mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* allout.el (allout-mode): Fix typo in docstring.

Browse source 
* vc-annotate.el (vc-annotate-warp-revision): Reflow docstring.
  (vc-annotate-very-old-color, vc-annotate-display): Fix docstring typos.
This commit is contained in:
Juanma Barranquero 2008-11-23 05:48:41 +00:00
parent 066b7259c2
commit d41b91e695
3 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2008-11-23 Juanma Barranquero <lekktu@gmail.com>
* allout.el (allout-mode): Fix typo in docstring.
* vc-annotate.el (vc-annotate-warp-revision): Reflow docstring.
(vc-annotate-very-old-color, vc-annotate-display): Fix docstring typos.
2008-11-23 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-follow-link): Complete last change.

2
lisp/allout.el
View file

@ -1830,7 +1830,7 @@ single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line])
this special translation, so you can use them to get out of the
hot-spot and back to normal editing operation.
In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]]) is
In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]) is
replaced with one that makes it easy to get to the hot-spot. If you
repeat it immediately it cycles (if `allout-beginning-of-line-cycles'
is set) to the beginning of the item and then, if you hit it again

15
lisp/vc-annotate.el
View file

@ -23,7 +23,7 @@
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;
(require 'vc-hooks)
(require 'vc)
@ -100,7 +100,7 @@ all other colors between (excluding black and white)."
:group 'vc)
(defcustom vc-annotate-very-old-color "#3F3FFF"
"Color for lines older than the current color range in \\[vc-annotate]]."
"Color for lines older than the current color range in \\[vc-annotate]."
:type 'string
:group 'vc)
@ -512,12 +512,11 @@ revisions after."
(defun vc-annotate-warp-revision (revspec)
"Annotate the revision described by REVSPEC.
If REVSPEC is a positive integer, warp that many revisions
forward, if possible, otherwise echo a warning message. If
REVSPEC is a negative integer, warp that many revisions backward,
If REVSPEC is a positive integer, warp that many revisions forward,
if possible, otherwise echo a warning message. If REVSPEC is a
string, then it describes a revision number, so warp to that
revision."
negative integer, warp that many revisions backward, if possible,
otherwise echo a warning message. If REVSPEC is a string, then it
describes a revision number, so warp to that revision."
(if (not (equal major-mode 'vc-annotate-mode))
(message "Cannot be invoked outside of a vc annotate buffer")
(let* ((buf (current-buffer))
@ -591,7 +590,7 @@ or OFFSET if present."
(defun vc-annotate-display (ratio &optional offset)
"Highlight `vc-annotate' output in the current buffer.
RATIO, is the expansion that should be applied to `vc-annotate-color-map'.
RATIO is the expansion that should be applied to `vc-annotate-color-map'.
The annotations are relative to the current time, unless overridden by OFFSET."
(when (/= ratio 1.0)
(set (make-local-variable 'vc-annotate-color-map)