checking if the buffer exists (#256).

2014-05-14 05:05:49 +09:00
parent e9f38f10a2
commit ce28a67e28
3 changed files with 15 additions and 7 deletions
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -205,4 +205,12 @@
 	expr
      (concat "(" expr ")"))))

+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defmacro ghc-with-current-buffer (buf &rest body)
+  ;; (declare (indent 1))
+  `(if (get-buffer ,buf)
+       (with-current-buffer ,buf
+	 ,@body)))
+
 (provide 'ghc-func)