Browse Source

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 17 years ago
parent
commit
d0efa83a8b
2 changed files with 28 additions and 25 deletions
  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 ;
 	$(CP) xemacs/noutline.el xemacs/noutline.elc $(lispdir)
 
-org-install.el: $(LISPFILES) Makefile
+org-install.el: $(LISPFILES0) Makefile
 	$(BATCH) --eval "(require 'autoload)" \
 		--eval '(find-file "org-install.el")'  \
 		--eval '(erase-buffer)' \

+ 27 - 24
org.el

@@ -156,27 +156,28 @@ With prefix arg HERE, insert it at point."
   :group 'org
   :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...
 (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 file links, arg negates `org-context-in-file-links'."
   (interactive "P")
+  (require 'org-irc)
   (setq org-store-link-plist nil)  ; reset
   (let (link cpltxt desc description search txt)
     (cond
@@ -12827,6 +12829,7 @@ the end of the current subtree.
 Normally, files will be opened by an appropriate application.  If the
 optional argument IN-EMACS is non-nil, Emacs will visit the file."
   (interactive "P")
+  (require 'org-irc)
   (move-marker org-open-link-marker (point))
   (setq org-window-config-before-follow-link (current-window-configuration))
   (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 (listp ctxt) (memq mode 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)))
 	     org-remember-templates))
 	   ;; If no template at this point, add the default templates: