diff options
| author | Juri Linkov <juri@linkov.net> | 2021-01-20 21:19:23 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-01-20 21:19:23 +0200 |
| commit | 5065698c81dcf241fc234c78bffea54af4203892 (patch) | |
| tree | e289e7fc2f15f6b370e3409f2a64666898db7c9f /lisp/image.el | |
| parent | 0d3635536d4ed8ada6946e98e7d9f03fa443bc36 (diff) | |
| download | emacs-5065698c81dcf241fc234c78bffea54af4203892.tar.gz | |
Move the ‘declare’ form before the interactive spec in 10 functions.
* lisp/emacs-lisp/package.el (package-menu-hide-package):
* lisp/font-lock.el (font-lock-debug-fontify):
* lisp/image.el (image-jpeg-p):
* lisp/mail/flow-fill.el (fill-flowed-test):
* lisp/mh-e/mh-speed.el (mh-speed-toggle, mh-speed-view):
* lisp/progmodes/project.el (project-async-shell-command)
(project-shell-command, project-compile):
* lisp/progmodes/sh-script.el (sh-assignment):
Fix special forms to follow in this order: docstring, declare, interactive.
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el index 814035594b6..6955a90de77 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -264,9 +264,9 @@ compatibility with versions of Emacs that lack the variable ;; Used to be in image-type-header-regexps, but now not used anywhere ;; (since 2009-08-28). (defun image-jpeg-p (data) - (declare (obsolete "It is unused inside Emacs and will be removed." "27.1")) "Value is non-nil if DATA, a string, consists of JFIF image data. We accept the tag Exif because that is the same format." + (declare (obsolete "It is unused inside Emacs and will be removed." "27.1")) (setq data (ignore-errors (string-to-unibyte data))) (when (and data (string-match-p "\\`\xff\xd8" data)) (catch 'jfif |