diff options
Diffstat (limited to 'lisp/iimage.el')
| -rw-r--r-- | lisp/iimage.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/iimage.el b/lisp/iimage.el index 96ab963bff4..b4c175a7b63 100644 --- a/lisp/iimage.el +++ b/lisp/iimage.el @@ -64,9 +64,15 @@ `((,(concat "\\(`?file://\\|\\[\\[\\|<\\|`\\)?" "\\(" iimage-mode-image-filename-regex "\\)" "\\(\\]\\]\\|>\\|'\\)?") . 2)) - "Alist of filename REGEXP vs NUM. -Each element looks like (REGEXP . NUM). -NUM specifies which parenthesized expression in the regexp. + "Alist that specifies how to detect filenames of images to be displayed inline. +The value should be an alist whose elements have the form + + (REGEXP . NUM) + +where REGEXP is a regular expression to search buffer text for what +might be a specification of an inline image, and NUM is the number +of a parenthesized sub-expression of REGEXP which gives the name of +the image file to look up. Examples of image filename patterns to match: file://foo.png @@ -93,7 +99,7 @@ Examples of image filename patterns to match: (iimage-mode 0)) (defun iimage-modification-hook (beg end) - "Remove display property if a display region is modified." + "Remove display property if a display region BEG..END is modified." ;;(debug-print "ii1 begin %d, end %d\n" beg end) (let ((inhibit-modification-hooks t) (beg (previous-single-property-change end 'display @@ -112,8 +118,8 @@ Examples of image filename patterns to match: file) (with-silent-modifications (save-excursion - (goto-char (point-min)) (dolist (pair iimage-mode-image-regex-alist) + (goto-char (point-min)) (while (re-search-forward (car pair) nil t) (when (and (setq file (match-string (cdr pair))) (setq file (locate-file file image-path))) |