From 0426de8255a5da691774a51d30534990829ad42b 2013-06-27 21:58:37
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2013-06-27 21:58:37
Subject: [PATCH] check that some variables are defined before using them

---

diff --git a/src/workgroups-specialbufs.el b/src/workgroups-specialbufs.el
index 26dda72849523ec0ccfd6fb2c6fc37d269502275..50a8c16cb8fa090cf490523a1fdd3ba40c264434 100644
--- a/src/workgroups-specialbufs.el
+++ b/src/workgroups-specialbufs.el
@@ -211,33 +211,38 @@ Save shell directory"
   "Return commands to restore the state of Agenda buffer.
 Can be restored using \"(eval commands)\"."
   (interactive)
-  (if (get-buffer org-agenda-buffer-name)
-      (with-current-buffer org-agenda-buffer-name
-        (let* ((p (or (and (looking-at "\\'") (1- (point))) (point)))
-               (series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
-          (if series-redo-cmd
-              (get-text-property p 'org-series-redo-cmd)
-            (get-text-property p 'org-redo-cmd))))))
+  (when (boundp 'org-agenda-buffer-name)
+    (if (get-buffer org-agenda-buffer-name)
+        (with-current-buffer org-agenda-buffer-name
+          (let* ((p (or (and (looking-at "\\'") (1- (point))) (point)))
+                 (series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
+            (if series-redo-cmd
+                (get-text-property p 'org-series-redo-cmd)
+              (get-text-property p 'org-redo-cmd)))))))
 
 (defun wg-run-agenda-cmd (f)
   "Run commands \"F\" in Agenda buffer.
 You can get these commands using
 \"wg-get-org-agenda-view-commands\"."
-  (if (get-buffer org-agenda-buffer-name)
-      (save-window-excursion
-        (with-current-buffer org-agenda-buffer-name
-          (let* ((line (org-current-line)))
-            (if f (eval f))
-            (org-goto-line line))))))
+  (when (and (boundp 'org-agenda-buffer-name)
+             (fboundp 'org-current-line)
+             (fboundp 'org-goto-line))
+    (if (get-buffer org-agenda-buffer-name)
+        (save-window-excursion
+          (with-current-buffer org-agenda-buffer-name
+            (let* ((line (org-current-line)))
+              (if f (eval f))
+              (org-goto-line line)))))))
 
 (defun wg-deserialize-org-agenda-buffer (buf)
   "Deserialize an `org-agenda-mode' buffer BUF."
   (org-agenda-list)
-  (wg-dbind (this-function item) (wg-buf-special-data buf)
-    (wg-awhen (get-buffer org-agenda-buffer-name)
-      (set-buffer it)
-      (wg-run-agenda-cmd item)
-      (current-buffer))))
+  (when (boundp 'org-agenda-buffer-name)
+    (wg-dbind (this-function item) (wg-buf-special-data buf)
+      (wg-awhen (get-buffer org-agenda-buffer-name)
+        (set-buffer it)
+        (wg-run-agenda-cmd item)
+        (current-buffer)))))
 
 (defun wg-serialize-org-agenda-buffer (buffer)
   "Serialize an `org-agenda-mode' buffer BUFFER."