瀏覽代碼

Still more stuff to fix before release.

In particular, the mechanism to load org-irc.el does not work correctly,
so I am putting in a temporary fix to enable a release.
Carsten Dominik 18 年之前
父節點
當前提交
d0efa83a8b
共有 2 個文件被更改,包括 28 次插入25 次删除
  1. 1 1
      Makefile
  2. 27 24
      org.el

+ 1 - 1
Makefile

@@ -104,7 +104,7 @@ install-noutline: xemacs/noutline.elc
 	if [ ! -d $(lispdir) ]; then $(MKDIR) $(lispdir); else true; fi ;
 	if [ ! -d $(lispdir) ]; then $(MKDIR) $(lispdir); else true; fi ;
 	$(CP) xemacs/noutline.el xemacs/noutline.elc $(lispdir)
 	$(CP) xemacs/noutline.el xemacs/noutline.elc $(lispdir)
 
 
-org-install.el: $(LISPFILES) Makefile
+org-install.el: $(LISPFILES0) Makefile
 	$(BATCH) --eval "(require 'autoload)" \
 	$(BATCH) --eval "(require 'autoload)" \
 		--eval '(find-file "org-install.el")'  \
 		--eval '(find-file "org-install.el")'  \
 		--eval '(erase-buffer)' \
 		--eval '(erase-buffer)' \

+ 27 - 24
org.el

@@ -156,27 +156,28 @@ With prefix arg HERE, insert it at point."
   :group 'org
   :group 'org
   :type 'hook)
   :type 'hook)
 
 
-(defcustom org-default-extensions '(org-irc)
-  "Extensions that should always be loaded together with org.el.
-If the description starts with <A>, this means the extension
-will be autoloaded when needed, preloading is not necessary."
-  :group 'org
-  :type
-  '(set :greedy t
-	(const :tag "    Mouse support (org-mouse.el)" org-mouse)
-	(const :tag "<A> Publishing (org-publish.el)" org-publish)
-	(const :tag "<A> LaTeX export (org-export-latex.el)" org-export-latex)
-	(const :tag "    IRC/ERC links (org-irc.el)" org-irc)
-	(const :tag "    Apple Mail message links under OS X (org-mac-message.el)" org-mac-message)))
-
-(defun org-load-default-extensions ()
-  "Load all extensions listed in `org-default-extensions'."
-  (mapc (lambda (ext) 
-	  (condition-case nil (require ext)
-	    (error (message "Problems while trying to load feature `%s'" ext))))
-	org-default-extensions))
-
-(eval-after-load "org" '(org-load-default-extensions))
+;(defcustom org-default-extensions '(org-irc)
+;  "Extensions that should always be loaded together with org.el.
+;If the description starts with <A>, this means the extension
+;will be autoloaded when needed, preloading is not necessary.
+;FIXME: this does not ork correctly, ignore it for now."
+;  :group 'org
+;  :type
+;  '(set :greedy t
+;	(const :tag "    Mouse support (org-mouse.el)" org-mouse)
+;	(const :tag "<A> Publishing (org-publish.el)" org-publish)
+;	(const :tag "<A> LaTeX export (org-export-latex.el)" org-export-latex)
+;	(const :tag "    IRC/ERC links (org-irc.el)" org-irc)
+;	(const :tag "    Apple Mail message links under OS X (org-mac-message.el)" org-mac-message)))
+;
+;(defun org-load-default-extensions ()
+;  "Load all extensions listed in `org-default-extensions'."
+;  (mapc (lambda (ext) 
+;	  (condition-case nil (require ext)
+;	    (error (message "Problems while trying to load feature `%s'" ext))))
+;	org-default-extensions))
+
+;(eval-after-load "org" '(org-load-default-extensions))
 
 
 ;; FIXME: Needs a separate group...
 ;; FIXME: Needs a separate group...
 (defcustom org-completion-fallback-command 'hippie-expand
 (defcustom org-completion-fallback-command 'hippie-expand
@@ -12173,6 +12174,7 @@ For some link types, a prefix arg is interpreted:
 For links to usenet articles, arg negates `org-usenet-links-prefer-google'.
 For links to usenet articles, arg negates `org-usenet-links-prefer-google'.
 For file links, arg negates `org-context-in-file-links'."
 For file links, arg negates `org-context-in-file-links'."
   (interactive "P")
   (interactive "P")
+  (require 'org-irc)
   (setq org-store-link-plist nil)  ; reset
   (setq org-store-link-plist nil)  ; reset
   (let (link cpltxt desc description search txt)
   (let (link cpltxt desc description search txt)
     (cond
     (cond
@@ -12827,6 +12829,7 @@ the end of the current subtree.
 Normally, files will be opened by an appropriate application.  If the
 Normally, files will be opened by an appropriate application.  If the
 optional argument IN-EMACS is non-nil, Emacs will visit the file."
 optional argument IN-EMACS is non-nil, Emacs will visit the file."
   (interactive "P")
   (interactive "P")
+  (require 'org-irc)
   (move-marker org-open-link-marker (point))
   (move-marker org-open-link-marker (point))
   (setq org-window-config-before-follow-link (current-window-configuration))
   (setq org-window-config-before-follow-link (current-window-configuration))
   (org-remove-occur-highlights nil nil t)
   (org-remove-occur-highlights nil nil t)
@@ -13696,9 +13699,9 @@ RET at beg-of-buf -> Append to file as level 2 headline
 		 (and (or (not ctxt) (eq ctxt t)
 		 (and (or (not ctxt) (eq ctxt t)
 			  (and (listp ctxt) (memq mode ctxt))
 			  (and (listp ctxt) (memq mode ctxt))
 			  (and (functionp ctxt)
 			  (and (functionp ctxt)
-			       (if (with-current-buffer buf
-				     ;; Protect the user-defined function from error
-				     (condition-case nil (funcall ctxt) (error nil))))))
+			       (with-current-buffer buf
+				 ;; Protect the user-defined function from error
+				 (condition-case nil (funcall ctxt) (error nil)))))
 		      tpl)))
 		      tpl)))
 	     org-remember-templates))
 	     org-remember-templates))
 	   ;; If no template at this point, add the default templates:
 	   ;; If no template at this point, add the default templates: