aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorVinicius Jose Latorre2009-09-28 01:57:33 +0000
committerVinicius Jose Latorre2009-09-28 01:57:33 +0000
commit748e3d67c4fd203b38916394cc8d57d674781345 (patch)
tree4a419b3c5c5cd5849a32515a8c2fe8a06ed2a8dd /lisp
parente608e7bedce26a8b25584a83e12ddf5c5a0dd7e0 (diff)
downloademacs-748e3d67c4fd203b38916394cc8d57d674781345.tar.gz
emacs-748e3d67c4fd203b38916394cc8d57d674781345.zip
Fix doc string.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/whitespace.el8
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9085b48923c..823cf7f7951 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -18,6 +18,12 @@
18 * cedet/mode-local.el: 18 * cedet/mode-local.el:
19 * cedet/pulse.el: New files. 19 * cedet/pulse.el: New files.
20 20
212009-09-27 Vinicius Jose Latorre <viniciusjl@ig.com.br>
22
23 * whitespace.el (whitespace-trailing-regexp)
24 (whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp):
25 Fix doc string.
26
212009-09-27 Chong Yidong <cyd@stupidchicken.com> 272009-09-27 Chong Yidong <cyd@stupidchicken.com>
22 28
23 * menu-bar.el: Remove menu-bar-ediff-misc-menu from the Tools 29 * menu-bar.el: Remove menu-bar-ediff-misc-menu from the Tools
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 030d5f7473e..118a151d67d 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -6,7 +6,7 @@
6;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> 6;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
7;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> 7;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
8;; Keywords: data, wp 8;; Keywords: data, wp
9;; Version: 12 9;; Version: 12.0
10;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 10;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
@@ -2310,7 +2310,7 @@ resultant list will be returned."
2310 2310
2311 2311
2312(defun whitespace-trailing-regexp (limit) 2312(defun whitespace-trailing-regexp (limit)
2313 "Match trailing spaces which does not contain the point at end of line." 2313 "Match trailing spaces which do not contain the point at end of line."
2314 (let ((status t)) 2314 (let ((status t))
2315 (while (if (re-search-forward whitespace-trailing-regexp limit t) 2315 (while (if (re-search-forward whitespace-trailing-regexp limit t)
2316 (save-match-data 2316 (save-match-data
@@ -2320,14 +2320,14 @@ resultant list will be returned."
2320 2320
2321 2321
2322(defun whitespace-empty-at-bob-regexp (limit) 2322(defun whitespace-empty-at-bob-regexp (limit)
2323 "Match spaces at beginning of buffer which does not contain the point at \ 2323 "Match spaces at beginning of buffer which do not contain the point at \
2324beginning of buffer." 2324beginning of buffer."
2325 (and (/= whitespace-point 1) 2325 (and (/= whitespace-point 1)
2326 (re-search-forward whitespace-empty-at-bob-regexp limit t))) 2326 (re-search-forward whitespace-empty-at-bob-regexp limit t)))
2327 2327
2328 2328
2329(defun whitespace-empty-at-eob-regexp (limit) 2329(defun whitespace-empty-at-eob-regexp (limit)
2330 "Match spaces at end of buffer which does not contain the point at end of \ 2330 "Match spaces at end of buffer which do not contain the point at end of \
2331buffer." 2331buffer."
2332 (and (/= whitespace-point (1+ (buffer-size))) 2332 (and (/= whitespace-point (1+ (buffer-size)))
2333 (re-search-forward whitespace-empty-at-eob-regexp limit t))) 2333 (re-search-forward whitespace-empty-at-eob-regexp limit t)))