unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* help-go-back
@ 2004-05-08 20:44 Karl Chen
  2004-05-08 21:32 ` help-go-back Juri Linkov
  2004-05-19  0:57 ` help-go-back Stefan Monnier
  0 siblings, 2 replies; 10+ messages in thread
From: Karl Chen @ 2004-05-08 20:44 UTC (permalink / raw)



`Help-go-back' hasn't been working.  Here are two possible fixes.

I think `help-go-back' was kludgey before (that's why it broke) so
patch #2 is better.

It would also be nice if there were a `help-go-forward' (opposite
of `help-go-back').  I can write this if there is interest.


--- /home/quarl/local/Node-Linux-i686/stow/emacs-cvs/share/emacs/21.3.50/lisp/help-mode.el	Sat May  8 13:24:44 2004
+++ /tmp/buffer-content-33160vh	Sat May  8 13:24:58 2004
@@ -579,7 +579,7 @@
 (defun help-go-back ()
   "Invoke the [back] button (if any) in the Help mode buffer."
   (interactive)
-  (let ((back-button (button-at (1- (point-max)))))
+  (let ((back-button (button-at (- (point-max) 2))))
     (if back-button
 	(button-activate back-button)
       (error "No [back] button"))))


--- /home/quarl/local/Node-Linux-i686/stow/emacs-cvs/share/emacs/21.3.50/lisp/.backup/help-mode.el.~1~	Thu Apr 29 11:43:32 2004
+++ /home/quarl/local/Node-Linux-i686/stow/emacs-cvs/share/emacs/21.3.50/lisp/help-mode.el	Sat May  8 13:35:05 2004
@@ -577,12 +577,11 @@
 	(goto-char position)))))
 
 (defun help-go-back ()
-  "Invoke the [back] button (if any) in the Help mode buffer."
+  "Go back to previous help buffer."
   (interactive)
-  (let ((back-button (button-at (1- (point-max)))))
-    (if back-button
-	(button-activate back-button)
-      (error "No [back] button"))))
+  (if help-xref-stack
+      (help-xref-go-back (current-buffer))
+    (error "No previous help buffer.")))
 
 (defun help-do-xref (pos function args)
   "Call the help cross-reference function FUNCTION with args ARGS.



-- 
Karl 2004-05-08 13:26

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

end of thread, other threads:[~2004-05-19  0:57 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-05-08 20:44 help-go-back Karl Chen
2004-05-08 21:32 ` help-go-back Juri Linkov
2004-05-08 22:24   ` help-go-back Karl Chen
2004-05-09  0:08     ` help-go-back Juri Linkov
2004-05-09  0:48       ` help-go-back Nick Roberts
2004-05-09  1:11         ` help-go-back Juri Linkov
2004-05-09  6:52           ` help-go-back Eli Zaretskii
2004-05-09 11:25             ` help-go-back Juri Linkov
2004-05-09 18:47       ` help-go-back Richard Stallman
2004-05-19  0:57 ` help-go-back Stefan Monnier

Code repositories for project(s) associated with this public inbox

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

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).