[nongnu] elpa/sweeprolog 03cfe0c924 7/9: Use 'without-restriction'.

[ELPA Syncer]

branch: elpa/sweeprolog
commit 03cfe0c92472be4a234fd155160e5d4f7c9ea89e
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    Use 'without-restriction'.
    
    * sweeprolog.el (sweeprolog-analyze-buffer)
    (sweeprolog--buffer-string)
    (sweeprolog-export-predicate): Use 'without-restriction' instead of
    'save-restriction' and 'widen'.
---
 sweeprolog.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index a28723064a..0968365411 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3017,17 +3017,15 @@ modified."
   (interactive (list t))
   (when (or force sweeprolog--buffer-modified)
     (sweeprolog-xref-buffer)
-    (save-restriction
-      (widen)
-      (let  ((sweeprolog--analyze-point (point)))
+    (without-restriction
+      (let ((sweeprolog--analyze-point (point)))
         (sweeprolog-analyze-region (point-min) (point-max))))
     (setq sweeprolog--buffer-modified nil)))
 
 (defun sweeprolog--buffer-string (filename)
   (when-let ((buf (find-buffer-visiting filename)))
     (with-current-buffer buf
-      (save-restriction
-        (widen)
+      (without-restriction
         (buffer-substring-no-properties
          (point-min)
          (point-max))))))
@@ -4593,8 +4591,7 @@ non-exported predicates defined in the current buffer."
                     (sweeprolog-read-exportable-predicate)
                     (read-string "Export comment: ")))
                sweeprolog-mode)
-  (save-restriction
-    (widen)
+  (without-restriction
     (save-excursion
       (goto-char (point-min))
       (unless (or (sweeprolog-at-beginning-of-top-term-p)