Browse Source

Merge branch 'maint'

Kyle Meyer 3 years ago
parent
commit
2d965df01a
2 changed files with 11 additions and 6 deletions
  1. 5 5
      lisp/ob-C.el
  2. 6 1
      lisp/org-agenda.el

+ 5 - 5
lisp/ob-C.el

@@ -481,11 +481,11 @@ specifying a variable with the name of the table."
   (let ((table (car head))
         (headers (cdr head))
         (typename (pcase type
-                    ('integerp "int")
-                    ('floatp "double")
-                    ('stringp (pcase org-babel-c-variant
-                                ((or 'c 'cpp) "const char*")
-                                ('d "string"))))))
+                    (`integerp "int")
+                    (`floatp "double")
+                    (`stringp (pcase org-babel-c-variant
+                                ((or `c `cpp) "const char*")
+                                (`d "string"))))))
     (concat
       (pcase org-babel-c-variant
 	((or `c `cpp)

+ 6 - 1
lisp/org-agenda.el

@@ -9798,7 +9798,12 @@ When called programmatically, FORCE-DIRECTION can be `set', `up',
 				  (line-end-position)
 				  '(display nil))
 	  (org-move-to-column
-	   (- (/ (window-width nil t) (window-font-width)) (length stamp)) t)
+           (- (if (fboundp 'window-font-width)
+                  (/ (window-width nil t) (window-font-width))
+                ;; Fall back to pre-9.3.3 behavior on Emacs <25.
+                (window-width))
+              (length stamp))
+           t)
           (add-text-properties
 	   (1- (point)) (point-at-eol)
 	   (list 'display (org-add-props stamp nil