Mercurial > hg > xemacs-beta

comparison lisp/w3/docomp.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
4 ) 4 )
5 load-path)) 5 load-path))
6 6
7 (setq max-specpdl-size (* 10 max-specpdl-size) 7 (setq max-specpdl-size (* 10 max-specpdl-size)
8 max-lisp-eval-depth (* 10 max-lisp-eval-depth)) 8 max-lisp-eval-depth (* 10 max-lisp-eval-depth))
9
10 (defun hack-dot-emacs ()
11 (interactive)
12 (let* ((args command-line-args-left)
13 (fname (expand-file-name (nth 0 args)))
14 (lispdir (nth 1 args)))
15 (setq command-line-args-left (cdr (cdr (cdr command-line-args-left))))
16 (set-buffer (get-buffer-create " *x*"))
17 (erase-buffer)
18 (if (file-exists-p fname)
19 (insert-file-contents fname))
20 (goto-char (point-min))
21 (if (search-forward ";;; Emacs-w3 configuration options" nil t)
22 (message "No changes made.")
23 (goto-char (point-max))
24 (insert "\n;;; Emacs-w3 configuration options\n")
25 (insert "(setq load-path (cons (expand-file-name \""
26 lispdir "\") load-path))\n")
27 (insert "(autoload 'w3-preview-this-buffer \"w3\" \"WWW Previewer\" t)\n")
28 (insert "(autoload 'w3-follow-url-at-point \"w3\" \"Find document at pt\" t)\n")
29 (insert "(autoload 'w3 \"w3\" \"WWW Browser\" t)\n")
30 (insert "(autoload 'w3-open-local \"w3\" \"Open local file for WWW browsing\" t)\n")
31 (insert "(autoload 'w3-fetch \"w3\" \"Open remote file for WWW browsing\" t)\n")
32 (insert "(autoload 'w3-use-hotlist \"w3\" \"Use shortcuts to view WWW docs\" t)\n")
33 (insert "(autoload 'w3-show-hotlist \"w3\" \"Use shortcuts to view WWW docs\" t)\n")
34 (insert "(autoload 'w3-follow-link \"w3\" \"Follow a hypertext link.\" t)\n")
35 (insert "(autoload 'w3-batch-fetch \"w3\" \"Batch retrieval of URLs\" t)\n")
36 (insert "(autoload 'url-get-url-at-point \"url\" \"Find the url under the cursor\" nil)\n")
37 (insert "(autoload 'url-file-attributes \"url\" \"File attributes of a URL\" nil)\n")
38 (insert "(autoload 'url-popup-info \"url\" \"Get info on a URL\" t)\n")
39 (insert "(autoload 'url-retrieve \"url\" \"Retrieve a URL\" nil)\n")
40 (insert "(autoload 'url-buffer-visiting \"url\" \"Find buffer visiting a URL.\" nil)\n")
41 (insert "(autoload 'gopher-dispatch-object \"gopher\" \"Fetch gopher dir\" t)\n")
42 (insert ";;; End of Emacs-w3 configuration options\n")
43 (write-file fname))))
44 9
45 (defun w3-declare-variables (&rest args) 10 (defun w3-declare-variables (&rest args)
46 (while args 11 (while args
47 (eval (list 'defvar (car args) nil "")) 12 (eval (list 'defvar (car args) nil ""))
48 (setq args (cdr args)))) 13 (setq args (cdr args))))
67 'w3-mime-list-for-code-conversion 'lc-ltn1 32 'w3-mime-list-for-code-conversion 'lc-ltn1
68 'mule-version 'enable-multibyte-characters 33 'mule-version 'enable-multibyte-characters
69 'charset-latin-iso8859-1 34 'charset-latin-iso8859-1
70 'file-coding-system-for-read 'file-coding-system) 35 'file-coding-system-for-read 'file-coding-system)
71 36
37 ;; For TM
38 (w3-declare-variables 'mime/editor-mode-flag 'mime-tag-format)
39
72 ;; For NNTP 40 ;; For NNTP
73 (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection 41 (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection
74 'gnus-nntp-server 'nntp-server-name 'nntp-version 42 'gnus-nntp-server 'nntp-server-name 'nntp-version
75 'gnus-default-nntp-server) 43 'gnus-default-nntp-server)
76 44