[Emacs-diffs] Changes to emacs/lisp/whitespace.el

[Rajesh Vaidheeswarran]

Index: emacs/lisp/whitespace.el
diff -c emacs/lisp/whitespace.el:1.26 emacs/lisp/whitespace.el:1.27
*** emacs/lisp/whitespace.el:1.26       Mon Sep  1 11:45:18 2003
--- emacs/lisp/whitespace.el    Mon Sep 29 14:05:31 2003
***************
*** 5,11 ****
  ;; Author: Rajesh Vaidheeswarran <address@hidden>
  ;; Keywords: convenience
  
! ;; $Id: whitespace.el,v 1.26 2003/09/01 15:45:18 miles Exp $
  ;; This file is part of GNU Emacs.
  
  ;; GNU Emacs is free software; you can redistribute it and/or modify
--- 5,11 ----
  ;; Author: Rajesh Vaidheeswarran <address@hidden>
  ;; Keywords: convenience
  
! ;; $Id: whitespace.el,v 1.27 2003/09/29 18:05:31 rv Exp $
  ;; This file is part of GNU Emacs.
  
  ;; GNU Emacs is free software; you can redistribute it and/or modify
***************
*** 33,39 ****
  ;; 1. Leading space (empty lines at the top of a file).
  ;; 2. Trailing space (empty lines at the end of a file).
  ;; 3. Indentation space (8 or more spaces at beginning of line, that should be
! ;;                  replaced with TABS).
  ;; 4. Spaces followed by a TAB.  (Almost always, we never want that).
  ;; 5. Spaces or TABS at the end of a line.
  ;;
--- 33,39 ----
  ;; 1. Leading space (empty lines at the top of a file).
  ;; 2. Trailing space (empty lines at the end of a file).
  ;; 3. Indentation space (8 or more spaces at beginning of line, that should be
! ;;                  replaced with TABS).
  ;; 4. Spaces followed by a TAB.  (Almost always, we never want that).
  ;; 5. Spaces or TABS at the end of a line.
  ;;
***************
*** 87,93 ****
  
  ;;; Code:
  
! (defvar whitespace-version "3.3" "Version of the whitespace library.")
  
  (defvar whitespace-all-buffer-files nil
    "An associated list of buffers and files checked for whitespace cleanliness.
--- 87,93 ----
  
  ;;; 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.
***************
*** 236,241 ****
--- 236,247 ----
    :type 'string
    :group 'whitespace)
  
+ (defcustom whitespace-clean-msg "clean."
+   "If non-nil, this message will be displayed after a whitespace check
+ determines a file to be clean."
+   :type 'string
+   :group 'whitespace)
+ 
  (defcustom whitespace-abort-on-error nil
    "While writing a file, abort if the file is unclean. If
  `whitespace-auto-cleanup' is set, that takes precedence over this
***************
*** 503,510 ****
                                         (concat "!" whitespace-unchecked)
                                       ""))
                                   whitespace-filename)))
!                 (if (not quiet)
!                     (message "%s clean" whitespace-filename))))))))
      (if whitespace-error
        t
        nil)))
--- 509,517 ----
                                         (concat "!" whitespace-unchecked)
                                       ""))
                                   whitespace-filename)))
!                 (if (and (not quiet) (not (equal whitespace-clean-msg "")))
!                     (message "%s %s" whitespace-filename
!                              whitespace-clean-msg))))))))
      (if whitespace-error
        t
        nil)))
***************
*** 816,822 ****
  ;;;###autoload
  (define-minor-mode whitespace-global-mode
    "Toggle using Whitespace mode in new buffers.
! With ARG, turn the mode on if and only iff ARG is positive.
  
  When this mode is active, `whitespace-buffer' is added to
  `find-file-hook' and `kill-buffer-hook'."
--- 823,829 ----
  ;;;###autoload
  (define-minor-mode whitespace-global-mode
    "Toggle using Whitespace mode in new buffers.
! With ARG, turn the mode on iff ARG is positive.
  
  When this mode is active, `whitespace-buffer' is added to
  `find-file-hook' and `kill-buffer-hook'."