Mercurial > hg > xemacs-beta

comparison lisp/w3/docomp.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children cca96a509cfe
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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