mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

Fix doc string.

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2009-09-28 01:57:33 +00:00
parent e608e7bedc
commit 748e3d67c4
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -18,6 +18,12 @@
* cedet/mode-local.el: * cedet/mode-local.el:
* cedet/pulse.el: New files. * cedet/pulse.el: New files.
2009-09-27 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* whitespace.el (whitespace-trailing-regexp)
(whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp):
Fix doc string.
2009-09-27 Chong Yidong <cyd@stupidchicken.com> 2009-09-27 Chong Yidong <cyd@stupidchicken.com>
* menu-bar.el: Remove menu-bar-ediff-misc-menu from the Tools * menu-bar.el: Remove menu-bar-ediff-misc-menu from the Tools

8
lisp/whitespace.el
View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: data, wp ;; Keywords: data, wp
;; Version: 12 ;; Version: 12.0
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -2310,7 +2310,7 @@ resultant list will be returned."
(defun whitespace-trailing-regexp (limit) (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)) (let ((status t))
(while (if (re-search-forward whitespace-trailing-regexp limit t) (while (if (re-search-forward whitespace-trailing-regexp limit t)
(save-match-data (save-match-data
@ -2320,14 +2320,14 @@ resultant list will be returned."
(defun whitespace-empty-at-bob-regexp (limit) (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." beginning of buffer."
(and (/= whitespace-point 1) (and (/= whitespace-point 1)
(re-search-forward whitespace-empty-at-bob-regexp limit t))) (re-search-forward whitespace-empty-at-bob-regexp limit t)))
(defun whitespace-empty-at-eob-regexp (limit) (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." buffer."
(and (/= whitespace-point (1+ (buffer-size))) (and (/= whitespace-point (1+ (buffer-size)))
(re-search-forward whitespace-empty-at-eob-regexp limit t))) (re-search-forward whitespace-empty-at-eob-regexp limit t)))