Преглед на файлове

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Eric Schulte преди 15 години
родител
ревизия
839a60f310
променени са 2 файла, в които са добавени 4 реда и са изтрити 7 реда
  1. 4 3
      lisp/org-exp.el
  2. 0 4
      lisp/org.el

+ 4 - 3
lisp/org-exp.el

@@ -2608,9 +2608,10 @@ command."
 	;; does do the trick.
 	(if (looking-at "#[^\r\n]*")
 	    (append-to-buffer buffer (match-beginning 0) (1+ (match-end 0))))
-	(while (re-search-forward "[\n\r]#[^\n\r]*" nil t)
-	  (append-to-buffer buffer (1+ (match-beginning 0))
-			    (min (point-max) (1+ (match-end 0))))))
+	(when (re-search-forward "^\\*+[ \t]+" nil t)
+	  (while (re-search-backward "[\n\r]#[^\n\r]*" nil t)
+	    (append-to-buffer buffer (1+ (match-beginning 0))
+			      (min (point-max) (1+ (match-end 0)))))))
       (set-buffer buffer)
       (let ((buffer-file-name file)
 	    (org-inhibit-startup t))

+ 0 - 4
lisp/org.el

@@ -9170,10 +9170,6 @@ application the system uses for this file type."
 	      (dired path)
 	    (org-open-file path in-emacs line search)))
 
-	 ((string= type "news")
-	  (require 'org-gnus)
-	  (org-gnus-follow-link path))
-
 	 ((string= type "shell")
 	  (let ((cmd path))
 	    (if (or (not org-confirm-shell-link-function)