[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] defcustom ':size'
- From: Boruch Baum <boruch_baum@xxxxxxx>
- Date: Sun, 25 Jun 2017 10:28:12 -0400
- X-ml-name: emacs-w3m
- X-mail-count: 12710
- References: <87k2438u6e.fsf@t43.lan.> <b4mbmpf5xhn.fsf@jpl.org>
On 2017-06-23 10:00, Katsumi Yamaoka wrote:
> In [emacs-w3m : No.12708]
> On Thu, 22 Jun 2017 16:43:53 -0700, Vladimir Sedach wrote:
> > Attached is a patch that adds a new variable,
> > w3m-external-view-temp-directory, that can be used to specify where
> > w3m-external-view puts temporary files.
>
> Applied. Thanks.
>
> > +(defcustom w3m-external-view-temp-directory
> > + w3m-profile-directory
> > + "*Directory where files are saved for the external file viewer."
> > + :group 'w3m
> > + :type '(directory :size 0))
>
> I removed "*" and the `:size 0' portion. Though I don't recall
> clearly why I added `:size 0' to defcustoms in the past, it
> might have been useful for old Emacsen (or XEmacs?; I used to be
> an XEmacs user). However, I find no particular advantage with
> it now. If anything, this makes a user be hard to find the
> place of the input form if the value is an empty string. So,
> I'd like to remove all such ones some day.
I couldn't find any documentation for the ":size" option, so here's a
patch to remove all ocurrences of it, if that's okay. The work was
done using 'sed -i 's/[ \t]\+:size [0-9]\+//' *.el'. As for updating
the Changelog, 'grep ":size" *.el |wc -l' indicated to me 152
instances in many files, so I took a lazy route which I hope is
acceptable in this unusual case.
--
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0
diff -u ../001/mime-w3m.el ./mime-w3m.el
--- ../001/mime-w3m.el 2017-06-25 09:02:02.452009666 -0400
+++ ./mime-w3m.el 2017-06-25 10:14:33.363490251 -0400
@@ -78,7 +78,7 @@
variable `w3m-safe-url-regexp' will be bound with this value. You may
set this value to nil if you consider all the urls to be safe."
:group 'mime-w3m
- :type '(choice (regexp :format "%t: %v\n" :size 0)
+ :type '(choice (regexp :format "%t: %v\n")
(const :tag "All URLs are safe" nil)))
(defcustom mime-w3m-after-cursor-move-hook
diff -u ../001/w3m-antenna.el ./w3m-antenna.el
--- ../001/w3m-antenna.el 2017-06-25 09:02:02.452009666 -0400
+++ ./w3m-antenna.el 2017-06-25 10:14:33.391490466 -0400
@@ -126,7 +126,7 @@
(expand-file-name ".antenna" w3m-profile-directory)
"File which has list of antenna URLs."
:group 'w3m-antenna
- :type '(file :size 0))
+ :type '(file))
(defcustom w3m-antenna-refresh-interval nil
"Interval time to update (to refresh) the antenna page automatically.
@@ -149,9 +149,9 @@
:type `(repeat
(group
:indent 7
- (w3m-antenna-string :format "URL: %v\n" :size 0
+ (w3m-antenna-string :format "URL: %v\n"
:value-from w3m-antenna-tmp-url)
- (w3m-antenna-string :format "Title: %v\n" :size 0
+ (w3m-antenna-string :format "Title: %v\n"
:value-from w3m-antenna-tmp-title)
(choice
:tag "Procedure"
@@ -200,7 +200,7 @@
(function-item :tag "Simple style." w3m-antenna-make-summary)
(function-item :tag "Natsumican style."
w3m-antenna-make-summary-like-natsumican)
- (function :format "User function: %v\n" :size 0)))
+ (function :format "User function: %v\n")))
(defcustom w3m-antenna-sort-changed-sites-function
'w3m-antenna-sort-sites-by-time
@@ -212,7 +212,7 @@
w3m-antenna-sort-sites-by-time)
(function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title)
(function-item :tag "Do nothing." identity)
- (function :format "User function: %v\n" :size 0)))
+ (function :format "User function: %v\n")))
(defcustom w3m-antenna-sort-unchanged-sites-function
'w3m-antenna-sort-sites-by-time
@@ -224,7 +224,7 @@
w3m-antenna-sort-sites-by-time)
(function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title)
(function-item :tag "Do nothing." identity)
- (function :format "User function: %v\n" :size 0)))
+ (function :format "User function: %v\n")))
(defun w3m-antenna-alist ()
(let ((alist (w3m-load-list w3m-antenna-file)))
diff -u ../001/w3m-bookmark.el ./w3m-bookmark.el
--- ../001/w3m-bookmark.el 2017-06-25 09:02:02.452009666 -0400
+++ ./w3m-bookmark.el 2017-06-25 10:14:33.399490528 -0400
@@ -43,7 +43,7 @@
(expand-file-name "bookmark.html" w3m-profile-directory)
"Bookmark file of w3m."
:group 'w3m
- :type '(file :size 0))
+ :type '(file))
(defcustom w3m-bookmark-file-coding-system 'euc-japan
"Coding system for a created bookmark file.
@@ -53,14 +53,14 @@
from the value of this option, emacs-w3m does not change the encoding
of your bookmark file."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-bookmark-default-section
nil
"Default section to add new entry."
:group 'w3m
:type '(radio (const :tag "Not specified" nil)
- (string :format "Default section name: %v\n" :size 0)))
+ (string :format "Default section name: %v\n")))
(defcustom w3m-bookmark-mode-hook nil
"*Hook run at the end of function `w3m-bookmark-mode'."
diff -u ../001/w3m-cookie.el ./w3m-cookie.el
--- ../001/w3m-cookie.el 2017-06-25 09:02:02.452009666 -0400
+++ ./w3m-cookie.el 2017-06-25 10:14:33.415490651 -0400
@@ -59,12 +59,12 @@
(defcustom w3m-cookie-accept-domains nil
"A list of trusted domain name string."
:group 'w3m
- :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+ :type '(repeat (string :format "Domain name: %v\n")))
(defcustom w3m-cookie-reject-domains nil
"A list of untrusted domain name string."
:group 'w3m
- :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+ :type '(repeat (string :format "Domain name: %v\n")))
(defcustom w3m-cookie-accept-bad-cookies nil
"If nil, don't accept bad cookies.
@@ -85,7 +85,7 @@
(expand-file-name ".cookie" w3m-profile-directory)
"File in which cookies are kept."
:group 'w3m
- :type '(file :size 0))
+ :type '(file))
;;; Cookie accessor.
(defmacro w3m-cookie-url (cookie)
diff -u ../001/w3m-dtree.el ./w3m-dtree.el
--- ../001/w3m-dtree.el 2017-06-25 09:02:02.456010795 -0400
+++ ./w3m-dtree.el 2017-06-25 10:14:33.419490681 -0400
@@ -44,7 +44,7 @@
:group 'w3m
:type '(choice
(const :tag "No limit" nil)
- (integer :format "%t: %v\n" :size 0 :tag "depth" 10)))
+ (integer :format "%t: %v\n" :tag "depth" 10)))
(defcustom w3m-dtree-indent-strings ["|-" "+-" "| " " "]
"*Vector of strings to be used for indentation with w3m-dtree.
@@ -74,16 +74,16 @@
["|-" "+-" "| " " "])))
`(:format "Others:\n%v" :indent 4
(string :format "%{|-%} %v\n"
- :sample-face widget-field-face :size 0
+ :sample-face widget-field-face
:value ,(aref defaults 0))
(string :format "%{+-%} %v\n"
- :sample-face widget-field-face :size 0
+ :sample-face widget-field-face
:value ,(aref defaults 1))
(string :format "%{| %} %v\n"
- :sample-face widget-field-face :size 0
+ :sample-face widget-field-face
:value ,(aref defaults 2))
(string :format "%{ %} %v"
- :sample-face widget-field-face :size 0
+ :sample-face widget-field-face
:value ,(aref defaults 3)))))))
(defcustom w3m-dtree-stop-strings ["|=" "+="]
@@ -104,10 +104,10 @@
["|=" "+="])))
`(:format "Others:\n%v" :indent 4
(string :format "|= %{|=%} %v\n"
- :sample-face bold :size 0
+ :sample-face bold
:value ,(aref defaults 0))
(string :format "+= %{+=%} %v\n"
- :sample-face bold :size 0
+ :sample-face bold
:value ,(aref defaults 1)))))))
(defun w3m-dtree-expand-file-name (path)
diff -u ../001/w3m.el ./w3m.el
--- ../001/w3m.el 2017-06-25 09:02:02.456010795 -0400
+++ ./w3m.el 2017-06-25 10:14:33.595492036 -0400
@@ -245,7 +245,7 @@
all the emacs-w3m programs safely after loading the w3m.elc module."
:group 'w3m
:type '(radio (const :format "Not specified " nil)
- (string :format "Command: %v\n" :size 0)))
+ (string :format "Command: %v\n")))
(defcustom w3m-display-ins-del 'auto
"*Value of `display_ins_del' option."
@@ -308,7 +308,7 @@
" " w3m-version)
"String used for the User-Agent field. See also `w3m-add-user-agent'."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-add-user-agent t
"Non-nil means add the User-Agent field to the request header.
@@ -340,7 +340,7 @@
"*List of the default arguments passed to the w3m command.
See also `w3m-command-arguments-alist'."
:group 'w3m
- :type '(repeat (string :format "Argument: %v\n" :size 0)))
+ :type '(repeat (string :format "Argument: %v\n")))
(defcustom w3m-command-arguments-alist nil
"*Alist of regexps matching urls and additional arguments passed to w3m.
@@ -363,16 +363,16 @@
`w3m-no-proxy-domains' variable instead."
:group 'w3m
:type '(repeat (cons :format "%v" :indent 4
- (regexp :format "%t: %v\n" :size 0)
+ (regexp :format "%t: %v\n")
(repeat :tag "Arguments passed to w3m command"
- (string :format "Arg: %v\n" :size 0)))))
+ (string :format "Arg: %v\n")))))
(defcustom w3m-no-proxy-domains nil
"*List of domain names with which emacs-w3m will not use a proxy server.
Each element should be exactly a domain name which means the latter
common part of the host names, not a regexp."
:group 'w3m
- :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+ :type '(repeat (string :format "Domain name: %v\n")))
(defcustom w3m-command-environment
(delq nil
@@ -386,8 +386,8 @@
:group 'w3m
:type '(repeat
(cons :format "%v" :indent 4
- (string :format "Name: %v\n" :size 0)
- (string :format " Value: %v\n" :size 0))))
+ (string :format "Name: %v\n")
+ (string :format " Value: %v\n"))))
(defcustom w3m-fill-column -1
"*Integer used as the value for `fill-column' in emacs-w3m buffers.
@@ -396,7 +396,7 @@
subtracted that number from the window width is applied to the maximum
width of pages. Note that XEmacs does not always obey this setting."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-mailto-url-function nil
"*Function used to handle the `mailto' urls.
@@ -405,7 +405,7 @@
composing mail messages."
:group 'w3m
:type '(radio (const :tag "Not specified" nil)
- (function :format "%t: %v\n" :size 0)))
+ (function :format "%t: %v\n")))
(defcustom w3m-mailto-url-popup-function-alist
'((cmail-mail-mode . pop-to-buffer)
@@ -424,8 +424,8 @@
a buffer up."
:group 'w3m
:type '(repeat (cons :format "%v" :indent 11
- (symbol :format "Major-mode: %v\n" :size 0)
- (function :format "%t: %v\n" :size 0))))
+ (symbol :format "Major-mode: %v\n")
+ (function :format "%t: %v\n"))))
(defcustom w3m-use-mule-ucs
(and (eq w3m-type 'w3m) (featurep 'un-define))
@@ -461,7 +461,7 @@
It is useful for moving about in a Gnus article buffer using TAB key.
It can also be any Lisp form that should return a boolean value."
:group 'w3m
- :type '(sexp :size 0))
+ :type '(sexp))
(defcustom w3m-treat-image-size t
"*Non-nil means let w3m mind the ratio of the size of images and text.
@@ -496,7 +496,7 @@
to set this variable properly."
:group 'w3m
:type '(radio (const :tag "Auto Detect" nil)
- (integer :format "Specify Pixels: %v\n" :size 0)))
+ (integer :format "Specify Pixels: %v\n")))
(defcustom w3m-image-default-background nil
"Color name used as transparent color of image.
@@ -504,7 +504,7 @@
this value is effective only to xbm and monochrome pbm images in Emacs
22 and greater."
:group 'w3m
- :type '(radio (string :format "Color: %v\n" :size 0
+ :type '(radio (string :format "Color: %v\n"
:match (lambda (widget value)
(and (stringp value) (> (length value) 0))))
(const :tag "Use the background color of the Emacs frame" nil)
@@ -546,7 +546,7 @@
'iso-8859-1)
"*Default coding system used to communicate with the w3m command."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-terminal-coding-system
(if w3m-accept-japanese-characters
@@ -557,7 +557,7 @@
w3m command which accepts data from Emacs just like reads from the
terminal.)"
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-output-coding-system
(cond
@@ -574,7 +574,7 @@
(t 'w3m-iso-latin-1))
"*Coding system used when reading from w3m processes."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-input-coding-system
(if (memq w3m-type '(w3mmee w3m-m17n))
@@ -595,7 +595,7 @@
Otherwise, the value of the `w3m-current-coding-system' variable is
used instead."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-file-coding-system (if (featurep 'mule)
'iso-2022-7bit
@@ -603,7 +603,7 @@
"*Coding system used when writing configuration files.
This value will be referred to by the `w3m-save-list' function."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defvar w3m-file-coding-system-for-read nil
"*Coding system used when reading configuration files.
@@ -616,19 +616,19 @@
'shift_jis 'euc-japan)
"*Coding system used to convert pathnames when emacs-w3m accesses files."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-default-coding-system
(if (equal "Japanese" w3m-language) 'shift_jis 'iso-8859-1)
"*Default coding system used to encode url strings and post-data."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-coding-system-priority-list
(if (equal "Japanese" w3m-language) '(shift_jis))
"*Coding systems in order of priority used for emacs-w3m sessions."
:group 'w3m
- :type '(repeat (coding-system :format "%t: %v\n" :size 0)))
+ :type '(repeat (coding-system :format "%t: %v\n")))
(defcustom w3m-url-coding-system-alist
'(("\\`https?://\\(?:[^./?#]+\\.\\)+google\\(?:\\.[^./?#]+\\)+/"
@@ -717,7 +717,7 @@
(file-name-nondirectory w3m-command)))
"*Directory where emacs-w3m config files are loaded from or saved to."
:group 'w3m
- :type '(directory :size 0))
+ :type '(directory))
(defcustom w3m-init-file "~/.emacs-w3m"
"*Your emacs-w3m startup file name.
@@ -735,7 +735,7 @@
(file-name-nondirectory w3m-command)))
"*Default directory where downloaded files will be saved to."
:group 'w3m
- :type '(directory :size 0))
+ :type '(directory))
(defcustom w3m-external-view-temp-directory w3m-profile-directory
"Directory where files are saved for the external file viewer."
@@ -754,13 +754,13 @@
visits a remote file using ftp, the directory in which the file exists
is used as the current directory instead."
:group 'w3m
- :type '(radio (directory :format "%{%t%}: %v\n" :size 0 :value "~/")
+ :type '(radio (directory :format "%{%t%}: %v\n" :value "~/")
(symbol :format "%{%t%}: %v\n"
:match (lambda (widget value) value)
- :size 0
+
:value default-directory)
(function :format "%{%t%}: %v\n"
- :size 0)
+ )
(const nil)))
(defcustom w3m-accept-languages
@@ -778,7 +778,7 @@
The default value is set according to the accept_language entry of the
w3m configuration file (normally \"~/.w3m/config\")."
:group 'w3m
- :type '(repeat (string :format "Lang: %v\n" :size 0)))
+ :type '(repeat (string :format "Lang: %v\n")))
(defcustom w3m-delete-duplicated-empty-lines t
"*Non-nil means display two or more continuous empty lines into single."
@@ -856,7 +856,7 @@
"*Directory where emacs-w3m should find icon files."
:group 'w3m
:type '(radio (const :tag "Not specified")
- (directory :format "%t: %v\n" :size 0)))
+ (directory :format "%t: %v\n")))
(defcustom w3m-broken-proxy-cache nil
"*Set it to t if the proxy server seems not to work properly in caching.
@@ -894,18 +894,18 @@
(getenv "WWW_HOME"))))
(const :tag "About emacs-w3m" "about:")
(const :tag "Blank page" "about:blank")
- (string :format "URL: %v\n" :size 0))))
+ (string :format "URL: %v\n"))))
(defcustom w3m-arrived-file
(expand-file-name ".arrived" w3m-profile-directory)
"*Name of the file to keep the arrived URLs database."
:group 'w3m
- :type '(file :size 0))
+ :type '(file))
(defcustom w3m-keep-arrived-urls 500
"*Maximum number of URLs which the arrived URLs database keeps."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-prefer-cache nil
"*Non-nil means that cached contents are used without checking headers."
@@ -915,7 +915,7 @@
(defcustom w3m-keep-cache-size 300
"*Maximum number of pages to be cached in emacs-w3m."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-follow-redirection 9
"*Maximum number of redirections which emacs-w3m honors and follows.
@@ -924,7 +924,7 @@
to non-nil) since cookies may be shared among many redirected pages."
:group 'w3m
:type '(radio (const :format "Ignore redirections " nil)
- (integer :size 0)))
+ (integer)))
(defcustom w3m-redirect-with-get t
"*If non-nil, use the GET method after redirection.
@@ -942,7 +942,7 @@
(defcustom w3m-resize-image-scale 50
"*Number of steps in percent used when resizing images."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defface w3m-anchor
'((((class color) (background light)) (:foreground "blue"))
@@ -1144,7 +1144,7 @@
(defcustom w3m-default-content-type "text/html"
"*Default value assumed as the content type of local files."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-image-viewer
(or (w3m-which-command "display")
@@ -1265,27 +1265,27 @@
:type '(repeat
(group
:indent 2
- (string :format "Type: %v\n" :size 0)
+ (string :format "Type: %v\n")
(radio :format "%{Regexp%}: %v" :extra-offset 8
:sample-face underline
(const :tag "Not specified" nil)
- (regexp :format "String: %v\n" :size 0))
+ (regexp :format "String: %v\n"))
(radio :format "%{Viewer%}: %v" :extra-offset 8
:sample-face underline
(const :tag "Not specified" nil)
(cons :tag "External viewer" :extra-offset 2
- (string :format "Command: %v\n" :size 0)
+ (string :format "Command: %v\n")
(repeat :format "Arguments:\n%v%i\n" :extra-offset 2
(restricted-sexp
:format "%v\n"
:match-alternatives (stringp 'file 'url)
- :size 0)))
- (function :format "%t: %v\n" :size 0))
+ )))
+ (function :format "%t: %v\n"))
(radio :format "%{Filter%}: %v" :extra-offset 8
:sample-face underline
(const :tag "Not specified" nil)
- (string :format "Equivalent type: %v\n" :size 0)
- (function :format "Function: %v\n" :size 0)))))
+ (string :format "Equivalent type: %v\n")
+ (function :format "Function: %v\n")))))
;; FIXME: we need to rearrange the complicated and redundant relation of
;; `w3m-encoding-type-alist', `w3m-decoder-alist', and `w3m-encoding-alist'.
@@ -1296,8 +1296,8 @@
:group 'w3m
:type '(repeat
(cons :format "%v" :indent 14
- (string :format "Regexp of Suffixes: %v\n" :size 0)
- (string :format "Encoding Type: %v\n" :size 0))))
+ (string :format "Regexp of Suffixes: %v\n")
+ (string :format "Encoding Type: %v\n"))))
(defcustom w3m-decoder-alist
`((gzip "gzip" ("-d")) ;; Don't use "gunzip" and "bunzip2"
@@ -1321,9 +1321,9 @@
(const :format "%v " gzip)
(const :format "%v " bzip)
(const deflate))
- (string :format "Command: %v\n" :size 0)
+ (string :format "Command: %v\n")
(repeat :tag "Arguments" :extra-offset 2
- (string :format "%v\n" :size 0)))))
+ (string :format "%v\n")))))
(defcustom w3m-charset-coding-system-alist
(let ((rest
@@ -1366,8 +1366,8 @@
Both charsets and coding systems must be symbols."
:group 'w3m
:type '(repeat (cons :format "%v" :indent 2
- (symbol :format "%t: %v\n" :size 0)
- (coding-system :format "%t: %v\n" :size 0))))
+ (symbol :format "%t: %v\n")
+ (coding-system :format "%t: %v\n"))))
(defcustom w3m-correct-charset-alist
'(("windows-874" . "tis-620")
@@ -1390,19 +1390,19 @@
"Alist of MIME charsets; strange ones and standard ones."
:group 'w3m
:type '(repeat (cons :format "%v" :indent 11
- (string :format "From: %v\n" :size 0)
- (string :format "To: %v\n" :size 0))))
+ (string :format "From: %v\n")
+ (string :format "To: %v\n"))))
(defcustom w3m-horizontal-scroll-columns 10
"*Number of steps in columns used when scrolling a window horizontally."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-horizontal-shift-columns 2
"*Number of steps in columns used when shifting a window horizontally.
The term `shifting' means a fine level scrolling."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-view-recenter 1
"Recenter window contents when going to an anchor.
@@ -1415,7 +1415,7 @@
:group 'w3m
;; radio items in the same order as in the docstring, and `integer' first
;; because it's the default
- :type '(radio (integer :format "%{%t%}: %v\n" :value 1 :size 1)
+ :type '(radio (integer :format "%{%t%}: %v\n" :value 1)
(const :format "%t\n" t)
(const :format "%t\n" nil)))
@@ -1473,7 +1473,7 @@
(const :tag "Edit it in another window" find-file-other-window)
(const :tag "Edit it in another frame" find-file-other-frame)
(const :tag "View it in another window" view-file-other-window)
- (function :format "Other function: %v\n" :size 0
+ (function :format "Other function: %v\n"
:value view-file)))
(defcustom w3m-edit-function-alist
@@ -1485,7 +1485,7 @@
from this alist, `w3m-edit-function' is used."
:group 'w3m
:type '(repeat (cons :format "%v" :indent 3
- (regexp :format "URL: %v\n" :size 0)
+ (regexp :format "URL: %v\n")
(function))))
(defcustom w3m-url-local-directory-alist
@@ -1502,8 +1502,8 @@
car and the cdr in each element if it is available."
:type '(repeat
(cons :format "%v" :indent 3
- (string :format "URL: %v\n" :size 0)
- (directory :format "%t: %v\n" :size 0)))
+ (string :format "URL: %v\n")
+ (directory :format "%t: %v\n")))
:group 'w3m)
(defcustom w3m-track-mouse t
@@ -1597,7 +1597,7 @@
(const :tag "Bookmark" "about://bookmark/")
(const :tag ,(format "Home page (%s)" w3m-home-page)
,w3m-home-page)
- (string :format "URL: %v\n" :size 0
+ (string :format "URL: %v\n"
:value "http://emacs-w3m.namazu.org";))))
(defcustom w3m-make-new-session nil
@@ -1687,14 +1687,14 @@
(repeat :inline t :tag "Frame Parameters (Emacs)"
(cons :format "%v" :indent 3
(symbol :format "Parameter: %v\n"
- :size 0)
- (sexp :format "%t: %v\n" :size 0))))
+ )
+ (sexp :format "%t: %v\n"))))
(group :inline t :tag "Frame Plist (XEmacs)"
(repeat :inline t :tag "Frame Plist (XEmacs)"
(group :indent 2 :inline t
(symbol :format "Property: %v\n"
- :size 0)
- (sexp :format "%t: %v\n" :size 0))))))
+ )
+ (sexp :format "%t: %v\n"))))))
(defcustom w3m-auto-show t
"*Non-nil means provide the ability to horizontally scroll the window.
@@ -1725,7 +1725,7 @@
This feature doesn't work if `w3m-auto-show' is nil. The value must
be a larger integer than 1."
:group 'w3m
- :type '(integer :size 0)
+ :type '(integer)
:set (lambda (symbol value)
(custom-set-default symbol (if (and (integerp value) (> value 1))
value
@@ -1760,7 +1760,7 @@
The \"libmoe\" package is used when you use the w3mmee command instead
of the w3m command. See also `w3m-command'."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-markdown-converter
(cond
@@ -1771,8 +1771,8 @@
"*List of COMMAND which convert markdown formed files into HTML
format and its ARGUMENTS."
:group 'w3m
- :type '(cons (string :format "Command: %v\n" :size 0)
- (repeat (string :format "Arguments:\n%v\n" :size 0))))
+ :type '(cons (string :format "Command: %v\n")
+ (repeat (string :format "Arguments:\n%v\n"))))
(defcustom w3m-local-find-file-regexps
(cons nil
@@ -1820,10 +1820,10 @@
:group 'w3m
:type '(cons (radio :tag "Match"
(const :format "All " nil)
- (regexp :format "%t: %v\n" :size 0))
+ (regexp :format "%t: %v\n"))
(radio :tag "Nomatch"
(const :format "All " nil)
- (regexp :format "%t: %v\n" :size 0))))
+ (regexp :format "%t: %v\n"))))
(defcustom w3m-local-find-file-function
'(if (w3m-popup-frame-p)
@@ -1838,7 +1838,7 @@
It can also be any Lisp form returning a function. Set this to nil if
you want to always use emacs-w3m to see local files."
:group 'w3m
- :type '(sexp :size 0))
+ :type '(sexp))
(defcustom w3m-local-directory-view-method 'w3m-cgi
"*Symbol of the method to view a local directory tree.
@@ -1861,7 +1861,7 @@
:type `(radio
(const :tag "w3m internal CGI" nil)
(file :format "path of 'dirlist.cgi': %v\n"
- :size 0
+
:value ,(if (not noninteractive)
(expand-file-name
(concat "../lib/"
@@ -1908,11 +1908,11 @@
(list :inline t :format "%v"
(radio :indent 2 :sample-face underline
:tag "Allow"
- (regexp :format "%t: %v\n" :size 0)
+ (regexp :format "%t: %v\n")
(const :tag "Don't allow all" nil))
(radio :indent 2 :sample-face underline
:tag "Don't allow"
- (regexp :format "%t: %v\n" :size 0)
+ (regexp :format "%t: %v\n")
(const :tag "Allow all" nil))))
(function :tag "Send referers when your function returns non-nil")))
@@ -1921,7 +1921,7 @@
Note that the command is required to be able to modify file's
timestamp with the `-t' option."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-puny-utf-16be
(cond
@@ -1974,15 +1974,15 @@
`((choice
:format "%[Value Menu%] %v" :tag "Replacing URI with"
(list :indent 4 :tag "Replacement Using Pattern"
- (regexp :format "%t: %v\n" :size 0)
+ (regexp :format "%t: %v\n")
(function-item :format "" w3m-pattern-uri-replace)
- (string :format "Pattern: %v\n" :size 0))
+ (string :format "Pattern: %v\n"))
(list :format "%t:\n%v" :indent 4 :tag "Quick Search"
(regexp :format "Prefix URI %t: %v\n"
- :size 0 :value "")
+ :value "")
(function-item :format "" w3m-search-uri-replace)
(string :format "Quick Search Engine: %v\n"
- :size 0 :value ""))
+ :value ""))
,@(progn
(require 'w3m-search)
(mapcar
@@ -2001,9 +2001,9 @@
(string :tag "Quick Search Engine" ,engine))))
w3m-search-engine-alist))
(list :indent 4 :tag "User Defined Function"
- (regexp :format "%t: %v\n" :size 0)
+ (regexp :format "%t: %v\n")
(function
- :format "%t: %v\n" :size 0
+ :format "%t: %v\n"
;; Fix a bug in Emacs versions prior to 22.
:value-to-internal
(lambda (widget value)
@@ -2013,7 +2013,7 @@
value)
(prin1-to-string value))))
(repeat :extra-offset 2 :tag "Options"
- (sexp :format "%t: %v\n" :size 0)))))))
+ (sexp :format "%t: %v\n")))))))
(defcustom w3m-relationship-estimate-rules
`((w3m-relationship-simple-estimate
@@ -2311,7 +2311,7 @@
thumbnail."
:group 'w3m
:type '(radio (const :format "Accept any image\n" nil)
- (regexp :format "URL regexp: %v\n" :size 0)))
+ (regexp :format "URL regexp: %v\n")))
(defvar w3m-modeline-process-status-on "<PRC>"
"Modeline control for displaying the status when the process is running.
@@ -10735,7 +10735,7 @@
"*Maximum number of arrived URLs which are displayed per page."
:group 'w3m
:type '(radio (const :tag "All entries are displayed in single page." nil)
- (integer :format "%t: %v\n" :size 0)))
+ (integer :format "%t: %v\n")))
(defun w3m-db-history (&optional start size)
"Display arrived URLs."
@@ -10820,8 +10820,8 @@
The car is used when splitting windows horizontally and the cdr is for
splitting windows vertically."
:group 'w3m
- :type '(cons (integer :format "H: %v[%%] " :size 0)
- (integer :format "V: %v[%%]\n" :size 0)))
+ :type '(cons (integer :format "H: %v[%%] ")
+ (integer :format "V: %v[%%]\n")))
(defvar w3m-select-buffer-window nil)
(defconst w3m-select-buffer-message
diff -u ../001/w3m-ems.el ./w3m-ems.el
--- ../001/w3m-ems.el 2017-06-25 09:02:02.456010795 -0400
+++ ./w3m-ems.el 2017-06-25 10:14:33.619492221 -0400
@@ -714,7 +714,7 @@
(if (and (numberp value) (> value 0))
value
16)))
- :type '(integer :size 0))
+ :type '(integer))
(defface w3m-tab-unselected
'((((type x w32 mac ns) (class color))
diff -u ../001/w3m-favicon.el ./w3m-favicon.el
--- ../001/w3m-favicon.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-favicon.el 2017-06-25 10:14:33.627492283 -0400
@@ -60,8 +60,8 @@
:group 'w3m
:type '(radio (const :tag "Not specified" nil)
(cons :format "%v"
- (integer :format "Width: %v " :size 0 :value 16)
- (integer :format "Height: %v " :size 0 :value 16))))
+ (integer :format "Width: %v " :value 16)
+ (integer :format "Height: %v " :value 16))))
(defconst w3m-favicon-name "favicon.ico"
"The favicon name.")
@@ -79,13 +79,13 @@
by the `w3m-profile-directory' variable."
:group 'w3m
:type '(radio (const :format "Not specified\n")
- (file :format "%t: %v\n" :size 0)))
+ (file :format "%t: %v\n")))
(defcustom w3m-favicon-cache-expire-wait (* 30 24 60 60)
"*The cache will be expired after specified seconds passed since retrieval.
If this variable is nil, never expired."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-favicon-type
(let ((types '(gif png pbm xpm bmp))
@@ -140,9 +140,9 @@
(cons (list (car vals) (nth 1 vals))
(nthcdr 2 vals))
(cons (list (car vals)) (cdr vals))))
- (string :format "Arg: %v " :value "-" :size 0)
+ (string :format "Arg: %v " :value "-")
(checklist :inline t
- (string :format "Value: %v\n" :size 0)))))
+ (string :format "Value: %v\n")))))
(defcustom w3m-favicon-default-background nil
"Color name used as transparent color of favicon image.
@@ -151,7 +151,7 @@
of the header line or the mode line on which the favicon is displayed.
Note that this value is effective only with Emacs 22 and greater."
:group 'w3m
- :type '(radio (string :format "Color: %v\n" :size 0
+ :type '(radio (string :format "Color: %v\n"
:match (lambda (widget value)
(and (stringp value) (> (length value) 0))))
(const :tag "Use the background color of the Emacs frame" nil)
diff -u ../001/w3m-filter.el ./w3m-filter.el
--- ../001/w3m-filter.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-filter.el 2017-06-25 10:14:33.647492436 -0400
@@ -232,19 +232,19 @@
:group 'w3m
:type '(repeat
(group :format "%v" :indent 2
- (regexp :format "Regexp: %v\n" :value ".*" :size 0)
+ (regexp :format "Regexp: %v\n" :value ".*")
(choice
:tag "Filtering Rule"
(group :inline t
:tag "Delete regions surrounded with these patterns"
(const :format "Function: %v\n"
w3m-filter-delete-regions)
- (string :format "Start: %v\n" :size 0
+ (string :format "Start: %v\n"
:value "not a regexp")
- (string :format " End: %v\n" :size 0
+ (string :format " End: %v\n"
:value "not a regexp"))
(function :tag "Filter with a user defined function"
- :format "Function: %v\n" :size 0)))))
+ :format "Function: %v\n")))))
(defcustom w3m-filter-google-use-utf8
(or (featurep 'un-define) (fboundp 'utf-translate-cjk-mode)
@@ -280,7 +280,7 @@
"/\\([0-9]+\\)")
"*Regexp to extract ASIN number for Amazon."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-filter-amazon-short-url-bottom nil
"*Amazon short URLs insert bottom position."
diff -u ../001/w3m-form.el ./w3m-form.el
--- ../001/w3m-form.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-form.el 2017-06-25 10:14:33.679492683 -0400
@@ -82,13 +82,13 @@
'iso-2022-7bit-ss2))
"Coding system for textarea's backup file."
:group 'w3m
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-form-textarea-directory
(expand-file-name ".textarea" w3m-profile-directory)
"*Name of the directory to save the file of textarea input."
:group 'w3m
- :type '(directory :size 0))
+ :type '(directory))
(defcustom w3m-form-textarea-edit-mode 'text-mode
"*Major mode to edit textarea."
@@ -1075,7 +1075,7 @@
(defcustom w3m-form-input-textarea-buffer-lines 10
"*Buffer lines for form textarea buffer."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-form-input-textarea-mode-hook nil
"*A hook called after w3m-form-input-textarea-mode."
@@ -1588,7 +1588,7 @@
(defcustom w3m-form-input-select-buffer-lines 10
"*Buffer lines for form select buffer."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-form-input-select-mode-hook nil
"*A hook called after w3m-form-input-select-mode."
@@ -1772,7 +1772,7 @@
(defcustom w3m-form-input-map-buffer-lines 10
"*Buffer lines for form select map buffer."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-form-input-map-mode-hook nil
"*A hook called after w3m-form-input-map-mode."
diff -u ../001/w3m-load.el ./w3m-load.el
--- ../001/w3m-load.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-load.el 2017-06-25 10:14:33.739493145 -0400
@@ -6,8 +6,8 @@
(provide 'w3m-load)
-;;;### (autoloads nil "bookmark-w3m" "bookmark-w3m.el" (19648 52975
-;;;;;; 0 0))
+;;;### (autoloads nil "bookmark-w3m" "bookmark-w3m.el" (22863 49249
+;;;;;; 1893 42000))
;;; Generated autoloads from bookmark-w3m.el
(autoload 'bookmark-w3m-bookmark-jump "bookmark-w3m" "\
@@ -17,7 +17,8 @@
;;;***
-;;;### (autoloads nil "mime-w3m" "mime-w3m.el" (20927 43680 0 0))
+;;;### (autoloads nil "mime-w3m" "mime-w3m.el" (22863 49249 13893
+;;;;;; 132000))
;;; Generated autoloads from mime-w3m.el
(autoload 'mime-w3m-preview-text/html "mime-w3m" "\
@@ -51,7 +52,7 @@
;;;***
-;;;### (autoloads nil "octet" "octet.el" (22826 38996 516573 587000))
+;;;### (autoloads nil "octet" "octet.el" (22863 49249 17893 163000))
;;; Generated autoloads from octet.el
(autoload 'octet-buffer "octet" "\
@@ -83,7 +84,7 @@
;;;***
-;;;### (autoloads nil "w3m" "w3m.el" (22859 5436 261859 500000))
+;;;### (autoloads nil "w3m" "w3m.el" (22863 49249 189894 465000))
;;; Generated autoloads from w3m.el
(autoload 'w3m-retrieve "w3m" "\
@@ -240,8 +241,8 @@
;;;***
-;;;### (autoloads nil "w3m-antenna" "w3m-antenna.el" (19187 58267
-;;;;;; 0 0))
+;;;### (autoloads nil "w3m-antenna" "w3m-antenna.el" (22863 49249
+;;;;;; 29893 253000))
;;; Generated autoloads from w3m-antenna.el
(autoload 'w3m-about-antenna "w3m-antenna" "\
@@ -256,8 +257,8 @@
;;;***
-;;;### (autoloads nil "w3m-bookmark" "w3m-bookmark.el" (20597 64488
-;;;;;; 0 0))
+;;;### (autoloads nil "w3m-bookmark" "w3m-bookmark.el" (22863 49249
+;;;;;; 33893 284000))
;;; Generated autoloads from w3m-bookmark.el
(autoload 'w3m-bookmark-add-this-url "w3m-bookmark" "\
@@ -303,8 +304,8 @@
;;;***
-;;;### (autoloads nil "w3m-cookie" "w3m-cookie.el" (22850 3123 149456
-;;;;;; 807000))
+;;;### (autoloads nil "w3m-cookie" "w3m-cookie.el" (22863 49249 49893
+;;;;;; 406000))
;;; Generated autoloads from w3m-cookie.el
(autoload 'w3m-cookie-shutdown "w3m-cookie" "\
@@ -335,7 +336,8 @@
;;;***
-;;;### (autoloads nil "w3m-dtree" "w3m-dtree.el" (18964 36505 0 0))
+;;;### (autoloads nil "w3m-dtree" "w3m-dtree.el" (22863 49249 49893
+;;;;;; 406000))
;;; Generated autoloads from w3m-dtree.el
(autoload 'w3m-about-dtree "w3m-dtree" "\
@@ -351,7 +353,7 @@
;;;***
-;;;### (autoloads nil "w3m-fb" "w3m-fb.el" (17681 2386 0 0))
+;;;### (autoloads nil "w3m-fb" "w3m-fb.el" (22863 49249 213894 647000))
;;; Generated autoloads from w3m-fb.el
(defvar w3m-fb-mode nil "\
@@ -371,8 +373,8 @@
;;;***
-;;;### (autoloads nil "w3m-filter" "w3m-filter.el" (22847 30180 969353
-;;;;;; 771000))
+;;;### (autoloads nil "w3m-filter" "w3m-filter.el" (22863 49249 225894
+;;;;;; 738000))
;;; Generated autoloads from w3m-filter.el
(autoload 'w3m-filter "w3m-filter" "\
@@ -389,8 +391,8 @@
;;;***
-;;;### (autoloads nil "w3m-form" "w3m-form.el" (22451 51479 204145
-;;;;;; 305000))
+;;;### (autoloads nil "w3m-form" "w3m-form.el" (22863 49249 249894
+;;;;;; 920000))
;;; Generated autoloads from w3m-form.el
(autoload 'w3m-fontify-forms "w3m-form" "\
@@ -400,8 +402,8 @@
;;;***
-;;;### (autoloads nil "w3m-lnum" "w3m-lnum.el" (22827 37359 529241
-;;;;;; 182000))
+;;;### (autoloads nil "w3m-lnum" "w3m-lnum.el" (22863 49249 289895
+;;;;;; 222000))
;;; Generated autoloads from w3m-lnum.el
(autoload 'w3m-lnum-mode "w3m-lnum" "\
@@ -507,8 +509,8 @@
;;;***
-;;;### (autoloads nil "w3m-namazu" "w3m-namazu.el" (18964 36505 0
-;;;;;; 0))
+;;;### (autoloads nil "w3m-namazu" "w3m-namazu.el" (22863 49249 309895
+;;;;;; 374000))
;;; Generated autoloads from w3m-namazu.el
(autoload 'w3m-about-namazu "w3m-namazu" "\
@@ -523,8 +525,8 @@
;;;***
-;;;### (autoloads nil "w3m-perldoc" "w3m-perldoc.el" (18197 61165
-;;;;;; 0 0))
+;;;### (autoloads nil "w3m-perldoc" "w3m-perldoc.el" (22863 49249
+;;;;;; 309895 374000))
;;; Generated autoloads from w3m-perldoc.el
(autoload 'w3m-about-perldoc "w3m-perldoc" "\
@@ -539,8 +541,8 @@
;;;***
-;;;### (autoloads nil "w3m-search" "w3m-search.el" (22829 15192 363520
-;;;;;; 954000))
+;;;### (autoloads nil "w3m-search" "w3m-search.el" (22863 49249 333895
+;;;;;; 556000))
;;; Generated autoloads from w3m-search.el
(autoload 'w3m-search "w3m-search" "\
@@ -565,8 +567,8 @@
;;;***
-;;;### (autoloads nil "w3m-session" "w3m-session.el" (20839 34704
-;;;;;; 0 0))
+;;;### (autoloads nil "w3m-session" "w3m-session.el" (22863 49249
+;;;;;; 345895 646000))
;;; Generated autoloads from w3m-session.el
(autoload 'w3m-session-save "w3m-session" "\
@@ -601,8 +603,8 @@
;;;***
-;;;### (autoloads nil "w3m-symbol" "w3m-symbol.el" (18791 2971 0
-;;;;;; 0))
+;;;### (autoloads nil "w3m-symbol" "w3m-symbol.el" (22863 49249 345895
+;;;;;; 646000))
;;; Generated autoloads from w3m-symbol.el
(autoload 'w3m-replace-symbol "w3m-symbol" "\
@@ -612,8 +614,8 @@
;;;***
-;;;### (autoloads nil "w3m-weather" "w3m-weather.el" (20486 20998
-;;;;;; 0 0))
+;;;### (autoloads nil "w3m-weather" "w3m-weather.el" (22863 49249
+;;;;;; 377895 889000))
;;; Generated autoloads from w3m-weather.el
(autoload 'w3m-weather "w3m-weather" "\
diff -u ../001/w3m-namazu.el ./w3m-namazu.el
--- ../001/w3m-namazu.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-namazu.el 2017-06-25 10:14:33.751493237 -0400
@@ -63,7 +63,7 @@
(defcustom w3m-namazu-command "namazu"
"*Name of the executable file of Namazu."
:group 'w3m-namazu
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-namazu-arguments
'("-h" ; print in HTML format.
@@ -76,7 +76,7 @@
(restricted-sexp :format "Argument: %v\n"
:match-alternatives
(stringp 'w3m-namazu-page-max 'whence)
- :size 0)))
+ )))
(defcustom w3m-namazu-page-max
(if (boundp 'namazu-search-num)
@@ -84,14 +84,14 @@
30)
"*A maximum number of documents which are retrieved by one-time search."
:group 'w3m-namazu
- :type '(integer :size 0))
+ :type '(integer))
(defconst w3m-namazu-default-index-customize-spec
'`(choice
(const :tag "No default index" nil)
,@(mapcar (lambda (x) (list 'const (car x)))
w3m-namazu-index-alist)
- (directory :format "Index directory: %v\n" :size 0)))
+ (directory :format "Index directory: %v\n")))
(defcustom w3m-namazu-index-alist
(when (boundp 'namazu-dir-alist)
@@ -105,10 +105,10 @@
(group
:indent 0 :inline t
(cons :format "%v"
- (string :format "Alias: %v\n" :size 0)
+ (string :format "Alias: %v\n")
(repeat
:format "%v%i\n" :indent 8
- (directory :format "Index directory: %v\n" :size 0)))))
+ (directory :format "Index directory: %v\n")))))
:set (lambda (symbol value)
(custom-set-default symbol value)
(put 'w3m-namazu-default-index 'custom-type
@@ -134,7 +134,7 @@
'euc-japan-unix))
"*Coding system for namazu process."
:group 'w3m-namazu
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-namazu-input-coding-system
(if (boundp 'namazu-cs-read)
@@ -142,7 +142,7 @@
'undecided)
"*Coding system for namazu process."
:group 'w3m-namazu
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defun w3m-namazu-call-process (index query whence)
diff -u ../001/w3m-perldoc.el ./w3m-perldoc.el
--- ../001/w3m-perldoc.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-perldoc.el 2017-06-25 10:14:33.755493268 -0400
@@ -42,18 +42,18 @@
(defcustom w3m-perldoc-command "perldoc"
"*Name of the executable file of perldoc."
:group 'w3m-perldoc
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-perldoc-pod2html-command "pod2html"
"*Name of the executable file of pod2html."
:group 'w3m-perldoc
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-perldoc-pod2html-arguments
'("--noindex")
"*Arguments of pod2html."
:group 'w3m-perldoc
- :type '(repeat (string :format "Argument: %v\n" :size 0))
+ :type '(repeat (string :format "Argument: %v\n"))
:get (lambda (symbol)
(delq nil (delete "" (mapcar (lambda (x) (if (stringp x) x))
(default-value symbol)))))
@@ -71,13 +71,13 @@
'iso-latin-1))
"*Coding system used when writing to `w3m-perldoc-command'."
:group 'w3m-perldoc
- :type '(coding-system :size 0))
+ :type '(coding-system))
(defcustom w3m-perldoc-output-coding-system
'undecided
"*Coding system used when reading from `w3m-perldoc-command'."
:group 'w3m-perldoc
- :type '(coding-system :size 0))
+ :type '(coding-system))
;;;###autoload
(defun w3m-about-perldoc (url &optional no-decode no-cache &rest args)
diff -u ../001/w3m-search.el ./w3m-search.el
--- ../001/w3m-search.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-search.el 2017-06-25 10:14:33.783493484 -0400
@@ -226,20 +226,20 @@
:group 'w3m
:type `(repeat
(group :indent 2
- (string :format "Engine: %v\n" :size 0)
- (string :format " Action: %v\n" :size 0)
- (coding-system :format "%t: %v\n" :size 0)
+ (string :format "Engine: %v\n")
+ (string :format " Action: %v\n")
+ (coding-system :format "%t: %v\n")
(checklist :inline t
:entry-format ,(if (w3m-device-on-window-system-p)
"%b %v"
"%b %v")
- (string :format "PostData: %v\n" :size 0)))))
+ (string :format "PostData: %v\n")))))
(defcustom w3m-search-default-engine "google"
"*Name of the default search engine.
See also `w3m-search-engine-alist'."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-search-word-at-point t
"*Non-nil means that the word at point is used as an initial string.
diff -u ../001/w3m-session.el ./w3m-session.el
--- ../001/w3m-session.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-session.el 2017-06-25 10:14:33.795493577 -0400
@@ -51,7 +51,7 @@
(expand-file-name ".sessions" w3m-profile-directory)
"*File name to keep sessions."
:group 'w3m
- :type '(file :size 0))
+ :type '(file))
(defcustom w3m-session-autosave t
"*Non-nil means save automatically when w3m quit."
@@ -75,7 +75,7 @@
"%Y-%m-%d (%a) %H:%M")
"*Format of saved time."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-session-automatic-title
(if (equal "Japanese" w3m-language)
@@ -83,7 +83,7 @@
"Automatic saved sessions")
"*String of title to save session automatically."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-session-deleted-title
(if (equal "Japanese" w3m-language)
@@ -91,7 +91,7 @@
"Removed sessions")
"*String of title to save session when buffer delete."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-session-crash-recovery-title
(if (equal "Japanese" w3m-language)
@@ -99,22 +99,22 @@
"Crash recovery sessions")
"*String of title to save session to use for crash recovering."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-session-deleted-keep-number 5
"*Number to keep sessions when buffers delete."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-session-automatic-keep-number 5
"*Number to keep sessions automatically."
:group 'w3m
- :type '(integer :size 0))
+ :type '(integer))
(defcustom w3m-session-unknown-title "<Unknown Title>"
"*String of title to use when title is not specified."
:group 'w3m
- :type '(string :size 0))
+ :type '(string))
(defcustom w3m-session-load-last-sessions nil
"*Whether to load the last sessions when emacs-w3m starts."
diff -u ../001/w3m-symbol.el ./w3m-symbol.el
--- ../001/w3m-symbol.el 2017-06-25 09:02:02.460011924 -0400
+++ ./w3m-symbol.el 2017-06-25 10:14:33.799493607 -0400
@@ -44,7 +44,7 @@
'(list
:convert-widget w3m-widget-type-convert-widget
(let* ((w `(sexp :match (lambda (widget value) (stringp value))
- :size 4 :value ""
+ :value ""
,@(if (not (widget-get widget :copy))
;; Emacs versions prior to 22.
'(:value-to-internal
@@ -175,7 +175,7 @@
(const :format "Korean " w3m-Korean-symbol)
,@(when w3m-mule-unicode-symbol
'((const :tag "Mule-Unicode" w3m-mule-unicode-symbol)))
- (variable :format "%t symbol: %v\n" :size 0
+ (variable :format "%t symbol: %v\n"
:value w3m-default-symbol)
,w3m-symbol-custom-type))
--- ../001/ChangeLog 2017-06-25 09:02:09.906113215 -0400
+++ ./ChangeLog 2017-06-25 10:25:20.972493484 -0400
@@ -1,3 +1,7 @@
+2017-06-14 Boruch Baum <boruch_baum@xxxxxxx>
+ * all (many): removed ':size' arg from all instances of defcustom and
+ defvar..
+
2017-06-22 Vladimir Sedach <vas@xxxxxxxxxx>
* w3m.el (w3m-external-view-temp-directory): New user option.