From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Sean O'Rourke" Newsgroups: gmane.emacs.devel Subject: remove dabbrev--scanning-message? Date: Sun, 22 Jul 2007 22:16:36 -0700 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1185167841 12807 80.91.229.12 (23 Jul 2007 05:17:21 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 23 Jul 2007 05:17:21 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 23 07:17:20 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 1ICqII-0003k8-FJ for ged-emacs-devel@m.gmane.org; Mon, 23 Jul 2007 07:17:18 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ICqIH-00007w-Q4 for ged-emacs-devel@m.gmane.org; Mon, 23 Jul 2007 01:17:17 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1ICqI6-00005w-47 for emacs-devel@gnu.org; Mon, 23 Jul 2007 01:17:06 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1ICqI5-00005R-0B for emacs-devel@gnu.org; Mon, 23 Jul 2007 01:17:05 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ICqI4-00005G-Lz for emacs-devel@gnu.org; Mon, 23 Jul 2007 01:17:04 -0400 Original-Received: from outbound1.ucsd.edu ([132.239.1.205]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1ICqI4-0005Hh-7E for emacs-devel@gnu.org; Mon, 23 Jul 2007 01:17:04 -0400 Original-Received: from smtp.ucsd.edu (smtp.ucsd.edu [132.239.1.49]) by outbound1.ucsd.edu (8.13.6/8.13.6) with ESMTP id l6N5Ge5J081759 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Sun, 22 Jul 2007 22:16:41 -0700 (PDT) DomainKey-Signature: a=rsa-sha1; s=2007001; d=ucsd.edu; c=simple; q=dns; b=kEuPsExYgZ9eMGhZHSGd8fH2z4qk078vrQ0CgX3cyxqD2f9vKA+mYVEVW8jVz0dqA fj6b29eRzUY62FthXbaLA== Original-Received: from mister-foo.local ([128.54.220.221]) by smtp.ucsd.edu (8.13.6/8.13.4) with ESMTP id l6N5Gd5J064958 for ; Sun, 22 Jul 2007 22:16:40 -0700 (PDT) User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (darwin) X-detected-kernel: FreeBSD 6.x (1) 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:75358 Archived-At: --=-=-= When `dabbrev-expand' is invoked with many buffers and it fails to find an expansion, there is an annoying forced pause while it scans every buffer and emits uninteresting progress messages. If these messages are removed, a failed expansion is nearly instantaneous, so I don't see any benefit to having progress messages. Patch attached. /s 2007-07-22 Sean O'Rourke * dabbrev.el (dabbrev--scanning-message): removed. (dabbrev--find-expansion): remove calls. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment Index: dabbrev.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/dabbrev.el,v retrieving revision 1.85 diff -u -r1.85 dabbrev.el --- dabbrev.el 16 May 2007 13:13:20 -0000 1.85 +++ dabbrev.el 23 Jul 2007 05:07:50 -0000 @@ -711,10 +711,6 @@ (setq all-expansions (cons expansion all-expansions)))) all-expansions)) -(defun dabbrev--scanning-message () - (unless (window-minibuffer-p (selected-window)) - (message "Scanning `%s'" (buffer-name (current-buffer))))) - (defun dabbrev--ignore-buffer-p (buffer) "Return non-nil if BUFFER should be ignored by dabbrev." (let ((bn (buffer-name buffer))) @@ -740,8 +736,7 @@ ;; If we were scanning something other than the current buffer, ;; continue scanning there. (when dabbrev--last-buffer - (set-buffer dabbrev--last-buffer) - (dabbrev--scanning-message)) + (set-buffer dabbrev--last-buffer)) (or ;; ------------------------------------------ ;; Look backward in current buffer. @@ -781,7 +776,6 @@ (while (and (not expansion) dabbrev--friend-buffer-list) (setq dabbrev--last-buffer (pop dabbrev--friend-buffer-list)) (set-buffer dabbrev--last-buffer) - (dabbrev--scanning-message) (setq dabbrev--last-expansion-location (point-min)) (setq expansion (dabbrev--try-find abbrev nil 1 ignore-case))) expansion))))) --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --=-=-=--