Mercurial > emacs
comparison lisp/image-file.el @ 32220:3c7e4ccb6fee
(image-file-name-extensions): Add pbm.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 06 Oct 2000 16:20:03 +0000 |
| parents | 65d06b88701d |
| children | b930d561cd53 |
comparison
equal
deleted
inserted
replaced
| 32219:f008efed9754 | 32220:3c7e4ccb6fee |
|---|---|
| 23 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02111-1307, USA. |
| 24 | 24 |
| 25 ;;; Commentary: | 25 ;;; Commentary: |
| 26 | 26 |
| 27 ;; Defines a file-name-handler hook that transforms visited (or | 27 ;; Defines a file-name-handler hook that transforms visited (or |
| 28 ;; inserted) image files so that they are by displayed as emacs as | 28 ;; inserted) image files so that they are displayed by emacs as |
| 29 ;; images. This is done by putting a `display' text-property on the | 29 ;; images. This is done by putting a `display' text-property on the |
| 30 ;; image data, with the image-data still present underneath; if the | 30 ;; image data, with the image-data still present underneath; if the |
| 31 ;; resulting buffer file is saved to another name it will correctly save | 31 ;; resulting buffer file is saved to another name it will correctly save |
| 32 ;; the image data to the new file. | 32 ;; the image data to the new file. |
| 33 | 33 |
| 35 | 35 |
| 36 (require 'image) | 36 (require 'image) |
| 37 | 37 |
| 38 | 38 |
| 39 (defcustom image-file-name-extensions | 39 (defcustom image-file-name-extensions |
| 40 '("png" "jpeg" "jpg" "gif" "tiff" "xbm" "xpm") | 40 '("png" "jpeg" "jpg" "gif" "tiff" "xbm" "xpm" "pbm") |
| 41 "*A list of image-file filename extensions. | 41 "*A list of image-file filename extensions. |
| 42 Filenames having one of these extensions are considered image files, | 42 Filenames having one of these extensions are considered image files, |
| 43 in addition to those matching `image-file-name-regexps'. | 43 in addition to those matching `image-file-name-regexps'. |
| 44 | 44 |
| 45 See `auto-image-file-mode'; if `auto-image-file-mode' is enabled, | 45 See `auto-image-file-mode'; if `auto-image-file-mode' is enabled, |
| 58 (defcustom image-file-name-regexps nil | 58 (defcustom image-file-name-regexps nil |
| 59 "*List of regexps matching image-file filenames. | 59 "*List of regexps matching image-file filenames. |
| 60 Filenames matching one of these regexps are considered image files, | 60 Filenames matching one of these regexps are considered image files, |
| 61 in addition to those with an extension in `image-file-name-extensions'. | 61 in addition to those with an extension in `image-file-name-extensions'. |
| 62 | 62 |
| 63 See `auto-image-file-mode'; if `auto-image-file-mode' is enabled, | 63 See function `auto-image-file-mode'; if `auto-image-file-mode' is |
| 64 setting this variable directly does not take effect unless | 64 enabled, setting this variable directly does not take effect unless |
| 65 `auto-image-file-mode' is re-enabled; this happens automatically the | 65 `auto-image-file-mode' is re-enabled; this happens automatically the |
| 66 variable is set using \\[customize]." | 66 variable is set using \\[customize]." |
| 67 :type '(repeat regexp) | 67 :type '(repeat regexp) |
| 68 :set (lambda (sym val) | 68 :set (lambda (sym val) |
| 69 (set-default sym val) | 69 (set-default sym val) |