emacs-emojify

commit d279b2027ed4ebc95d53742030e7916926e8b811
parent ce1cfa3ef1a573811905bb8264bc353d1679348a
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Sun, 26 Apr 2020 13:50:50 +0530

Add a compatibility wrapper over org-src-get-lang-mode

Diffstat:
M
emojify.el
 | 
10
+++++++++-

1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/emojify.el b/emojify.el
@@ -61,6 +61,7 @@
 (declare-function org-element-type "org-element")
 (declare-function org-element-property "org-element")
 (declare-function org-element-at-point "org-element")
+(declare-function org-src-get-lang-mode "org-src")
 (declare-function org-src--get-lang-mode "org-src")
 
 ;; Required for integration with company-mode
@@ -149,6 +150,13 @@ If you just want to check `major-mode', use `derived-mode-p'."
                 (setq mode (get mode 'derived-mode-parent))))
     mode))
 
+(defun emojify-org-src-get-lang-mode (lang)
+  "Return major mode that should be used for LANG.
+LANG is a string, and the returned major mode is a symbol."
+  (if (fboundp 'org-src-get-lang-mode)
+      (org-src-get-lang-mode lang)
+    (org-src--get-lang-mode lang)))
+
 
 
 ;; Debugging helpers
@@ -557,7 +565,7 @@ Returns nil if the point is not at an org source block"
       (goto-char point)
       (let ((element (org-element-at-point)))
         (when (eq (org-element-type element) 'src-block)
-          (org-src--get-lang-mode (org-element-property :language element)))))))
+          (emojify-org-src-get-lang-mode (org-element-property :language element)))))))
 
 (defun emojify-looking-at-end-of-list-maybe (point)
   "Determine if POINT is end of a list.