소스 검색

Merge changes from downstream emacs.

Carsten Dominik 17 년 전
부모
커밋
21ff23736c
3개의 변경된 파일10개의 추가작업 그리고 10개의 파일을 삭제
  1. 2 3
      doc/org.texi
  2. 6 6
      lisp/org-exp.el
  3. 2 1
      lisp/org-mac-message.el

+ 2 - 3
doc/org.texi

@@ -42,9 +42,8 @@ Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.2 or
 under the terms of the GNU Free Documentation License, Version 1.2 or
 any later version published by the Free Software Foundation; with no
 any later version published by the Free Software Foundation; with no
 Invariant Sections, with the Front-Cover texts being ``A GNU Manual,''
 Invariant Sections, with the Front-Cover texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.    A copy of the
- license is included in the section entitled ``GNU Free Documentation
--License.''
+and with the Back-Cover Texts as in (a) below.  A copy of the license
+is included in the section entitled ``GNU Free Documentation License.''
 
 
 (a) The FSF's Back-Cover Text is: ``You have the freedom to copy and
 (a) The FSF's Back-Cover Text is: ``You have the freedom to copy and
 modify this GNU manual.  Buying copies from the FSF supports it in
 modify this GNU manual.  Buying copies from the FSF supports it in

+ 6 - 6
lisp/org-exp.el

@@ -3003,12 +3003,12 @@ lang=\"%s\" xml:lang=\"%s\">
 	    (setq inverse nil)
 	    (setq inverse nil)
 	    (throw 'nextline nil))
 	    (throw 'nextline nil))
 	  (when inverse
 	  (when inverse
-	    (setq i (org-get-string-indentation line))
-	    (if (> i 0)
-		(setq line (concat (mapconcat 'identity
-					      (make-list (* 2 i) "\\nbsp") "")
-				   " " (org-trim line))))
-	    (setq line (concat line " \\\\")))
+	    (let ((i (org-get-string-indentation line)))
+	      (if (> i 0)
+		  (setq line (concat (mapconcat 'identity
+						(make-list (* 2 i) "\\nbsp") "")
+				     " " (org-trim line))))
+	      (setq line (concat line " \\\\"))))
 
 
 	  ;; make targets to anchors
 	  ;; make targets to anchors
 	  (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ \t]*\n?" line)
 	  (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ \t]*\n?" line)

+ 2 - 1
lisp/org-mac-message.el

@@ -32,7 +32,8 @@
 
 
 (org-add-link-type "message" 'org-mac-message-open)
 (org-add-link-type "message" 'org-mac-message-open)
 
 
-(declare-function do-applescript "mac.c" (string))
+;; In mac.c, removed in Emacs 23.
+(declare-function do-applescript "org-mac-message" (script))
 (unless (fboundp 'do-applescript)
 (unless (fboundp 'do-applescript)
   ;; Need to fake this using shell-command-to-string
   ;; Need to fake this using shell-command-to-string
   (defun do-applescript (script)
   (defun do-applescript (script)