all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Make apostrophes invisible in Help buffers
@ 2005-12-18 12:10 Nick Roberts
  2005-12-19  4:38 ` Richard M. Stallman
  2005-12-19 19:58 ` Drew Adams
  0 siblings, 2 replies; 7+ messages in thread
From: Nick Roberts @ 2005-12-18 12:10 UTC (permalink / raw)



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

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2005-12-20 16:33 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-12-18 12:10 Make apostrophes invisible in Help buffers Nick Roberts
2005-12-19  4:38 ` Richard M. Stallman
2005-12-19  5:11   ` Nick Roberts
2005-12-19 23:46     ` Richard M. Stallman
2005-12-20  0:32       ` Nick Roberts
2005-12-20 16:33         ` Richard M. Stallman
2005-12-19 19:58 ` Drew Adams

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.