Browse Source

Merge remote-tracking branch 'origin/master'

Marco Wahl 5 years ago
parent
commit
b3d1e54877
3 changed files with 4 additions and 2 deletions
  1. 2 0
      lisp/org-agenda.el
  2. 1 2
      lisp/org.el
  3. 1 0
      testing/lisp/test-org-agenda.el

+ 2 - 0
lisp/org-agenda.el

@@ -2197,8 +2197,10 @@ The following commands are available:
 
 \\{org-agenda-mode-map}"
   (interactive)
+  (ignore-errors (require 'face-remap))
   (let ((agenda-local-vars-to-keep
 	 '(text-scale-mode-amount
+	   text-scale-mode
 	   text-scale-mode-lighter
 	   face-remapping-alist))
 	(save (buffer-local-variables)))

+ 1 - 2
lisp/org.el

@@ -8735,8 +8735,7 @@ a link."
        ((memq type '(headline inlinetask))
 	(org-match-line org-complex-heading-regexp)
 	(let ((tags-beg (match-beginning 5))
-	      (tags-end (match-end 5))
-	      (tags-str (match-string 5)))
+	      (tags-end (match-end 5)))
 	  (if (and tags-beg (>= (point) tags-beg) (< (point) tags-end))
 	      ;; On tags.
 	      (org-tags-view

+ 1 - 0
testing/lisp/test-org-agenda.el

@@ -157,6 +157,7 @@
      (text-scale-set 11)
      (cl-assert (and (boundp text-scale-mode) text-scale-mode))
      (org-agenda-redo)
+     (should text-scale-mode)
      (should (= 11 text-scale-mode-amount)))
    (org-test-agenda--kill-all-agendas)))