Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-2

[gnu-emacs] / lisp / ffap.el

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 6eb598d434dfd0b9e87dc7618f5f09d634291a91..ff35ae0deac95535d0ade4bf2961c5562f118ec6 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1519,7 +1519,9 @@ Applies `ffap-menu-text-plist' text properties at all matches."
   (let ((ffap-next-regexp (or ffap-menu-regexp ffap-next-regexp))
        (range (- (point-max) (point-min)))
        (mod (buffer-modified-p))       ; was buffer modified?
-       buffer-read-only                ; to set text-properties
+       ;; inhibit-read-only works on read-only text properties
+       ;; as well as read-only buffers.
+       (inhibit-read-only t)           ; to set text-properties
        item
        ;; Avoid repeated searches of the *mode-alist:
        (major-mode (if (assq major-mode ffap-string-at-point-mode-alist)