From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Richard Subject: Bug: Prettier keybinding descriptions for orgtbl-mode [8.0.7 (release_8.0.7-437-g927c0e @ /home/youngfrog/sources/org-mode/lisp/)] Date: Fri, 22 Nov 2013 22:22:16 +0100 Message-ID: <87mwkwdtdj.fsf@yahoo.fr> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42984) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VjyB4-0007cM-Na for emacs-orgmode@gnu.org; Fri, 22 Nov 2013 16:22:20 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VjyAz-0005h7-23 for emacs-orgmode@gnu.org; Fri, 22 Nov 2013 16:22:14 -0500 Received: from mxin.ulb.ac.be ([164.15.128.112]:33395) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VjyAy-0005h2-RY for emacs-orgmode@gnu.org; Fri, 22 Nov 2013 16:22:08 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi, This small patch makes key descriptions a little nicer ; those that are shown in the various orgtbl-hijacker-command-... functions. Emacs : GNU Emacs 24.3.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2013-10-24 on geodiff-mac3 Package: Org-mode version 8.0.7 (release_8.0.7-437-g927c0e @ /home/youngfrog/sources/org-mode/lisp/) --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0002-Prettier-key-descriptions-in-orgtbl-mode.patch >From 08bbff5e2ce6b6b9d750b0a9319701a2eecd45bd Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Tue, 12 Nov 2013 09:02:23 +0100 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 81c681b..6526166 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4141,7 +4141,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 -- 1.8.1.5 --=-=-= Content-Type: text/plain -- Nico. --=-=-=--