comparison lisp/whitespace.el @ 61488:230af31ce843

whitespace.el - fix higlighting test and bump rev

61487:f5e70b5f16ce

;; `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

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

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

61488:230af31ce843

;; `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

      (goto-char (point-min))
      (beginning-of-line)
      (setq pmin (point))
      (end-of-line)
      (setq pmax (point))
      (if (not (equal pmin pmax))
	  (progn
	    (whitespace-highlight-the-space pmin pmax)
	    t)
	nil))))

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