Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-emulate.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents fe104dbd9147
children 15872534500d
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
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/03/14 06:12:02 3 ;; Created: 1997/04/04 14:24:19
4 ;; Version: 1.12 4 ;; Version: 1.13
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.
201 (define-key w3-lynx-emulation-minor-mode-map "\C-u" 'ignore) ; erase input 201 (define-key w3-lynx-emulation-minor-mode-map "\C-u" 'ignore) ; erase input
202 (define-key w3-lynx-emulation-minor-mode-map "\C-g" 'keyboard-quit) 202 (define-key w3-lynx-emulation-minor-mode-map "\C-g" 'keyboard-quit)
203 (define-key w3-lynx-emulation-minor-mode-map "\C-t" 'ignore) ; toggle trace 203 (define-key w3-lynx-emulation-minor-mode-map "\C-t" 'ignore) ; toggle trace
204 (define-key w3-lynx-emulation-minor-mode-map "\C-k" 'ignore) ; cookie jar 204 (define-key w3-lynx-emulation-minor-mode-map "\C-k" 'ignore) ; cookie jar
205 205
206 ;; Things to masquerade as other browsers in the user-agent field
207 ;; of an HTTP request.
208 (defun w3-masquerade-stub (arg app version)
209 (if (null arg)
210 (setq arg (if (equal url-package-name "Emacs-W3") 1 0)))
211 (if (= 0 arg)
212 (setq url-package-name "Emacs-W3"
213 url-package-version w3-version-number)
214 (setq url-package-name app
215 url-package-version version)))
216
217 (defun w3-lynx-masquerade-mode (&optional arg)
218 (interactive "P")
219 (w3-masquerade-stub arg "Lynx" "2.6"))
220
221 (defun turn-on-lynx-masquerade-mode ()
222 (interactive)
223 (w3-lynx-masquerade-mode 1))
224
225 (defun turn-off-lynx-masquerade-mode ()
226 (interactive)
227 (w3-lynx-masquerade-mode 0))
228
229 (defun w3-netscape-masquerade-mode (&optional arg)
230 (interactive "P")
231 (w3-masquerade-stub arg "Mozilla" "4.0"))
232
233 (defun turn-on-netscape-masquerade-mode ()
234 (interactive)
235 (w3-netscape-masquerade-mode 1))
236
237 (defun turn-off-netscape-masquerade-mode ()
238 (interactive)
239 (w3-netscape-masquerade-mode 0))
240
241 (defun w3-ie-masquerade-mode (&optional arg)
242 (interactive "P")
243 (w3-masquerade-stub arg "Internet_Explorer" "3.02"))
244
245 (defun turn-on-ie-masquerade-mode ()
246 (interactive)
247 (w3-ie-masquerade-mode 1))
248
249 (defun turn-off-ie-masquerade-mode ()
250 (interactive)
251 (w3-ie-masquerade-mode 0))
252
253 (defun w3-arena-masquerade-mode (&optional arg)
254 (interactive "P")
255 (w3-masquerade-stub arg "Arena" "0.9"))
256
257 (defun turn-on-arena-masquerade-mode ()
258 (interactive)
259 (w3-arena-masquerade-mode 1))
260
261 (defun turn-off-arena-masquerade-mode ()
262 (interactive)
263 (w3-arena-masquerade-mode 0))
264
265 ;;
206 (provide 'w3-emulate) 266 (provide 'w3-emulate)
207 267
208 ;;; Local Variables: 268 ;;; Local Variables:
209 ;;; truncate-lines: t 269 ;;; truncate-lines: t
210 ;;; End: 270 ;;; End: