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 |