From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#4147: 23.1.50: Info-search command strange behaviour Date: Sat, 19 Dec 2009 02:45:52 +0200 Organization: JURTA Message-ID: <87d42bpv3b.fsf@mail.jurta.org> References: <20090815034957.GA30902@shareable.org> <4A86898F.6060508@gmx.at> <877ht2ryys.fsf@mail.jurta.org> <87k4x1b7vd.fsf@mail.jurta.org> <87bpi9uszm.fsf@mail.jurta.org> <87fx7d6x4j.fsf@mail.jurta.org> <4B26C372.9090008@gmx.at> <87r5qx155l.fsf@mail.jurta.org> <4B2745E5.2050108@gmx.at> <87my1johye.fsf@mail.jurta.org> <4B2891EC.4070500@gmx.at> <87hbrrgvq1.fsf@mail.jurta.org> <4B28F6E2.8020000@gmx.at> <87my1ibip3.fsf@mail.jurta.org> <4B29E99D.9060501@gmx.at> <87fx79dwy9.fsf@mail.jurta.org> Reply-To: Juri Linkov , 4147@debbugs.gnu.org NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1261192235 24790 80.91.229.12 (19 Dec 2009 03:10:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 19 Dec 2009 03:10:35 +0000 (UTC) To: 4147@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Dec 19 04:10:28 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 1NLpi7-0008KW-LV for geb-bug-gnu-emacs@m.gmane.org; Sat, 19 Dec 2009 04:10:27 +0100 Original-Received: from localhost ([127.0.0.1]:36966 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NLpi7-0003BJ-Jn for geb-bug-gnu-emacs@m.gmane.org; Fri, 18 Dec 2009 22:10:27 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NLphr-00035c-GF for bug-gnu-emacs@gnu.org; Fri, 18 Dec 2009 22:10:11 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NLphl-00032x-S5 for bug-gnu-emacs@gnu.org; Fri, 18 Dec 2009 22:10:10 -0500 Original-Received: from [199.232.76.173] (port=56414 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NLphl-00032u-La for bug-gnu-emacs@gnu.org; Fri, 18 Dec 2009 22:10:05 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:44137) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1NLphl-0008Ev-Ll for bug-gnu-emacs@gnu.org; Fri, 18 Dec 2009 22:10:05 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1NLpHZ-0007Az-Im; Fri, 18 Dec 2009 21:43:01 -0500 X-Loop: bug-gnu-emacs@gnu.org Mail-Followup-To: Juri Linkov , 4147@debbugs.gnu.org Resent-From: Juri Linkov Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 19 Dec 2009 02:43:01 +0000 Resent-Message-ID: Resent-Sender: bug-gnu-emacs@gnu.org X-Emacs-PR-Message: followup 4147 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: patch Original-Received: via spool by 4147-submit@debbugs.gnu.org id=B4147.126119054827572 (code B ref 4147); Sat, 19 Dec 2009 02:43:01 +0000 Original-Received: (at 4147) by debbugs.gnu.org; 19 Dec 2009 02:42:28 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NLpH1-0007Ae-Rc for submit@debbugs.gnu.org; Fri, 18 Dec 2009 21:42:27 -0500 Original-Received: from smtp-out3.starman.ee ([85.253.0.5] helo=mx1.starman.ee) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NLpH0-0007AU-78 for 4147@debbugs.gnu.org; Fri, 18 Dec 2009 21:42:27 -0500 X-Virus-Scanned: by Amavisd-New at mx1.starman.ee Original-Received: from mail.starman.ee (82.131.31.96.cable.starman.ee [82.131.31.96]) by mx1.starman.ee (Postfix) with ESMTP id 8CA103F412F for <4147@debbugs.gnu.org>; Sat, 19 Dec 2009 04:42:16 +0200 (EET) In-Reply-To: <87fx79dwy9.fsf@mail.jurta.org> (Juri Linkov's message of "Fri, 18 Dec 2009 01:34:14 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.90 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Fri, 18 Dec 2009 21:43:01 -0500 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: bug-gnu-emacs@gnu.org 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:33689 Archived-At: --=-=-= [I'm not sure whether all sent mails in this thread already arrived after the transition period, but let's hope that nothing will be lost.] Meanwhile, I wrote a small proof of concept that works surprisingly well. All next/prev/up navigations links work from the "header-line" window without additional efforts thanks to the following existing code in Info-next/Info-prev/Info-up: (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*")) that after clicking on a link in the "header-line" window moves the current focus from the "header-line" window to the window with the Info buffer. (The links are not yet displayed as blue underlined text, but nevertheless work well). The breadcrumbs links don't do this, so they currently don't work. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline; filename=test.el Content-Transfer-Encoding: quoted-printable (defun Info-update-header-line-window () (interactive) (let ((win-orig (selected-window)) (win-header-line (get-window-with-predicate (lambda (window) (equal (buffer-name (window-buffer window)) " *Info-header-line*"))))) (if win-header-line (select-window win-header-line) (setq win-orig (split-window-vertically)) (switch-to-buffer (get-buffer-create " *Info-header-line*"))) (erase-buffer) (fit-window-to-buffer nil 2 1) (setq window-size-fixed 'height) (setq mode-line-format nil) (setq cursor-type nil truncate-lines t) (set (make-local-variable 'face-remapping-alist) '((default header-line))) (insert (with-selected-window win-orig (concat (get-text-property (point-min) 'header-line) "\n" (buffer-substring (save-excursion (goto-char (point-min)) (forward-line 1) (point)) (save-excursion (goto-char (point-min)) (forward-line 2) (point)))))) (goto-char (point-min)) (select-window win-orig))) (defadvice Info-fontify-node (around my-Info-fontify-node act) ad-do-it (Info-update-header-line-window)) --=-=-= -- Juri Linkov http://www.jurta.org/emacs/ --=-=-=--