mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(auto-image-file-mode): Move to the end of the file, because

Browse Source 
`define-minor-mode' actually calls the mode-function if the associated
variable is non-nil, which requires that all needed functions be already
defined.
This commit is contained in:
Miles Bader 2000-10-08 23:23:55 +00:00
parent 308374ca26
commit 33c7a00c07
1 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
lisp/image-file.el
View File

@ -91,32 +91,6 @@ variable is set using \\[customize]."
exts-regexp)))
;;;###autoload
(define-minor-mode auto-image-file-mode
"Toggle visiting of image files as images.
With prefix argument ARG, turn on if positive, otherwise off.
Returns non-nil if the new state is enabled.
Image files are those whose name has an extension in
`image-file-name-extensions', or matches a regexp in
`image-file-name-regexps'."
nil
nil
nil
:global t
:group 'image
;; Remove existing handler
(let ((existing-entry
(rassq 'image-file-handler file-name-handler-alist)))
(when existing-entry
(setq file-name-handler-alist
(delq existing-entry file-name-handler-alist))))
;; Add new handler, if enabled
(when auto-image-file-mode
(push (cons (image-file-name-regexp) 'image-file-handler)
file-name-handler-alist)))
;;;###autoload
(defun insert-image-file (file &optional visit beg end replace)
"Insert the image file FILE into the current buffer.
@ -170,6 +144,36 @@ Optional argument ARGS are the arguments to call FUNCTION with."
(apply function args)))
;;; Note this definition must be at the end of the file, because
;;; `define-minor-mode' actually calls the mode-function if the
;;; associated variable is non-nil, which requires that all needed
;;; functions be already defined. [This is arguably a bug in d-m-m]
;;;###autoload
(define-minor-mode auto-image-file-mode
"Toggle visiting of image files as images.
With prefix argument ARG, turn on if positive, otherwise off.
Returns non-nil if the new state is enabled.
Image files are those whose name has an extension in
`image-file-name-extensions', or matches a regexp in
`image-file-name-regexps'."
nil
nil
nil
:global t
:group 'image
;; Remove existing handler
(let ((existing-entry
(rassq 'image-file-handler file-name-handler-alist)))
(when existing-entry
(setq file-name-handler-alist
(delq existing-entry file-name-handler-alist))))
;; Add new handler, if enabled
(when auto-image-file-mode
(push (cons (image-file-name-regexp) 'image-file-handler)
file-name-handler-alist)))
(provide 'image-file)
;;; image-file.el ends here