[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 3b71939903 3/3: lisp/org-src.el: Suppress compiler
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 3b71939903 3/3: lisp/org-src.el: Suppress compiler warnings for obsolete code |
Date: |
Thu, 7 Dec 2023 09:58:31 -0500 (EST) |
branch: externals/org
commit 3b719399036f44cbaabf399b3254d6ab3ba462d9
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/org-src.el: Suppress compiler warnings for obsolete code
* lisp/org-src.el (org-src-babel-configure-edit-buffer):
(add-hook): Suppress obsolete call warning - this code is also
obsolete and is to be removed in future.
---
lisp/org-src.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 344324aaf0..a83b10d03a 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -936,9 +936,15 @@ INFO should be a list similar in format to the return
value of
(defun org-src-babel-configure-edit-buffer ()
"Configure src editing buffer."
(when org-src--babel-info
- (org-src-associate-babel-session org-src--babel-info)))
-
-(add-hook 'org-src-mode-hook #'org-src-babel-configure-edit-buffer)
+ (with-no-warnings
+ ;; FIXME: We intentionally use obsolete function. This code is
+ ;; to be removed later.
+ (org-src-associate-babel-session org-src--babel-info))))
+
+;; FIXME: We intentionally use obsolete function. This code is
+;; to be removed later.
+(with-no-warnings
+ (add-hook 'org-src-mode-hook #'org-src-babel-configure-edit-buffer))
;;; Public API