From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Nick Roberts Newsgroups: gmane.emacs.devel Subject: Make apostrophes invisible in Help buffers Date: Mon, 19 Dec 2005 01:10:29 +1300 Message-ID: <17317.20917.890165.284080@kahikatea.snap.net.nz> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1134908631 3817 80.91.229.2 (18 Dec 2005 12:23:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 18 Dec 2005 12:23:51 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Dec 18 13:23:44 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EnxYv-0008Al-7L for ged-emacs-devel@m.gmane.org; Sun, 18 Dec 2005 13:22:49 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnxZi-0002s2-FK for ged-emacs-devel@m.gmane.org; Sun, 18 Dec 2005 07:23:38 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EnxOT-0003v1-7u for emacs-devel@gnu.org; Sun, 18 Dec 2005 07:12:01 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EnxOR-0003uI-11 for emacs-devel@gnu.org; Sun, 18 Dec 2005 07:12:00 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnxOQ-0003ts-2p for emacs-devel@gnu.org; Sun, 18 Dec 2005 07:11:58 -0500 Original-Received: from [202.37.101.8] (helo=viper.snap.net.nz) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EnxRB-0007BR-Dd for emacs-devel@gnu.org; Sun, 18 Dec 2005 07:14:49 -0500 Original-Received: from kahikatea.snap.net.nz (p246-tnt1.snap.net.nz [202.124.110.246]) by viper.snap.net.nz (Postfix) with ESMTP id 21C83731447 for ; Mon, 19 Dec 2005 01:11:04 +1300 (NZDT) Original-Received: by kahikatea.snap.net.nz (Postfix, from userid 500) id D406183AF; Mon, 19 Dec 2005 01:10:30 +1300 (NZDT) Original-To: emacs-devel@gnu.org X-Mailer: VM 7.19 under Emacs 22.0.50.22 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:47989 Archived-At: The patch below works just for symbols and is just for demonstration purposes. It would also be nice to use the same face as Info for links. After the release, info-xref-visited face could also be used help topics previously visited. Nick *** help-mode.el 15 Nov 2005 15:48:05 +1300 1.40 --- help-mode.el 19 Dec 2005 01:02:46 +1300 *************** *** 381,387 **** (while (re-search-forward help-xref-symbol-regexp nil t) (let* ((data (match-string 8)) (sym (intern-soft data))) ! (if sym (cond ((match-string 3) ; `variable' &c (and (or (boundp sym) ; `variable' doesn't ensure --- 381,387 ---- (while (re-search-forward help-xref-symbol-regexp nil t) (let* ((data (match-string 8)) (sym (intern-soft data))) ! (when sym (cond ((match-string 3) ; `variable' &c (and (or (boundp sym) ; `variable' doesn't ensure *************** *** 426,432 **** (cyclic-variable-indirection nil)))) (help-xref-button 8 'help-variable sym)) ((fboundp sym) ! (help-xref-button 8 'help-function sym))))))) ;; An obvious case of a key substitution: (save-excursion (while (re-search-forward --- 426,436 ---- (cyclic-variable-indirection nil)))) (help-xref-button 8 'help-variable sym)) ((fboundp sym) ! (help-xref-button 8 'help-function sym))) ! (let ((start (match-beginning 8)) ! (end (match-end 8))) ! (put-text-property start (1- start) 'invisible t) ! (put-text-property end (1+ end) 'invisible t)))))) ;; An obvious case of a key substitution: (save-excursion (while (re-search-forward