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

[Richard M. Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.551 emacs/lisp/simple.el:1.552
*** emacs/lisp/simple.el:1.551  Mon Jun 10 04:04:48 2002
--- emacs/lisp/simple.el        Mon Jun 17 12:15:09 2002
***************
*** 530,536 ****
  byte, just \"...\" is shown.
  
  In addition, with prefix argument, show details about that character
! in *Help* buffer.  See also the command `describe-char-after'."
    (interactive "P")
    (let* ((char (following-char))
         (beg (point-min))
--- 530,536 ----
  byte, just \"...\" is shown.
  
  In addition, with prefix argument, show details about that character
! in *Help* buffer.  See also the command `describe-char'."
    (interactive "P")
    (let* ((char (following-char))
         (beg (point-min))
***************
*** 570,576 ****
                  (format "(0%o, %d, 0x%x)" char char char))))
        (if detail
            ;; We show the detailed information about CHAR.
!           (describe-char-after (point)))
        (if (or (/= beg 1) (/= end (1+ total)))
            (message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s"
                     (if (< char 256)
--- 570,576 ----
                  (format "(0%o, %d, 0x%x)" char char char))))
        (if detail
            ;; We show the detailed information about CHAR.
!           (describe-char (point)))
        (if (or (/= beg 1) (/= end (1+ total)))
            (message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s"
                     (if (< char 256)