Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-emulate.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children fe104dbd9147
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; w3-emulate.el --- All variable definitions for emacs-w3 1 ;;; w3-emulate.el --- All variable definitions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/22 16:28:30 3 ;; Created: 1997/02/04 19:21:18
4 ;; Version: 1.6 4 ;; Version: 1.11
5 ;; Keywords: comm, help, hypermedia 5 ;; Keywords: comm, help, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
78 (define-key w3-netscape-emulation-minor-mode-map [down] 78 (define-key w3-netscape-emulation-minor-mode-map [down]
79 (function (lambda () (interactive) (scroll-up 1)))) 79 (function (lambda () (interactive) (scroll-up 1))))
80 (define-key w3-netscape-emulation-minor-mode-map [right] 'scroll-left) 80 (define-key w3-netscape-emulation-minor-mode-map [right] 'scroll-left)
81 (define-key w3-netscape-emulation-minor-mode-map [left] 'scroll-right) 81 (define-key w3-netscape-emulation-minor-mode-map [left] 'scroll-right)
82 (define-key w3-netscape-emulation-minor-mode-map [(meta left)] 82 (define-key w3-netscape-emulation-minor-mode-map [(meta left)]
83 'w3-backward-in-history) 83 'w3-history-backward)
84 (define-key w3-netscape-emulation-minor-mode-map [(meta right)] 84 (define-key w3-netscape-emulation-minor-mode-map [(meta right)]
85 'w3-forward-in-history) 85 'w3-history-forward)
86 86
87 (defun turn-on-netscape-emulation () 87 (defun turn-on-netscape-emulation ()
88 (interactive) 88 (interactive)
89 (w3-lynx-emulation-minor-mode 0) 89 (w3-lynx-emulation-minor-mode 0)
90 (w3-netscape-emulation-minor-mode 1)) 90 (w3-netscape-emulation-minor-mode 1))
184 (setq w3-lynx-emulation-minor-mode nil)) 184 (setq w3-lynx-emulation-minor-mode nil))
185 (t 185 (t
186 (setq w3-lynx-emulation-minor-mode t 186 (setq w3-lynx-emulation-minor-mode t
187 w3-netscape-emulation-minor-mode nil)))) 187 w3-netscape-emulation-minor-mode nil))))
188 188
189 ;; The list of keybindings for lynx minor mode was compiled from:
190 ;; http://www.crl.com/~subir/lynx/lynx_help/keystroke_commands/keystroke_help.htm
191
192 ;; Movement
193 (define-key w3-lynx-emulation-minor-mode-map [up] 'w3-widget-backward)
194 (define-key w3-lynx-emulation-minor-mode-map [down] 'w3-widget-forward)
195 (define-key w3-lynx-emulation-minor-mode-map [right] 'w3-follow-link)
196 (define-key w3-lynx-emulation-minor-mode-map [left] 'w3-history-backward)
197
198 ;; Scrolling
189 (define-key w3-lynx-emulation-minor-mode-map "+" 'w3-scroll-up) 199 (define-key w3-lynx-emulation-minor-mode-map "+" 'w3-scroll-up)
190 (define-key w3-lynx-emulation-minor-mode-map "-" 'scroll-down) 200 (define-key w3-lynx-emulation-minor-mode-map "-" 'scroll-down)
191 (define-key w3-lynx-emulation-minor-mode-map "b" 'scroll-down) 201 (define-key w3-lynx-emulation-minor-mode-map "b" 'scroll-down)
192 (define-key w3-lynx-emulation-minor-mode-map "a" 'w3-hotlist-add-document) 202 (define-key w3-lynx-emulation-minor-mode-map "\C-a" 'w3-start-of-document)
193 (define-key w3-lynx-emulation-minor-mode-map "c" 'w3-mail-document-author) 203 (define-key w3-lynx-emulation-minor-mode-map "\C-e" 'w3-end-of-document)
194 (define-key w3-lynx-emulation-minor-mode-map "e" 'w3-edit-source) 204 (define-key w3-lynx-emulation-minor-mode-map "\C-f" 'scroll-down)
195 (define-key w3-lynx-emulation-minor-mode-map "g" 'w3-fetch) 205 (define-key w3-lynx-emulation-minor-mode-map "\C-n" 'ignore) ; down 2
196 (define-key w3-lynx-emulation-minor-mode-map "i" 'ignore) 206 (define-key w3-lynx-emulation-minor-mode-map "\C-p" 'ignore) ; up 2
197 (define-key w3-lynx-emulation-minor-mode-map "m" 'w3) 207 (define-key w3-lynx-emulation-minor-mode-map ")" 'ignore) ; forward half
198 (define-key w3-lynx-emulation-minor-mode-map "o" 'ignore) 208 (define-key w3-lynx-emulation-minor-mode-map "(" 'ignore) ; back half
199 (define-key w3-lynx-emulation-minor-mode-map "p" 'w3-print-this-url) 209 (define-key w3-lynx-emulation-minor-mode-map "#" 'w3-toggle-toolbar)
200 (define-key w3-lynx-emulation-minor-mode-map "q" 'w3-quit) 210
201 (define-key w3-lynx-emulation-minor-mode-map "/" 'w3-search-forward) 211 ;; Dired bindings don't have any meaning for us
202 (define-key w3-lynx-emulation-minor-mode-map "s" 'w3-search-forward) 212
203 (define-key w3-lynx-emulation-minor-mode-map "n" 'w3-search-again) 213 ;; Other
204 (define-key w3-lynx-emulation-minor-mode-map "v" 'w3-show-hotlist) 214 (define-key w3-lynx-emulation-minor-mode-map "?" 'w3-help)
205 (define-key w3-lynx-emulation-minor-mode-map "=" 'w3-document-information) 215 (define-key w3-lynx-emulation-minor-mode-map "a" 'w3-hotlist-add-document)
216 (define-key w3-lynx-emulation-minor-mode-map "c" 'w3-mail-document-author)
217 (define-key w3-lynx-emulation-minor-mode-map "d" 'w3-download-url)
218 (define-key w3-lynx-emulation-minor-mode-map "e" 'ignore) ; edit current
219 (define-key w3-lynx-emulation-minor-mode-map "f" 'dired)
220 (define-key w3-lynx-emulation-minor-mode-map "g" 'w3-fetch)
221 (define-key w3-lynx-emulation-minor-mode-map "h" 'w3-help)
222 (define-key w3-lynx-emulation-minor-mode-map "i" 'ignore)
223 (define-key w3-lynx-emulation-minor-mode-map "j" 'w3-use-hotlist)
224 (define-key w3-lynx-emulation-minor-mode-map "k" 'describe-mode)
225 (define-key w3-lynx-emulation-minor-mode-map "l" 'w3-complete-link)
226 (define-key w3-lynx-emulation-minor-mode-map "m" 'w3)
227 (define-key w3-lynx-emulation-minor-mode-map "n" 'w3-search-again)
228 (define-key w3-lynx-emulation-minor-mode-map "o" 'w3-preferences-edit)
229 (define-key w3-lynx-emulation-minor-mode-map "p" 'w3-print-this-url)
230 (define-key w3-lynx-emulation-minor-mode-map "q" 'w3-quit)
231 (define-key w3-lynx-emulation-minor-mode-map "r" 'w3-hotlist-delete)
232 (define-key w3-lynx-emulation-minor-mode-map "t" 'ignore) ; tag
233 (define-key w3-lynx-emulation-minor-mode-map "u" 'w3-history-backward)
234 (define-key w3-lynx-emulation-minor-mode-map "/" 'w3-search-forward)
235 (define-key w3-lynx-emulation-minor-mode-map "v" 'w3-show-hotlist)
236 (define-key w3-lynx-emulation-minor-mode-map "V" 'w3-show-hotlist)
237 (define-key w3-lynx-emulation-minor-mode-map "x" 'w3-follow-link)
238 (define-key w3-lynx-emulation-minor-mode-map "z" 'keyboard-quit)
239 (define-key w3-lynx-emulation-minor-mode-map "=" 'w3-document-information)
240 (define-key w3-lynx-emulation-minor-mode-map "\\" 'w3-source-document)
241 (define-key w3-lynx-emulation-minor-mode-map "!" 'shell)
242 (define-key w3-lynx-emulation-minor-mode-map "'" 'ignore) ; toggle comment
243 (define-key w3-lynx-emulation-minor-mode-map "`" 'ignore) ; toggle comment
244 (define-key w3-lynx-emulation-minor-mode-map "*" 'ignore) ; toggle image_links
245 (define-key w3-lynx-emulation-minor-mode-map "@" 'ignore) ; toggle raw 8-bit
246 (define-key w3-lynx-emulation-minor-mode-map "[" 'ignore) ; pseudo-inlines
247 (define-key w3-lynx-emulation-minor-mode-map "]" 'ignore) ; send head
248 (define-key w3-lynx-emulation-minor-mode-map "\"" 'ignore) ; toggle quoting
206 (define-key w3-lynx-emulation-minor-mode-map "\C-r" 'w3-reload-document) 249 (define-key w3-lynx-emulation-minor-mode-map "\C-r" 'w3-reload-document)
207 (define-key w3-lynx-emulation-minor-mode-map "\C-w" 'w3-refresh-buffer) 250 (define-key w3-lynx-emulation-minor-mode-map "\C-w" 'w3-refresh-buffer)
208 (define-key w3-lynx-emulation-minor-mode-map "\\" 'w3-source-document) 251 (define-key w3-lynx-emulation-minor-mode-map "\C-u" 'ignore) ; erase input
209 (define-key w3-lynx-emulation-minor-mode-map "!" 'shell) 252 (define-key w3-lynx-emulation-minor-mode-map "\C-g" 'keyboard-quit)
210 (define-key w3-lynx-emulation-minor-mode-map [up] 'w3-widget-backward) 253 (define-key w3-lynx-emulation-minor-mode-map "\C-t" 'ignore) ; toggle trace
211 (define-key w3-lynx-emulation-minor-mode-map [down] 'w3-widget-forward) 254 (define-key w3-lynx-emulation-minor-mode-map "\C-k" 'ignore) ; cookie jar
212 (define-key w3-lynx-emulation-minor-mode-map [right] 'w3-follow-link)
213 (define-key w3-lynx-emulation-minor-mode-map [left] 'w3-backward-in-history)
214 255
215 (provide 'w3-emulate) 256 (provide 'w3-emulate)
216 257
217 ;;; Local Variables: 258 ;;; Local Variables:
218 ;;; truncate-lines: t 259 ;;; truncate-lines: t