Mercurial > emacs
comparison lisp/simple.el @ 57853:d50014ac219f
(keyboard-quit): Call kmacro-keyboard-quit.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 01 Nov 2004 23:03:12 +0000 |
| parents | 4d4bfb9781e1 |
| children | e24a83048e7b 7a0245dd1848 e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57852:80d07ebd59fa | 57853:d50014ac219f |
|---|---|
| 1 ;;; simple.el --- basic editing commands for Emacs | 1 ;;; simple.el --- basic editing commands for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, | 3 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, |
| 4 ;; 2000, 01, 02, 03, 04 | 4 ;; 2000, 01, 02, 03, 2004 |
| 5 ;; Free Software Foundation, Inc. | 5 ;; Free Software Foundation, Inc. |
| 6 | 6 |
| 7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 8 ;; Keywords: internal | 8 ;; Keywords: internal |
| 9 | 9 |
| 3914 "Signal a `quit' condition. | 3914 "Signal a `quit' condition. |
| 3915 During execution of Lisp code, this character causes a quit directly. | 3915 During execution of Lisp code, this character causes a quit directly. |
| 3916 At top-level, as an editor command, this simply beeps." | 3916 At top-level, as an editor command, this simply beeps." |
| 3917 (interactive) | 3917 (interactive) |
| 3918 (deactivate-mark) | 3918 (deactivate-mark) |
| 3919 (if (fboundp 'kmacro-keyboard-quit) | |
| 3920 (kmacro-keyboard-quit)) | |
| 3919 (setq defining-kbd-macro nil) | 3921 (setq defining-kbd-macro nil) |
| 3920 (signal 'quit nil)) | 3922 (signal 'quit nil)) |
| 3921 | 3923 |
| 3922 (define-key global-map "\C-g" 'keyboard-quit) | 3924 (define-key global-map "\C-g" 'keyboard-quit) |
| 3923 | 3925 |