[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 4382aa9268 2/2: Disable local variables when
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 4382aa9268 2/2: Disable local variables when reading HyRolo files |
Date: |
Mon, 29 Aug 2022 16:57:45 -0400 (EDT) |
branch: externals/hyperbole
commit 4382aa9268173fed8b16bc74109e58e7f27d445e
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>
Disable local variables when reading HyRolo files
---
hyrolo.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/hyrolo.el b/hyrolo.el
index c3fb974bd0..ff7e07aaeb 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 7-Jun-89 at 22:08:29
-;; Last-Mod: 29-Aug-22 at 00:38:15 by Bob Weiner
+;; Last-Mod: 29-Aug-22 at 02:21:41 by Bob Weiner
;;
;; Copyright (C) 1991-2022 Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
@@ -462,10 +462,11 @@ Default to the first listed file when not given a prefix
arg."
(defun hyrolo-find-file-noselect (&optional file)
"HyRolo function to read a FILE in literally.
It uses the setting of `hyrolo-find-file-noselect-function'."
- (if (string-match "\\.org$" file)
- (let ((find-file-literally t))
- (hyrolo-find-file file hyrolo-find-file-noselect-function nil t))
- (hyrolo-find-file file hyrolo-find-file-noselect-function)))
+ (let (enable-local-variables)
+ (if (string-match "\\.org$" file)
+ (let ((find-file-literally t))
+ (hyrolo-find-file file hyrolo-find-file-noselect-function nil t))
+ (hyrolo-find-file file hyrolo-find-file-noselect-function))))
(defun hyrolo-forward-visible-line (&optional arg)
"Move forward by optional ARG lines (default = 1), ignoring currently
invisible newlines only.