Mercurial > hg > xemacs-beta

comparison lisp/w3/docomp.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 1ce6082ce73f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 (setq load-path (append (list (expand-file-name "./") 1 (setq load-path (append (list (expand-file-name "./")
2 (or (getenv "WIDGETDIR") 2 (or (getenv "URLDIR")
3 (expand-file-name "../widget")) 3 (expand-file-name "../url")))
4 )
5 load-path)) 4 load-path))
6 5
7 (setq max-specpdl-size (* 10 max-specpdl-size) 6 (defun hack-dot-emacs ()
8 max-lisp-eval-depth (* 10 max-lisp-eval-depth)) 7 (interactive)
8 (let* ((args command-line-args-left)
9 (fname (expand-file-name (nth 0 args)))
10 (lispdir (nth 1 args))
11 (urldir (nth 2 args)))
12 (setq command-line-args-left (cdr (cdr (cdr command-line-args-left))))
13 (set-buffer (get-buffer-create " *x*"))
14 (erase-buffer)
15 (if (file-exists-p fname)
16 (insert-file-contents fname))
17 (goto-char (point-min))
18 (if (search-forward ";;; Emacs-w3 configuration options" nil t)
19 (message "No changes made.")
20 (goto-char (point-max))
21 (insert "\n;;; Emacs-w3 configuration options\n")
22 (insert "(setq load-path (cons (expand-file-name \""
23 lispdir "\") load-path))\n")
24 (insert "(setq load-path (cons (expand-file-name \""
25 urldir "\") load-path))\n")
26 (insert "(autoload 'w3-preview-this-buffer \"w3\" \"WWW Previewer\" t)\n")
27 (insert "(autoload 'w3-follow-url-at-point \"w3\" \"Find document at pt\" t)\n")
28 (insert "(autoload 'w3 \"w3\" \"WWW Browser\" t)\n")
29 (insert "(autoload 'w3-open-local \"w3\" \"Open local file for WWW browsing\" t)\n")
30 (insert "(autoload 'w3-fetch \"w3\" \"Open remote file for WWW browsing\" t)\n")
31 (insert "(autoload 'w3-use-hotlist \"w3\" \"Use shortcuts to view WWW docs\" t)\n")
32 (insert "(autoload 'w3-show-hotlist \"w3\" \"Use shortcuts to view WWW docs\" t)\n")
33 (insert "(autoload 'w3-follow-link \"w3\" \"Follow a hypertext link.\" t)\n")
34 (insert "(autoload 'w3-batch-fetch \"w3\" \"Batch retrieval of URLs\" t)\n")
35 (insert "(autoload 'url-get-url-at-point \"url\" \"Find the url under the cursor\" nil)\n")
36 (insert "(autoload 'url-file-attributes \"url\" \"File attributes of a URL\" nil)\n")
37 (insert "(autoload 'url-popup-info \"url\" \"Get info on a URL\" t)\n")
38 (insert "(autoload 'url-retrieve \"url\" \"Retrieve a URL\" nil)\n")
39 (insert "(autoload 'url-buffer-visiting \"url\" \"Find buffer visiting a URL.\" nil)\n")
40 (insert "(autoload 'gopher-dispatch-object \"gopher\" \"Fetch gopher dir\" t)\n")
41 (insert ";;; End of Emacs-w3 configuration options\n")
42 (write-file fname))))
9 43
10 (defun w3-declare-variables (&rest args) 44 (defun w3-declare-variables (&rest args)
11 (while args 45 (while args
12 (eval (list 'defvar (car args) nil "")) 46 (eval (list 'defvar (car args) nil ""))
13 (setq args (cdr args)))) 47 (setq args (cdr args))))
28 'has-modeline-p 'baud-rate) 62 'has-modeline-p 'baud-rate)
29 63
30 ;; For MULE 64 ;; For MULE
31 (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal* 65 (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
32 'w3-mime-list-for-code-conversion 'lc-ltn1 66 'w3-mime-list-for-code-conversion 'lc-ltn1
33 'mule-version 'enable-multibyte-characters
34 'charset-latin-iso8859-1
35 'file-coding-system-for-read 'file-coding-system) 67 'file-coding-system-for-read 'file-coding-system)
36 68
37 ;; For TM 69 ;; For Mailcrypt
38 (w3-declare-variables 'mime/editor-mode-flag 'mime-tag-format) 70 (w3-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile
39 71 'mc-default-scheme 'mc-flag)
72
40 ;; For NNTP 73 ;; For NNTP
41 (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection 74 (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection
42 'gnus-nntp-server 'nntp-server-name 'nntp-version 75 'gnus-nntp-server 'nntp-server-name 'nntp-version
43 'gnus-default-nntp-server) 76 'gnus-default-nntp-server)
77
78 ;; For ps-print
79 (w3-declare-variables 'ps-bold-faces 'ps-italic-faces 'ps-print-version)
44 80
45 ;; For xpm-button 81 ;; For xpm-button
46 (w3-declare-variables 'x-library-search-path) 82 (w3-declare-variables 'x-library-search-path)
47 83
48 ;; For emacspeak 84 ;; For emacspeak
49 (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode) 85 (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode)
50 86
51 ;; For a few internal things 87 ;; For a few intern things
52 (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args 88 (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args
53 'w3-image-widgets-waiting 'w3-form-info 89 'w3-image-widgets-waiting
54 'w3-last-parse-tree 'command-line-args-left 90 'w3-last-parse-tree 'command-line-args-left
55 'standard-display-table 'w3-html-bookmarks 91 'standard-display-table 'w3-html-bookmarks
56 'browse-url-browser-function 'widget-keymap) 92 'widget-keymap)
57
58 ;; GNUS
59 (w3-declare-variables 'gnus-group-buffer 'gnus-version)
60 93
61 (load "bytecomp" t t nil) 94 (load "bytecomp" t t nil)
62 ;; Emacs 19 byte compiler complains about too much stuff by default. 95 ;; Emacs 19 byte compiler complains about too much stuff by default.
63 ;; Turn off most of the warnings here. 96 ;; Turn off most of the warnings here.
64 (setq byte-compile-warnings '(free-vars)) 97 (setq byte-compile-warnings '(free-vars))
67 (require 'url) 100 (require 'url)
68 (require 'mm) 101 (require 'mm)
69 (and w3-running-FSF19 102 (and w3-running-FSF19
70 (< emacs-minor-version 29) 103 (< emacs-minor-version 29)
71 (require 'font)) 104 (require 'font))
72 105 (load-library "w3-sysdp")
73 (require 'w3-sysdp)
74 (provide 'ange-ftp) 106 (provide 'ange-ftp)