emacs-elpa-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]