From a598e9c163428be457424a64b2edb0391a3e965a Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Thu, 7 Nov 2013 09:15:36 +0100 Subject: [PATCH 1/2] Remove old comment The comment was introduced (in git) at commit 4be4c56239c224094e717dcd57068f58f99c2dfc ; it refers to a FIXME located ~40 lines above it. The FIXME was removed in dc8bc8e39230bde1eca569c564e65bf85c43de54. --- lisp/org.el | 3 --- 1 file changed, 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index f18919875..b84855a91 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19505,9 +19505,6 @@ because, in this case the deletion might narrow the column." (put 'org-self-insert-command 'pabbrev-expand-after-command t) (put 'orgtbl-self-insert-command 'pabbrev-expand-after-command t) -;; How to do this: Measure non-white length of current string -;; If equal to column width, we should realign. - (defun org-remap (map &rest commands) "In MAP, remap the functions given in COMMANDS. COMMANDS is a list of alternating OLDDEF NEWDEF command names." From 9ff70abc14e901ce481cb605c0d572581dd40716 Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Tue, 12 Nov 2013 09:02:23 +0100 Subject: [PATCH 2/2] Use key-description on the keys mentionned by the functions defined by `orgtbl-mode'. --- lisp/org-table.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index fa66ed0a1..8418cf6fb 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4124,7 +4124,7 @@ to execute outside of tables." '(arg) (concat "In tables, run `" (symbol-name fun) "'.\n" "Outside of tables, run the binding of `" - (mapconcat (lambda (x) (format "%s" x)) keys "' or `") + (mapconcat #'key-description keys "' or `") "'.") '(interactive "p") (list 'if