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

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.761 emacs/lisp/simple.el:1.762
*** emacs/lisp/simple.el:1.761  Thu Nov  3 21:41:20 2005
--- emacs/lisp/simple.el        Sat Nov 12 00:10:56 2005
***************
*** 893,900 ****
        (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))
        (let ((coding buffer-file-coding-system)
            encoded encoding-msg display-prop under-display)
        (if (or (not coding)
--- 893,900 ----
        (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 (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,3728 ****
      ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
      ;;goal-column)
      (message "%s"
!            (concat 
              (format "Goal column %d " goal-column)
              (substitute-command-keys
               "(use \\[set-goal-column] with an arg to unset it)")))
!     
      )
    nil)
  
--- 3718,3728 ----
      ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
      ;;goal-column)
      (message "%s"
!            (concat
              (format "Goal column %d " goal-column)
              (substitute-command-keys
               "(use \\[set-goal-column] with an arg to unset it)")))
! 
      )
    nil)
  
***************
*** 4860,4866 ****
  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 
  value of `completion-common-substring'. See also `display-completion-list'.")
  
  
--- 4860,4866 ----
  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
  value of `completion-common-substring'. See also `display-completion-list'.")
  
  
***************
*** 4889,4897 ****
    "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' 
  into \"*Completions*\* buffer, the common prefix substring in completions is
! 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
--- 4889,4897 ----
    "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'
  into \"*Completions*\* buffer, the common prefix substring in completions is
! 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