;;; remap-for-emacs.el --- console key sequences for Emacs ;; Copyright 2012, 2013, 2014, 2017, 2019, 2021, 2022 Kevin Ryde ;; ;; Author: Kevin Ryde ;; Version: 1 ;; Keywords: terminals, Linux ;; URL: http://user42.tuxfamily.org/remap-for-emacs/index.html ;; remap-for-emacs.el is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as published ;; by the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; ;; remap-for-emacs.el is distributed in the hope that it will be ;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General ;; Public License for more details. ;; ;; You can get a copy of the GNU General Public License online at ;; . ;;; Commentary: ;; ;; This is Emacs setups for the Linux console key sequences defined in the ;; accompanying remap-for-emacs.inc. ;; ;; Some key sequences from remap-for-emacs.inc are already recognised Emacs ;; and need nothing more. Other sequences are done here through ;; `function-key-map'. ;; ;;; History: ;; Version 1 - the first version ;;; Code: ;; `input-decode-map' is new in emacs24 ;; is it now the better place for these mappings ? (define-key function-key-map "\033_Ctab\033\\" [(control tab)]) (define-key function-key-map "\033_Cret\033\\" [(control return)]) (define-key function-key-map "\033_Cf1\033\\" [(control f1)]) (define-key function-key-map "\033_Cf2\033\\" [(control f2)]) (define-key function-key-map "\033_Cf3\033\\" [(control f3)]) (define-key function-key-map "\033_Cf4\033\\" [(control f4)]) (define-key function-key-map "\033_Cf5\033\\" [(control f5)]) (define-key function-key-map "\033_Cf6\033\\" [(control f6)]) (define-key function-key-map "\033_Cf7\033\\" [(control f7)]) (define-key function-key-map "\033_Cf8\033\\" [(control f8)]) (define-key function-key-map "\033_Cf9\033\\" [(control f9)]) (define-key function-key-map "\033_Cf10\033\\" [(control f10)]) (define-key function-key-map "\033_Cf11\033\\" [(control f11)]) (define-key function-key-map "\033_Cf12\033\\" [(control f12)]) (define-key function-key-map "\033_C%\033\\" [(control ?%)]) (provide 'remap-for-emacs) ;;; remap-for-emacs.el ends here