diff options
| author | Eli Zaretskii | 2005-11-19 12:18:37 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2005-11-19 12:18:37 +0000 |
| commit | e27de09e24254facfdf6c75f30ae21749848a742 (patch) | |
| tree | 97e394a0918d12fbb24683aa10e3f87110906142 | |
| parent | 101568527f6cbf4ae48fb8c23024260a81ba94cb (diff) | |
| download | emacs-e27de09e24254facfdf6c75f30ae21749848a742.tar.gz emacs-e27de09e24254facfdf6c75f30ae21749848a742.zip | |
(ffap-menu-rescan): Use inhibit-read-only instead of binding
buffer-read-only to nil.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ffap.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de11de64de4..304628cef5c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2005-11-19 Ryan Yeske <rcyeske@gmail.com> | ||
| 2 | |||
| 3 | * ffap.el (ffap-menu-rescan): Use inhibit-read-only instead of | ||
| 4 | binding buffer-read-only to nil. | ||
| 5 | |||
| 1 | 2005-11-19 Eli Zaretskii <eliz@gnu.org> | 6 | 2005-11-19 Eli Zaretskii <eliz@gnu.org> |
| 2 | 7 | ||
| 3 | * complete.el (partial-completion-mode): Mention | 8 | * complete.el (partial-completion-mode): Mention |
diff --git a/lisp/ffap.el b/lisp/ffap.el index 6eb598d434d..ff35ae0deac 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1519,7 +1519,9 @@ Applies `ffap-menu-text-plist' text properties at all matches." | |||
| 1519 | (let ((ffap-next-regexp (or ffap-menu-regexp ffap-next-regexp)) | 1519 | (let ((ffap-next-regexp (or ffap-menu-regexp ffap-next-regexp)) |
| 1520 | (range (- (point-max) (point-min))) | 1520 | (range (- (point-max) (point-min))) |
| 1521 | (mod (buffer-modified-p)) ; was buffer modified? | 1521 | (mod (buffer-modified-p)) ; was buffer modified? |
| 1522 | buffer-read-only ; to set text-properties | 1522 | ;; inhibit-read-only works on read-only text properties |
| 1523 | ;; as well as read-only buffers. | ||
| 1524 | (inhibit-read-only t) ; to set text-properties | ||
| 1523 | item | 1525 | item |
| 1524 | ;; Avoid repeated searches of the *mode-alist: | 1526 | ;; Avoid repeated searches of the *mode-alist: |
| 1525 | (major-mode (if (assq major-mode ffap-string-at-point-mode-alist) | 1527 | (major-mode (if (assq major-mode ffap-string-at-point-mode-alist) |