Mercurial > emacs
comparison lisp/image-mode.el @ 105371:0769a73f1d18
* image-mode.el (image-toggle-display):
* emacs-lisp/elp.el (elp-instrument-function):
* emacs-lisp/advice.el (ad-make-advised-definition):
* emacs-lisp/easy-mmode.el (define-minor-mode):
* net/browse-url.el (browse-url-maybe-new-window):
* progmodes/sh-script.el (sh-learn-buffer-indent):
Pass new argument 'any to `called-interactively-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 02 Oct 2009 00:02:02 +0000 |
| parents | aab85e9d78b6 |
| children | a0f778f4a995 |
comparison
equal
deleted
inserted
replaced
| 105370:93ff2304a242 | 105371:0769a73f1d18 |
|---|---|
| 427 (kill-local-variable 'auto-hscroll-mode) | 427 (kill-local-variable 'auto-hscroll-mode) |
| 428 (use-local-map image-mode-text-map) | 428 (use-local-map image-mode-text-map) |
| 429 (setq image-type "text") | 429 (setq image-type "text") |
| 430 (if (eq major-mode 'image-mode) | 430 (if (eq major-mode 'image-mode) |
| 431 (setq mode-name "Image[text]")) | 431 (setq mode-name "Image[text]")) |
| 432 (if (called-interactively-p) | 432 (if (called-interactively-p 'any) |
| 433 (message "Repeat this command to go back to displaying the image"))) | 433 (message "Repeat this command to go back to displaying the image"))) |
| 434 ;; Turn the image data into a real image, but only if the whole file | 434 ;; Turn the image data into a real image, but only if the whole file |
| 435 ;; was inserted | 435 ;; was inserted |
| 436 (let* ((filename (buffer-file-name)) | 436 (let* ((filename (buffer-file-name)) |
| 437 (data-p (not (and filename | 437 (data-p (not (and filename |
| 470 (set (make-local-variable 'auto-hscroll-mode) nil) | 470 (set (make-local-variable 'auto-hscroll-mode) nil) |
| 471 (use-local-map image-mode-map) | 471 (use-local-map image-mode-map) |
| 472 (setq image-type type) | 472 (setq image-type type) |
| 473 (if (eq major-mode 'image-mode) | 473 (if (eq major-mode 'image-mode) |
| 474 (setq mode-name (format "Image[%s]" type))) | 474 (setq mode-name (format "Image[%s]" type))) |
| 475 (if (called-interactively-p) | 475 (if (called-interactively-p 'any) |
| 476 (message "Repeat this command to go back to displaying the file as text"))))) | 476 (message "Repeat this command to go back to displaying the file as text"))))) |
| 477 | 477 |
| 478 ;;; Support for bookmark.el | 478 ;;; Support for bookmark.el |
| 479 (declare-function bookmark-make-record-default "bookmark" | 479 (declare-function bookmark-make-record-default "bookmark" |
| 480 (&optional point-only)) | 480 (&optional point-only)) |