[Emacs-diffs] emacs/lisp ChangeLog apropos.el ehelp.el emerge...

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/08/21 07:24:32

Modified files:
        lisp           : ChangeLog apropos.el ehelp.el emerge.el 
                         printing.el strokes.el tutorial.el woman.el 
        lisp/calc      : calc-help.el 
        lisp/emulation : edt.el 
        lisp/international: mule-diag.el 
        lisp/play      : yow.el 
        lisp/progmodes : python.el vhdl-mode.el 
        lisp/textmodes : table.el 

Log message:
        Use help-print-return-message rather than the now obsolete alias.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15983&r2=1.15984
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/apropos.el?cvsroot=emacs&r1=1.139&r2=1.140
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ehelp.el?cvsroot=emacs&r1=1.50&r2=1.51
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emerge.el?cvsroot=emacs&r1=1.59&r2=1.60
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/printing.el?cvsroot=emacs&r1=1.62&r2=1.63
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/strokes.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tutorial.el?cvsroot=emacs&r1=1.34&r2=1.35
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/woman.el?cvsroot=emacs&r1=1.80&r2=1.81
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-help.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emulation/edt.el?cvsroot=emacs&r1=1.67&r2=1.68
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-diag.el?cvsroot=emacs&r1=1.129&r2=1.130
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/yow.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/python.el?cvsroot=emacs&r1=1.95&r2=1.96
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/vhdl-mode.el?cvsroot=emacs&r1=1.82&r2=1.83
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/table.el?cvsroot=emacs&r1=1.41&r2=1.42

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15983
retrieving revision 1.15984
diff -u -b -r1.15983 -r1.15984
--- ChangeLog   21 Aug 2009 07:11:24 -0000      1.15983
+++ ChangeLog   21 Aug 2009 07:24:26 -0000      1.15984
@@ -1,5 +1,22 @@
 2009-08-21  Glenn Morris  <address@hidden>
 
+       * apropos.el (apropos-command):
+       * ehelp.el (electric-helpify):
+       * printing.el (pr-show-setup):
+       * strokes.el (strokes-help):
+       * tutorial.el (tutorial--describe-nonstandard-key)
+       (tutorial--detailed-help):
+       * woman.el (woman-mini-help, woman-display-extended-fonts):
+       * calc/calc-help.el (calc-describe-key):
+       * emulation/edt.el (edt-electric-helpify):
+       * international/mule-diag.el (mule-diag):
+       * play/yow.el (apropos-zippy):
+       * progmodes/python.el (python-describe-symbol):
+       * progmodes/vhdl-mode.el (vhdl-doc-variable, vhdl-doc-mode):
+       * textmodes/table.el (*table--cell-describe-mode)
+       (*table--cell-describe-bindings):
+       Use help-print-return-message rather than the now obsolete alias.
+
        * calendar/cal-move.el (calendar-cursor-to-nearest-date)
        (calendar-cursor-to-visible-date): Use forward-line, not goto-line.
 

