Loading ...
Sorry, an error occurred while loading the content.

[jasspa] Re: Solution to hypertexting to the help from list-commands buffer

Expand Messages
  • Jon Green
    Oops, forgot that the buffer binding must be in a fhook extension. So the macro again is... Sorry Jon.
    Message 1 of 2 , Mar 15, 2000
    • 0 Attachment
      Oops, forgot that the buffer binding must be in a
      fhook extension. So the macro again is...

      Sorry
      Jon.


      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      ;
      ; Author : $Author$
      ; Created By : Jon Green
      ; Created : Wed Mar 15 08:18:46 2000
      ; Last Modified : <000315.0906>
      ;
      ; Description : Extensions to access the help for the command from the
      ; keyboard. a <RETURN> invokes the help page.
      ;
      ; Notes
      ;
      ; History
      ;
      ; Copyright (c) 2000 Samsung (SERI) Ltd.
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      ; Forward reference the ehf find command.
      define-macro-file hkehf ehf-find-help


      ; Local macro to process the links from the keyboard.
      ; Bound to <RETURN>. Note that we process from the
      ; end of the line. This makes it easy to process
      ; the command where there are multiple key bindings.
      0 define-macro lists-process-link-by-key
      set-mark
      end-of-line
      !force search-backward "^ +\\([-a-zA-Z0-9]+\\)"
      !if $status
      ; Get the name of the command out and help
      ; on it.
      set-variable #l0 @s1
      ehf-find-help #l0
      !return
      !endif
      exchange-point-and-mark
      ml-write "Error! Not in a link"
      !abort
      !emacro

      0 define-macro my-fhook-lists
      buffer-bind-key "lists-process-link-by-key" "return"
      !emacro
    Your message has been successfully submitted and would be delivered to recipients shortly.