From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: fancy-splash-help-echo Date: Sun, 09 Dec 2007 18:18:40 -0500 Message-ID: References: Reply-To: rms@gnu.org NNTP-Posting-Host: lo.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: ger.gmane.org 1197242427 8370 80.91.229.12 (9 Dec 2007 23:20:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 9 Dec 2007 23:20:27 +0000 (UTC) Cc: emacs-devel@gnu.org To: "Juanma Barranquero" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Dec 10 00:20:37 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1J1VRp-0005CD-FI for ged-emacs-devel@m.gmane.org; Mon, 10 Dec 2007 00:20:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1J1VRY-0004Jr-0F for ged-emacs-devel@m.gmane.org; Sun, 09 Dec 2007 18:20:16 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1J1VQ2-0003lE-SA for emacs-devel@gnu.org; Sun, 09 Dec 2007 18:18:42 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1J1VQ1-0003kY-9W for emacs-devel@gnu.org; Sun, 09 Dec 2007 18:18:42 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1J1VQ0-0003kQ-U2 for emacs-devel@gnu.org; Sun, 09 Dec 2007 18:18:40 -0500 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1J1VQ0-0006LB-NJ for emacs-devel@gnu.org; Sun, 09 Dec 2007 18:18:40 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.60) (envelope-from ) id 1J1VQ0-0002kd-FP; Sun, 09 Dec 2007 18:18:40 -0500 In-reply-to: (lekktu@gmail.com) X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:84933 Archived-At: Thanks. I think this change is called for. Do you agree? *** startup.el 15 Nov 2007 06:48:17 -0500 1.436.2.7 --- startup.el 09 Dec 2007 16:40:33 -0500 *************** *** 1288,1295 **** ;; These are temporary storage areas for the splash screen display. - (defvar fancy-splash-help-echo nil) - (defun fancy-splash-insert (&rest args) "Insert text into the current buffer, with faces. Arguments from ARGS should be either strings; functions called --- 1288,1293 ---- *************** *** 1323,1329 **** (funcall it) it)) 'face current-face ! 'help-echo fancy-splash-help-echo)))) (setq args (cdr args))))) --- 1321,1327 ---- (funcall it) it)) 'face current-face ! 'help-echo (startup-echo-area-message))))) (setq args (cdr args))))) *************** *** 1505,1512 **** (dolist (text fancy-about-text) (apply #'fancy-splash-insert text) (insert "\n")) - (unless (current-message) - (message fancy-splash-help-echo)) (set-buffer-modified-p nil) (goto-char (point-min)) (force-mode-line-update)) --- 1503,1508 ----