From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.bugs Subject: bug#1806: dired-pop-to-buffer in wrong place Date: Mon, 18 May 2009 10:11:54 +0200 Message-ID: <4A11184A.1020805@gmx.at> References: <87r63gzcap.fsf@jurta.org> <87d4ezuw6w.fsf@jurta.org> <4964CB72.1090605@gmx.at> <87aba3qb5g.fsf@jurta.org> <4965AE6B.6070802@gmx.at> <87fxjtmo4z.fsf@jurta.org> <49671922.4080609@gmx.at> <87zlhubw10.fsf@jurta.org> <496DF4B9.3080805@gmx.at> <496E5F58.7030304@gmx.at> <496F11C0.4080700@gmx.at> <87ocy8fajt.fsf@jurta.org> <4975F4D5.5030000@gmx.at> <87y6tk1j47.fsf@mail.jurta.org> <49F7FE14.8010107@gmx.at> <49FFE515.4020608@gmx.at> <87vdnzpks0.fsf@mail.jurta.org> Reply-To: martin rudalics , 1806@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------020000040001000803060702" X-Trace: ger.gmane.org 1242635572 30663 80.91.229.12 (18 May 2009 08:32:52 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 18 May 2009 08:32:52 +0000 (UTC) Cc: 1806@emacsbugs.donarmstrong.com, Roland Winkler To: Juri Linkov Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon May 18 10:32:45 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1M5yH6-0005Kz-Dl for geb-bug-gnu-emacs@m.gmane.org; Mon, 18 May 2009 10:32:44 +0200 Original-Received: from localhost ([127.0.0.1]:40540 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1M5yH5-0003Ic-DV for geb-bug-gnu-emacs@m.gmane.org; Mon, 18 May 2009 04:32:43 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1M5yGU-0002pA-G7 for bug-gnu-emacs@gnu.org; Mon, 18 May 2009 04:32:06 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1M5yGP-0002mW-2N for bug-gnu-emacs@gnu.org; Mon, 18 May 2009 04:32:05 -0400 Original-Received: from [199.232.76.173] (port=49555 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1M5yGO-0002mB-Mn for bug-gnu-emacs@gnu.org; Mon, 18 May 2009 04:32:00 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:43421) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1M5yGO-00025M-47 for bug-gnu-emacs@gnu.org; Mon, 18 May 2009 04:32:00 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id n4I8VuhA002763; Mon, 18 May 2009 01:31:57 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id n4I8K3Ux031343; Mon, 18 May 2009 01:20:03 -0700 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: martin rudalics Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Mon, 18 May 2009 08:20:03 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: followup 1806 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by 1806-submit@emacsbugs.donarmstrong.com id=B1806.124263438429874 (code B ref 1806); Mon, 18 May 2009 08:20:03 +0000 Original-Received: (at 1806) by emacsbugs.donarmstrong.com; 18 May 2009 08:13:04 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id n4I8Cx73029856 for <1806@emacsbugs.donarmstrong.com>; Mon, 18 May 2009 01:13:00 -0700 Original-Received: (qmail invoked by alias); 18 May 2009 08:12:52 -0000 Original-Received: from 62-47-57-103.adsl.highway.telekom.at (EHLO [62.47.57.103]) [62.47.57.103] by mail.gmx.net (mp036) with SMTP; 18 May 2009 10:12:52 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1+Pm3QNM22Pi3ttlz7TF6yqi6ABf1XPWhuBz5qnHj P8aL4h5j9fp2dk User-Agent: Thunderbird 2.0.0.21 (Windows/20090302) In-Reply-To: <87vdnzpks0.fsf@mail.jurta.org> X-Y-GMX-Trusted: 0 X-FuHaFi: 0.78,0.55 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Mon, 18 May 2009 04:32:05 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:27958 Archived-At: This is a multi-part message in MIME format. --------------020000040001000803060702 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit > Could you also fix Proced and Calendar? I attached a similar patch for `proced-send-signal'. I don't know what to do about `proced' itself. Roland what do you think? martin --------------020000040001000803060702 Content-Type: text/plain; name="proced.el.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="proced.el.diff" *** proced.el.~1.36.~ 2009-04-21 07:18:50.000000000 +0200 --- proced.el 2009-05-18 10:01:50.031250000 +0200 *************** *** 1720,1728 **** (dolist (process process-alist) (insert " " (cdr process) "\n")) (save-window-excursion ! ;; Analogous to `dired-pop-to-buffer' ! ;; Don't split window horizontally. (Bug#1806) ! (let (split-width-threshold) (pop-to-buffer (current-buffer))) (fit-window-to-buffer (get-buffer-window) nil 1) (let* ((completion-ignore-case t) --- 1720,1735 ---- (dolist (process process-alist) (insert " " (cdr process) "\n")) (save-window-excursion ! ;; Analogous to `dired-pop-to-buffer'. ! (let ((split-window-preferred-function ! (lambda (window) ! (or (and (let ((split-height-threshold 0)) ! (window-splittable-p (selected-window))) ! ;; Try to split the selected window vertically if ! ;; that's possible. (Bug#1806) ! (split-window-vertically)) ! ;; Otherwise, try to split WINDOW sensibly. ! (split-window-sensibly window))))) (pop-to-buffer (current-buffer))) (fit-window-to-buffer (get-buffer-window) nil 1) (let* ((completion-ignore-case t) --------------020000040001000803060702--