can restore marker position

pashinin · Mar 6, 2022 · b4fb228 · b4fb228
1 parent d2e1f33
commit b4fb228
Showing 1 changed file with 20 additions and 18 deletions.
diff --git a/src/workgroups2.el b/src/workgroups2.el
@@ -1134,27 +1134,29 @@ If BUF's file doesn't exist, call `wg-restore-default-buffer'."
 
 (defun wg-restore-buffer (buf &optional switch)
   "Restore BUF, return it and maybe SWITCH to it."
-  (when buf
-    (when wg-debug
-      (message "wg-restore-buffer called => %s" buf))
-    (fset 'buffer-list wg-buffer-list-original)
-    (cond
-     ((wg-restore-existing-buffer buf switch)
+  (let ((rlt t))
+    (when buf
       (when wg-debug
-        (message "wg-restore-existing-buffer succeeded.")))
+        (message "wg-restore-buffer called => %s" buf))
+      (fset 'buffer-list wg-buffer-list-original)
+      (cond
+       ((wg-restore-existing-buffer buf switch)
+        (when wg-debug
+          (message "wg-restore-existing-buffer succeeded.")))
 
-     ((wg-restore-special-buffer buf switch)
-      (when wg-debug
-        (message "wg-restore-special-buffer succeeded.")))
+       ((wg-restore-special-buffer buf switch)
+        (when wg-debug
+          (message "wg-restore-special-buffer succeeded.")))
 
-     ((wg-restore-file-buffer buf switch)
-      (when wg-debug
-        (message "wg-restore-file-buffer succeeded.")))
-     (t
-      (wg-restore-default-buffer switch)
-      (when wg-debug
-        (message "wg-restore-default-buffer called.")))))
-    nil)
+       ((wg-restore-file-buffer buf switch)
+        (when wg-debug
+          (message "wg-restore-file-buffer succeeded.")))
+       (t
+        (wg-restore-default-buffer switch)
+        (setq rlt nil)
+        (when wg-debug
+          (message "wg-restore-default-buffer called.")))))
+    rlt))
 
 (defun wg-buffer-uid (buffer-or-name)
   "Return BUFFER-OR-NAME's buffer-local value of `wg-buffer-uid'."