Mercurial > hg > xemacs-beta

comparison lisp/w3/docomp.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents ac2d302a0011
children 859a2309aef8
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
1 (setq load-path (append (list (expand-file-name "./") 1 (setq load-path (append (list (expand-file-name "./")
2 (or (getenv "URLDIR") 2 (or (getenv "WIDGETDIR")
3 (expand-file-name "../url"))) 3 (expand-file-name "../widget"))
4 )
4 load-path)) 5 load-path))
6
7 (setq max-specpdl-size (* 10 max-specpdl-size)
8 max-lisp-eval-depth (* 10 max-lisp-eval-depth))
5 9
6 (defun hack-dot-emacs () 10 (defun hack-dot-emacs ()
7 (interactive) 11 (interactive)
8 (let* ((args command-line-args-left) 12 (let* ((args command-line-args-left)
9 (fname (expand-file-name (nth 0 args))) 13 (fname (expand-file-name (nth 0 args)))
10 (lispdir (nth 1 args)) 14 (lispdir (nth 1 args)))
11 (urldir (nth 2 args)))
12 (setq command-line-args-left (cdr (cdr (cdr command-line-args-left)))) 15 (setq command-line-args-left (cdr (cdr (cdr command-line-args-left))))
13 (set-buffer (get-buffer-create " *x*")) 16 (set-buffer (get-buffer-create " *x*"))
14 (erase-buffer) 17 (erase-buffer)
15 (if (file-exists-p fname) 18 (if (file-exists-p fname)
16 (insert-file-contents fname)) 19 (insert-file-contents fname))
19 (message "No changes made.") 22 (message "No changes made.")
20 (goto-char (point-max)) 23 (goto-char (point-max))
21 (insert "\n;;; Emacs-w3 configuration options\n") 24 (insert "\n;;; Emacs-w3 configuration options\n")
22 (insert "(setq load-path (cons (expand-file-name \"" 25 (insert "(setq load-path (cons (expand-file-name \""
23 lispdir "\") load-path))\n") 26 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-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-follow-url-at-point \"w3\" \"Find document at pt\" t)\n")
28 (insert "(autoload 'w3 \"w3\" \"WWW Browser\" t)\n") 29 (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-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-fetch \"w3\" \"Open remote file for WWW browsing\" t)\n")
62 'has-modeline-p 'baud-rate) 63 'has-modeline-p 'baud-rate)
63 64
64 ;; For MULE 65 ;; For MULE
65 (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal* 66 (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
66 'w3-mime-list-for-code-conversion 'lc-ltn1 67 'w3-mime-list-for-code-conversion 'lc-ltn1
68 'mule-version 'enable-multibyte-characters
69 'charset-latin-iso8859-1
67 'file-coding-system-for-read 'file-coding-system) 70 'file-coding-system-for-read 'file-coding-system)
68 71
69 ;; For Mailcrypt 72 ;; For Mailcrypt
70 (w3-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile 73 (w3-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile
71 'mc-default-scheme 'mc-flag) 74 'mc-default-scheme 'mc-flag)
82 (w3-declare-variables 'x-library-search-path) 85 (w3-declare-variables 'x-library-search-path)
83 86
84 ;; For emacspeak 87 ;; For emacspeak
85 (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode) 88 (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode)
86 89
87 ;; For a few intern things 90 ;; For a few internal things
88 (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args 91 (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args
89 'w3-image-widgets-waiting 92 'w3-image-widgets-waiting 'w3-form-info
90 'w3-last-parse-tree 'command-line-args-left 93 'w3-last-parse-tree 'command-line-args-left
91 'standard-display-table 'w3-html-bookmarks 94 'standard-display-table 'w3-html-bookmarks
92 'widget-keymap) 95 'browse-url-browser-function 'widget-keymap)
96
97 ;; GNUS
98 (w3-declare-variables 'gnus-group-buffer 'gnus-version)
93 99
94 (load "bytecomp" t t nil) 100 (load "bytecomp" t t nil)
95 ;; Emacs 19 byte compiler complains about too much stuff by default. 101 ;; Emacs 19 byte compiler complains about too much stuff by default.
96 ;; Turn off most of the warnings here. 102 ;; Turn off most of the warnings here.
97 (setq byte-compile-warnings '(free-vars)) 103 (setq byte-compile-warnings '(free-vars))
100 (require 'url) 106 (require 'url)
101 (require 'mm) 107 (require 'mm)
102 (and w3-running-FSF19 108 (and w3-running-FSF19
103 (< emacs-minor-version 29) 109 (< emacs-minor-version 29)
104 (require 'font)) 110 (require 'font))
105 (load-library "w3-sysdp") 111 (require 'w3-sysdp)
106 (provide 'ange-ftp) 112 (provide 'ange-ftp)