From 748e3d67c4fd203b38916394cc8d57d674781345 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Mon, 28 Sep 2009 01:57:33 +0000 Subject: [PATCH] Fix doc string. --- lisp/ChangeLog | 6 ++++++ lisp/whitespace.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9085b48923..823cf7f795 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -18,6 +18,12 @@ * cedet/mode-local.el: * cedet/pulse.el: New files. +2009-09-27 Vinicius Jose Latorre + + * whitespace.el (whitespace-trailing-regexp) + (whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp): + Fix doc string. + 2009-09-27 Chong Yidong * menu-bar.el: Remove menu-bar-ediff-misc-menu from the Tools diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 030d5f7473..118a151d67 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -6,7 +6,7 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: data, wp -;; Version: 12 +;; Version: 12.0 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. @@ -2310,7 +2310,7 @@ resultant list will be returned." (defun whitespace-trailing-regexp (limit) - "Match trailing spaces which does not contain the point at end of line." + "Match trailing spaces which do not contain the point at end of line." (let ((status t)) (while (if (re-search-forward whitespace-trailing-regexp limit t) (save-match-data @@ -2320,14 +2320,14 @@ resultant list will be returned." (defun whitespace-empty-at-bob-regexp (limit) - "Match spaces at beginning of buffer which does not contain the point at \ + "Match spaces at beginning of buffer which do not contain the point at \ beginning of buffer." (and (/= whitespace-point 1) (re-search-forward whitespace-empty-at-bob-regexp limit t))) (defun whitespace-empty-at-eob-regexp (limit) - "Match spaces at end of buffer which does not contain the point at end of \ + "Match spaces at end of buffer which do not contain the point at end of \ buffer." (and (/= whitespace-point (1+ (buffer-size))) (re-search-forward whitespace-empty-at-eob-regexp limit t))) -- 2.20.1