comparison lisp/whitespace.el @ 83288:2c2b97b30980

Merged from [e-mail]--gnu-2005 (patch 60-65, 246-265) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-246 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-247 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-248 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-249 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-250 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-251 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-252 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-253 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-254 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-255 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-256 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-257 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-258 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-259 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-260 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-261 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-262 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-263 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-264 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-265 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-60 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-61 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-62 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-63 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-64 (mm-string-to-multibyte): Use Gnus trunk definition. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-65 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-328

83287:b4b67a7fcbe0

;; `whitespace-cleanup-region' - To cleanup all whitespaces between point
;;                               and mark in the current buffer.

;;; Code:

(defvar whitespace-version "3.4" "Version of the whitespace library.")

(defvar whitespace-all-buffer-files nil
  "An associated list of buffers and files checked for whitespace cleanliness.

This is to enable periodic checking of whitespace cleanliness in the files

      (setq pmin (point))
      (end-of-line)
      (setq pmax (point))
      (if (equal pmin pmax)
	  (progn
	    (whitespace-highlight-the-space pmin pmax)
	    t)
	nil))))

(defun whitespace-buffer-leading-cleanup ()
  "Remove any empty lines at the top of the file."

	    (setq pmin (point))
	    (end-of-line)
	    (setq pmax (point))
	    (if (equal pmin pmax)
		(progn
		  (whitespace-highlight-the-space pmin pmax)
		  t)
	      nil))
	nil))))

(defun whitespace-buffer-trailing-cleanup ()

(defun whitespace-highlight-the-space (b e)
  "Highlight the current line, unhighlighting a previously jumped to line."
  (if whitespace-display-spaces-in-color
      (let ((ol (whitespace-make-overlay b e)))
	(whitespace-unhighlight-the-space)
	(push ol whitespace-highlighted-space)
	(whitespace-overlay-put ol 'face 'whitespace-highlight-face))))
;;  (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))

(defun whitespace-unhighlight-the-space ()
  "Unhighlight the currently highlight line."
  (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
      (progn
	(mapc 'whitespace-delete-overlay whitespace-highlighted-space)
	(setq whitespace-highlighted-space nil))

83288:2c2b97b30980

;; `whitespace-cleanup-region' - To cleanup all whitespaces between point
;;                               and mark in the current buffer.

;;; Code:

(defvar whitespace-version "3.5" "Version of the whitespace library.")

(defvar whitespace-all-buffer-files nil
  "An associated list of buffers and files checked for whitespace cleanliness.

This is to enable periodic checking of whitespace cleanliness in the files

      (setq pmin (point))
      (end-of-line)
      (setq pmax (point))
      (if (equal pmin pmax)
	  (progn
	    (whitespace-highlight-the-space pmin (1+ pmax))
	    t)
	nil))))

(defun whitespace-buffer-leading-cleanup ()
  "Remove any empty lines at the top of the file."

	    (setq pmin (point))
	    (end-of-line)
	    (setq pmax (point))
	    (if (equal pmin pmax)
		(progn
		  (whitespace-highlight-the-space (- pmin 1) pmax)
		  t)
	      nil))
	nil))))

(defun whitespace-buffer-trailing-cleanup ()

(defun whitespace-highlight-the-space (b e)
  "Highlight the current line, unhighlighting a previously jumped to line."
  (if whitespace-display-spaces-in-color
      (let ((ol (whitespace-make-overlay b e)))
	(push ol whitespace-highlighted-space)
	(whitespace-overlay-put ol 'face 'whitespace-highlight-face))))
;;  (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))

(defun whitespace-unhighlight-the-space()
  "Unhighlight the currently highlight line."
  (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
      (progn
	(mapc 'whitespace-delete-overlay whitespace-highlighted-space)
	(setq whitespace-highlighted-space nil))