Преглед изворни кода

org.el: Ignore errors when bindings keys in orgstruct-setup

* org.el (orgstruct-setup): Ignore errors around org-defkey.
Christopher Schmidt пре 12 година
родитељ
комит
e7403d6912
1 измењених фајлова са 5 додато и 3 уклоњено
  1. 5 3
      lisp/org.el

+ 5 - 3
lisp/org.el

@@ -8632,9 +8632,11 @@ buffer.  It will also recognize item context in multiline items."
 					 (key-description binding)))))
         (let ((key (lookup-key orgstruct-mode-map binding)))
           (when (or (not key) (numberp key))
-            (org-defkey orgstruct-mode-map
-                        binding
-                        (orgstruct-make-binding f binding)))))))
+	    (condition-case nil
+		(org-defkey orgstruct-mode-map
+			    binding
+			    (orgstruct-make-binding f binding))
+	      (error nil)))))))
   (run-hooks 'orgstruct-setup-hook))
 
 (defun orgstruct-make-binding (fun key)