# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1131754256 0
# Node ID e0104334e066c5ffa56f3eca31aad245d9ab92de
# Parent  669bbd470d8f88026cfcde3f1ccf27f032051a53
(what-cursor-position): Print (EOB) instead of (100%)
when point is at end-of-buffer.

diff -r 669bbd470d8f -r e0104334e066 lisp/simple.el
--- a/lisp/simple.el	Sat Nov 12 00:10:40 2005 +0000
+++ b/lisp/simple.el	Sat Nov 12 00:10:56 2005 +0000
@@ -893,8 +893,8 @@
 	(if (or (/= beg 1) (/= end (1+ total)))
 	    (message "point=%d of %d (%d%%) <%d - %d> column %d %s"
 		     pos total percent beg end col hscroll)
-	  (message "point=%d of %d (%d%%) column %d %s"
-		   pos total percent col hscroll))
+	  (message "point=%d of %d (EOB) column %d %s"
+		   pos total col hscroll))
       (let ((coding buffer-file-coding-system)
 	    encoded encoding-msg display-prop under-display)
 	(if (or (not coding)
@@ -3718,11 +3718,11 @@
     ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
     ;;goal-column)
     (message "%s"
-	     (concat 
+	     (concat
 	      (format "Goal column %d " goal-column)
 	      (substitute-command-keys
 	       "(use \\[set-goal-column] with an arg to unset it)")))
-    
+
     )
   nil)
 
@@ -4860,7 +4860,7 @@
 When this hook is run, the current buffer is the one in which the
 command to display the completion list buffer was run.
 The completion list buffer is available as the value of `standard-output'.
-The common prefix substring for completion may be available as the 
+The common prefix substring for completion may be available as the
 value of `completion-common-substring'. See also `display-completion-list'.")
 
 
@@ -4889,9 +4889,9 @@
   "Common prefix substring to use in `completion-setup-function' to put faces.
 The value is set by `display-completion-list' during running `completion-setup-hook'.
 
-To put faces, `completions-first-difference' and `completions-common-part' 
+To put faces, `completions-first-difference' and `completions-common-part'
 into \"*Completions*\* buffer, the common prefix substring in completions is
-needed as a hint. (Minibuffer is a special case. The content of minibuffer itself 
+needed as a hint. (Minibuffer is a special case. The content of minibuffer itself
 is the substring.)")
 
 ;; This function goes in completion-setup-hook, so that it is called