diff options
| author | Juri Linkov | 2012-02-02 02:49:06 +0200 |
|---|---|---|
| committer | Juri Linkov | 2012-02-02 02:49:06 +0200 |
| commit | 953a8c3b9c08da070b7367f3b0c2c5af95e0b130 (patch) | |
| tree | 80f522c507bcdcc2d1a18ae6e5941bffff611eb9 | |
| parent | 159462d4d179b280c6e68775bbf0630c3317c486 (diff) | |
| download | emacs-953a8c3b9c08da070b7367f3b0c2c5af95e0b130.tar.gz emacs-953a8c3b9c08da070b7367f3b0c2c5af95e0b130.zip | |
* lisp/image-mode.el (image-toggle-display-image): Remove tautological `major-mode'
from the `derived-mode-p' test.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/image-mode.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce373a42e7c..cc6aecd7a26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-02-02 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * image-mode.el (image-toggle-display-image): Remove tautological | ||
| 4 | `major-mode' from the `derived-mode-p' test. | ||
| 5 | |||
| 1 | 2012-02-02 Kenichi Handa <handa@m17n.org> | 6 | 2012-02-02 Kenichi Handa <handa@m17n.org> |
| 2 | 7 | ||
| 3 | * composite.el (compose-region, compose-string): Signal error for | 8 | * composite.el (compose-region, compose-string): Signal error for |
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index a9a8d15e6a0..953cb9e94a1 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el | |||
| @@ -482,7 +482,7 @@ Remove text properties that display the image." | |||
| 482 | "Show the image of the image file. | 482 | "Show the image of the image file. |
| 483 | Turn the image data into a real image, but only if the whole file | 483 | Turn the image data into a real image, but only if the whole file |
| 484 | was inserted." | 484 | was inserted." |
| 485 | (unless (derived-mode-p 'image-mode major-mode) | 485 | (unless (derived-mode-p 'image-mode) |
| 486 | (error "The buffer is not in Image mode")) | 486 | (error "The buffer is not in Image mode")) |
| 487 | (let* ((filename (buffer-file-name)) | 487 | (let* ((filename (buffer-file-name)) |
| 488 | (data-p (not (and filename | 488 | (data-p (not (and filename |