Index: apropos.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/apropos.el,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -b -r1.139 -r1.140
--- apropos.el  21 Feb 2009 03:18:42 -0000      1.139
+++ apropos.el  21 Aug 2009 07:24:29 -0000      1.140
@@ -466,7 +466,7 @@
   (apropos-parse-pattern pattern)
   (let ((message
         (let ((standard-output (get-buffer-create "*Apropos*")))
-          (print-help-return-message 'identity))))
+          (help-print-return-message 'identity))))
     (or do-all (setq do-all apropos-do-all))
     (setq apropos-accumulator
          (apropos-internal apropos-regexp

Index: ehelp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ehelp.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- ehelp.el    10 Jan 2009 23:30:27 -0000      1.50
+++ ehelp.el    21 Aug 2009 07:24:29 -0000      1.51
@@ -292,7 +292,7 @@
   (let ((name (or name "*Help*")))
     (if (save-window-excursion
          ;; kludge-o-rama
-         (let* ((p (symbol-function 'print-help-return-message))
+         (let* ((p (symbol-function 'help-print-return-message))
                 (b (get-buffer name))
                 (m (buffer-modified-p b)))
            (and b (not (get-buffer-window b))
@@ -325,14 +325,14 @@
                       (save-excursion
                         (set-buffer b)
                         (set-buffer-modified-p t)))
-                 (fset 'print-help-return-message 'ignore)
+                 (fset 'help-print-return-message 'ignore)
                  (call-interactively fun)
                  (and (get-buffer name)
                       (get-buffer-window (get-buffer name))
                       (or (not b)
                           (not (eq b (get-buffer name)))
                           (not (buffer-modified-p b)))))
-             (fset 'print-help-return-message p)
+             (fset 'help-print-return-message p)
              (and b (buffer-name b)
                   (save-excursion
                     (set-buffer b)

Index: emerge.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emerge.el,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -b -r1.59 -r1.60
--- emerge.el   21 Jul 2009 04:41:29 -0000      1.59
+++ emerge.el   21 Aug 2009 07:24:29 -0000      1.60
@@ -3023,7 +3023,7 @@
 ;;    (save-excursion
 ;;      (set-buffer standard-output)
 ;;      (help-mode))
-;;    (print-help-return-message)))
+;;    (help-print-return-message)))
 
 ;; This goes with the redefinition of describe-mode.
 ;;;; Adjust things so that keyboard macro definitions are documented correctly.

Index: printing.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/printing.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- printing.el 21 Jul 2009 04:47:37 -0000      1.62
+++ printing.el 21 Aug 2009 07:24:29 -0000      1.63
@@ -1,7 +1,7 @@
 ;;; printing.el --- printing utilities
 
-;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: Vinicius Jose Latorre <address@hidden>
 ;; Maintainer: Vinicius Jose Latorre <address@hidden>
@@ -5506,7 +5506,7 @@
 (defun pr-show-setup (settings buffer-name)
   (with-output-to-temp-buffer buffer-name
     (princ settings)
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 
 (defun pr-complete-alist (prompt alist default)

Index: strokes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/strokes.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- strokes.el  5 Jan 2009 03:19:47 -0000       1.40
+++ strokes.el  21 Aug 2009 07:24:29 -0000      1.41
@@ -1,7 +1,7 @@
 ;;; strokes.el --- control Emacs through mouse strokes
 
-;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: David Bakhash <address@hidden>
 ;; Maintainer: FSF
@@ -1028,7 +1028,7 @@
   by customizing the group `strokes' via \\[customize-group]."))
     (set-buffer standard-output)
     (help-mode)
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defalias 'strokes-report-bug 'report-emacs-bug)
 

Index: tutorial.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tutorial.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- tutorial.el 8 Jul 2009 02:37:14 -0000       1.34
+++ tutorial.el 21 Aug 2009 07:24:30 -0000      1.35
@@ -163,7 +163,7 @@
                       (format "%s" db)
                       "'.")))
           (fill-region (point-min) (point)))))
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun tutorial--sort-keys (left right)
   "Sort predicate for use with `tutorial--default-keys'.
@@ -388,7 +388,7 @@
         (insert "
 It is OK to change key bindings, but changed bindings do not
 correspond to what the tutorial says.\n\n")
-        (print-help-return-message)))))
+        (help-print-return-message)))))
 
 (defun tutorial--find-changed-keys (default-keys)
   "Find the key bindings used in the tutorial that have changed.

Index: woman.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/woman.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- woman.el    6 Jul 2009 02:17:34 -0000       1.80
+++ woman.el    21 Aug 2009 07:24:30 -0000      1.81
@@ -1,7 +1,7 @@
 ;;; woman.el --- browse UN*X manual pages `wo (without) man'
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Francis J. Wright <address@hidden>
 ;; Maintainer: FSF
@@ -1970,7 +1970,7 @@
   (require 'apropos)
   (let ((message
         (let ((standard-output (get-buffer-create "*Apropos*")))
-          (print-help-return-message 'identity))))
+          (help-print-return-message 'identity))))
     (setq apropos-accumulator
          (apropos-internal "woman"
                            (lambda (symbol)
@@ -2973,7 +2973,7 @@
          (setq i (1+ i))
          (when (= i 128) (setq i 160) (insert "\n"))
          (if (zerop (% i 8)) (insert "\n")))))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 
 ;;; Formatting macros that do not cause a break:

Index: calc/calc-help.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calc/calc-help.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- calc/calc-help.el   5 Jan 2009 03:20:01 -0000       1.40
+++ calc/calc-help.el   21 Aug 2009 07:24:30 -0000      1.41
@@ -1,7 +1,7 @@
 ;;; calc-help.el --- help display functions for Calc,
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <address@hidden>
 ;; Maintainer: Jay Belanger <address@hidden>
@@ -283,7 +283,7 @@
                                (beginning-of-line)
                                (princ (buffer-substring pt (point))))
                              (setq notes (cdr notes)))
-                           (print-help-return-message)))
+                           (help-print-return-message)))
                      (calc-unread-command (cdr key)))))
              (if (or (null defn) (integerp defn))
                  (message "%s is undefined" desc)
@@ -466,7 +466,7 @@
              calc-shift-Y-prefix-help
              calc-shift-Z-prefix-help
              calc-z-prefix-help)))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defun calc-h-prefix-help ()
   (interactive)

Index: emulation/edt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/edt.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- emulation/edt.el    4 Jun 2009 01:09:02 -0000       1.67
+++ emulation/edt.el    21 Aug 2009 07:24:30 -0000      1.68
@@ -2648,7 +2648,7 @@
 (defun edt-electric-helpify (fun)
   (let ((name "*Help*"))
     (if (save-window-excursion
-          (let* ((p (symbol-function 'print-help-return-message))
+          (let* ((p (symbol-function 'help-print-return-message))
                  (b (get-buffer name))
                  (m (buffer-modified-p b)))
             (and b (not (get-buffer-window b))
@@ -2660,14 +2660,14 @@
                        (save-excursion
                          (set-buffer b)
                          (set-buffer-modified-p t)))
-                  (fset 'print-help-return-message 'ignore)
+                  (fset 'help-print-return-message 'ignore)
                   (call-interactively fun)
                   (and (get-buffer name)
                        (get-buffer-window (get-buffer name))
                        (or (not b)
                            (not (eq b (get-buffer name)))
                            (not (buffer-modified-p b)))))
-              (fset 'print-help-return-message p)
+              (fset 'help-print-return-message p)
               (and b (buffer-name b)
                    (save-excursion
                      (set-buffer b)

Index: international/mule-diag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- international/mule-diag.el  11 Jul 2009 06:36:14 -0000      1.129
+++ international/mule-diag.el  21 Aug 2009 07:24:30 -0000      1.130
@@ -1130,7 +1130,7 @@
        (insert "------------\t\t\t\t\t\t  ----- -----\n")
        (dolist (fontset (fontset-list))
          (print-fontset fontset t)))
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 ;;;###autoload
 (defun font-show-log (&optional limit)

Index: play/yow.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/yow.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- play/yow.el 5 Jan 2009 03:23:12 -0000       1.40
+++ play/yow.el 21 Aug 2009 07:24:30 -0000      1.41
@@ -1,7 +1,7 @@
 ;;; yow.el --- quote random zippyisms
 
-;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Author: Richard Mlynarik
@@ -101,7 +101,7 @@
                       (princ (car l))
                       (setq l (cdr l))
                       (and l (princ "\n\n")))
-                   (print-help-return-message))))))
+                   (help-print-return-message))))))
     matches))
 
 

Index: progmodes/python.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/python.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- progmodes/python.el 20 Feb 2009 16:30:56 -0000      1.95
+++ progmodes/python.el 21 Aug 2009 07:24:30 -0000      1.96
@@ -1787,7 +1787,7 @@
        ;; Fixme: Is this actually useful?
        (help-setup-xref (list 'python-describe-symbol symbol) (interactive-p))
        (set (make-local-variable 'comint-redirect-subvert-readonly) t)
-       (print-help-return-message))))
+       (help-print-return-message))))
   (comint-redirect-send-command-to-process (format "emacs.ehelp(%S, %s)"
                                                   symbol python-imports)
    "*Help*" (python-proc) nil nil))

Index: progmodes/vhdl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- progmodes/vhdl-mode.el      22 Jul 2009 03:07:24 -0000      1.82
+++ progmodes/vhdl-mode.el      21 Aug 2009 07:24:31 -0000      1.83
@@ -16979,7 +16979,7 @@
     (princ (documentation-property variable 'variable-documentation))
     (with-current-buffer standard-output
       (help-mode))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defun vhdl-doc-mode ()
   "Display VHDL Mode documentation in *Help* buffer."
@@ -16993,7 +16993,7 @@
     (princ (documentation 'vhdl-mode))
     (with-current-buffer standard-output
       (help-mode))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Index: textmodes/table.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- textmodes/table.el  22 Jul 2009 03:07:24 -0000      1.41
+++ textmodes/table.el  21 Aug 2009 07:24:32 -0000      1.42
@@ -1,12 +1,12 @@
 ;;; table.el --- create and edit WYSIWYG text based embedded tables
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Keywords: wp, convenience
 ;; Author: Takaaki Ota <address@hidden>
 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
-;; Revised: Thu Jan 08 2009 20:17:04 (PST)
+;; Revised: Fri Aug 21 2009 00:16:58 (PDT)
 
 ;; This file is part of GNU Emacs.
 
@@ -4078,7 +4078,7 @@
 folded location is marked by a continuation character which is
 specified in the variable `table-word-continuation-char'.
 ")
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun *table--cell-describe-bindings ()
   "Table cell version of `describe-bindings'."
@@ -4096,7 +4096,7 @@
                             (key-description (car binding))
                             (cdr binding))))
            table-cell-bindings)
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun *table--cell-dabbrev-expand (arg)
   "Table cell version of `dabbrev-expand'."