changeset 52672:d4d213cfb340

whitespace.el now takes user customizable variable to display cleanliness of files. ffap.el - bugfix.

--- a/lisp/ChangeLog	Mon Sep 29 15:53:11 2003 +0000
+++ b/lisp/ChangeLog	Mon Sep 29 18:05:31 2003 +0000
@@ -1,3 +1,10 @@
[phone]  Rajesh Vaidheeswarran  <[e-mail]>
+
+	* whitespace.el (whitespace-clean-msg): Add user customizable message
+	for displaying ``clean'' output.
+	(whitespace-buffer): Use `whitespace-clean-msg'.
+	(whitespace-global-mode): Fix typo.
+	
 2003-09-29  Thien-Thi Nguyen  <[e-mail]>
 
 	* pcvs.el (cvs-mode-unmark-up): Move to goal column when done.
@@ -136,6 +143,16 @@
 	Handle paren-style types in Pike.  Also fixed some cases of
 	insufficient handling of unbalanced parens.
 
[phone]  Rajesh Vaidheeswarran  <[e-mail]>
+
+	* ffap.el (ffap-shell-prompt-regexp): Add regexp to identify
+	common shell prompts that are not common filename or URL
+	characters.
+	(ffap-file-at-point): Use the new regexp to strip the prompts from
+	the file names. This is an issue mostly for user prompts that
+	don't have a trailing space and find-file-at-point is invoked from
+	within a shell inside emacs.
+
 2003-09-24  Andre Spiegel  <[e-mail]>
 
 	* vc-cvs.el (vc-cvs-parse-entry): Restore the code to compare time

--- a/lisp/ffap.el	Mon Sep 29 15:53:11 2003 +0000
+++ b/lisp/ffap.el	Mon Sep 29 18:05:31 2003 +0000
@@ -65,6 +65,7 @@
 ;; (setq ffap-alist nil)                ; faster, dumber prompting
 ;; (setq ffap-machine-p-known 'accept)  ; no pinging
 ;; (setq ffap-url-regexp nil)           ; disable URL features in ffap
+;; (setq ffap-shell-prompt-regexp nil)  ; disable shell prompt stripping
 ;;
 ;; ffap uses `browse-url' (if found, else `w3-fetch') to fetch URL's.
 ;; For a hairier `ffap-url-fetcher', try ffap-url.el (same ftp site).
@@ -120,6 +121,18 @@
   (let ((sym (intern-soft name)))
     (if (and sym (boundp sym)) (symbol-value sym) default)))
 
+(defcustom ffap-shell-prompt-regexp
+  ;; This used to test for some shell prompts that don't have a space
+  ;; after them. The common root shell prompt (#) is not listed since it
+  ;; also doubles up as a valid URL character.
+  "[$%><]*"
+  "Paths matching this regexp are stripped off the shell prompt
+If nil, ffap doesn't do shell prompt stripping."
+  :type '(choice (const :tag "Disable" nil)
+		  (const :tag "Standard" "[$%><]*")
+		   regexp)
+  :group 'ffap)
+
 (defcustom ffap-ftp-regexp
   ;; This used to test for ange-ftp or efs being present, but it should be
   ;; harmless (and simpler) to give it this value unconditionally.
@@ -1109,6 +1122,11 @@
          ;; Try stripping off line numbers; good for compilation/grep output.
          ((and (not abs) (string-match ":[0-9]" name)
                (ffap-file-exists-string (substring name 0 (match-beginning 0)))))
+         ;; Try stripping off prominent (non-root - #) shell prompts
+	 ;; if the ffap-shell-prompt-regexp is non-nil.
+         ((and ffap-shell-prompt-regexp
+	       (not abs) (string-match ffap-shell-prompt-regexp name)
+               (ffap-file-exists-string (substring name (match-end 0)))))
 	 ;; Immediately test local filenames.  If default-directory is
 	 ;; remote, you probably already have a connection.
 	 ((and (not abs) (ffap-file-exists-string name)))

--- a/lisp/whitespace.el	Mon Sep 29 15:53:11 2003 +0000
+++ b/lisp/whitespace.el	Mon Sep 29 18:05:31 2003 +0000
@@ -5,7 +5,7 @@
 ;; Author: Rajesh Vaidheeswarran <[e-mail]>
 ;; Keywords: convenience
 
-;; $Id: whitespace.el,v 1.25 2003/06/11 04:00:33 rv Exp $
+;; $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
@@ -33,7 +33,7 @@
 ;; 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).
+;;		      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,7 +87,7 @@
 
 ;;; Code:
 
-(defvar whitespace-version "3.3" "Version of the whitespace library.")
+(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,6 +236,12 @@
   :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,8 +509,9 @@
 					 (concat "!" whitespace-unchecked)
 				       ""))
 				   whitespace-filename)))
-		  (if (not quiet)
-		      (message "%s clean" 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,7 +823,7 @@
 ;;;###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.
+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'."