mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix order of `other' choice in defcustom :type

Browse source 
* lisp/font-lock.el (font-lock-verbose)
* lisp/image-mode.el (image-auto-resize)
* lisp/gnus/message.el (message-openpgp-header): Arrange for 'other'
to be the last choice.  (Bug#65852)
This commit is contained in:
Mauro Aranda 2023-09-10 10:45:04 -03:00 • committed by Stefan Kangas
parent c54080aebd
commit e7e7ce67d2
3 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/font-lock.el
View file

@ -299,8 +299,8 @@ that match at least one applicable CONDITION are disabled."
"If non-nil, means show status messages for buffer fontification. "If non-nil, means show status messages for buffer fontification.
If a number, only buffers greater than this size have fontification messages." If a number, only buffers greater than this size have fontification messages."
:type '(choice (const :tag "never" nil) :type '(choice (const :tag "never" nil)
(other :tag "always" t) (integer :tag "size")
(integer :tag "size")) (other :tag "always" t))
:group 'font-lock :group 'font-lock
:version "24.1") :version "24.1")

6
lisp/gnus/message.el
View file

@ -2840,11 +2840,11 @@ will not be inserted."
(const :tag "No ID" nil)) (const :tag "No ID" nil))
(choice (string :tag "Key") (choice (string :tag "Key")
(const :tag "No Key" nil)) (const :tag "No Key" nil))
(choice (other :tag "None" nil) (choice (const :tag "Unprotected" "unprotected")
(const :tag "Unprotected" "unprotected")
(const :tag "Sign" "sign") (const :tag "Sign" "sign")
(const :tag "Encrypt" "encrypt") (const :tag "Encrypt" "encrypt")
(const :tag "Sign and Encrypt" "signencrypt")))) (const :tag "Sign and Encrypt" "signencrypt")
(other :tag "None" nil))))
:version "28.1") :version "28.1")
(defun message-add-openpgp-header () (defun message-add-openpgp-header ()

4
lisp/image-mode.el
View file

@ -69,8 +69,8 @@ Its value should be one of the following:
Resizing will always preserve the aspect ratio of the image." Resizing will always preserve the aspect ratio of the image."
:type '(choice (const :tag "No resizing" nil) :type '(choice (const :tag "No resizing" nil)
(const :tag "Fit to window" fit-window) (const :tag "Fit to window" fit-window)
(other :tag "Scale down to fit window" t) (number :tag "Scale factor" 1)
(number :tag "Scale factor" 1)) (other :tag "Scale down to fit window" t))
:version "29.1" :version "29.1"
:group 'image) :group 'image)