/[cmucl]/src/hemlock/bindings.lisp
ViewVC logotype

Diff of /src/hemlock/bindings.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.1.9 by chiles, Tue Jul 30 10:58:44 1991 UTC revision 1.2.1.10 by chiles, Thu Aug 1 13:51:12 1991 UTC
# Line 663  Line 663 
663    (bind-key "Illegal" key-event :mode "Message"))    (bind-key "Illegal" key-event :mode "Message"))
664    
665    
666    ;;; Global Netnews bindings
667    ;;;
668    (bind-key "Netnews Post Message" #k"C-x P")
669    
670  ;;; Both News-Headers and News-Message modes.  ;;; Both News-Headers and News-Message modes.
671  ;;;  ;;;
672  ;;; The bindings in these two blocks should be the same, one for "News-Message"  ;;; The bindings in these two blocks should be the same, one for "News-Message"
# Line 673  Line 677 
677  (bind-key "Netnews Forward Message" #k"f" :mode "News-Headers")  (bind-key "Netnews Forward Message" #k"f" :mode "News-Headers")
678  (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Headers")  (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Headers")
679  (bind-key "Netnews Next Article" #k"n" :mode "News-Headers")  (bind-key "Netnews Next Article" #k"n" :mode "News-Headers")
 (bind-key "Netnews Post Message" #k"s" :mode "News-Headers")  
680  (bind-key "Netnews Previous Article" #k"p" :mode "News-Headers")  (bind-key "Netnews Previous Article" #k"p" :mode "News-Headers")
681  (bind-key "Netnews Reply via Mail" #k"m" :mode "News-Headers")  (bind-key "Netnews Reply to Sender" #k"r" :mode "News-Headers")
682  (bind-key "Netnews Reply to Message in Other Window" #k"R" :mode "News-Headers")  (bind-key "Netnews Quit Starting Here" #k"." :mode "News-Headers")
683    (bind-key "Netnews Group Punt Messages" #k"G" :mode "News-Headers")
684  ;;;  ;;;
685  (bind-key "List All Newsgroups" #k"l" :mode "News-Message")  (bind-key "List All Newsgroups" #k"l" :mode "News-Message")
686  (bind-key "Netnews Append to File" #k"a" :mode "News-Message")  (bind-key "Netnews Append to File" #k"a" :mode "News-Message")
687  (bind-key "Netnews Forward Message" #k"f" :mode "News-Message")  (bind-key "Netnews Forward Message" #k"f" :mode "News-Message")
688  (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Message")  (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Message")
689  (bind-key "Netnews Next Article" #k"n" :mode "News-Message")  (bind-key "Netnews Next Article" #k"n" :mode "News-Message")
 (bind-key "Netnews Post Message" #k"s" :mode "News-Message")  
690  (bind-key "Netnews Previous Article" #k"p" :mode "News-Message")  (bind-key "Netnews Previous Article" #k"p" :mode "News-Message")
691  (bind-key "Netnews Reply via Mail" #k"m" :mode "News-Message")  (bind-key "Netnews Reply to Sender" #k"r" :mode "News-Message")
692  (bind-key "Netnews Reply to Message in Other Window" #k"r" :mode "News-Message")  (bind-key "Netnews Quit Starting Here" #k"." :mode "News-Message")
693    (bind-key "Netnews Group Punt Messages" #k"G" :mode "News-Message")
694    
695    
696  ;;; News-Headers.  ;;; News-Headers.
# Line 699  Line 703 
703  (bind-key "Netnews Next Line" #k"Downarrow" :mode "News-Headers")  (bind-key "Netnews Next Line" #k"Downarrow" :mode "News-Headers")
704  (bind-key "Netnews Previous Line" #k"C-p" :mode "News-Headers")  (bind-key "Netnews Previous Line" #k"C-p" :mode "News-Headers")
705  (bind-key "Netnews Previous Line" #k"Uparrow" :mode "News-Headers")  (bind-key "Netnews Previous Line" #k"Uparrow" :mode "News-Headers")
 (bind-key "Netnews Punt Headers" #k"Hyper-p" :mode "News-Headers")  
 (bind-key "Netnews Reply to Message" #k"r" :mode "News-Headers")  
706  (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "News-Headers")  (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "News-Headers")
707  (bind-key "Netnews Show Article" #k"space" :mode "News-Headers")  (bind-key "Netnews Show Article" #k"space" :mode "News-Headers")
708    (bind-key "Netnews Reply to Group" #k"R" :mode "News-Headers")
709    
710    
711  ;;; News-Message.  ;;; News-Message.
# Line 717  Line 720 
720  (bind-key "Netnews Message Select Headers Buffer" #k"hyper-h" :mode "News-Message")  (bind-key "Netnews Message Select Headers Buffer" #k"hyper-h" :mode "News-Message")
721  (bind-key "Netnews Message Select Post Buffer" #k"hyper-p" :mode "News-Message")  (bind-key "Netnews Message Select Post Buffer" #k"hyper-p" :mode "News-Message")
722  (bind-key "Scroll Window Up" #k"backspace" :mode "News-Message")  (bind-key "Scroll Window Up" #k"backspace" :mode "News-Message")
723    (bind-key "Netnews Reply to Group in Other Window" #k"R" :mode "News-Message")
724    
725    
726  ;;; Post.  ;;; Post.

Legend:
Removed from v.1.2.1.9  
changed lines
  Added in v.1.2.1.10

  ViewVC Help
Powered by ViewVC 1.1.5