Mercurial > emacs
comparison lisp/gud.el @ 9191:c534cf011c77
Really delete gud-overload-functions.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 30 Sep 1994 09:12:09 +0000 |
parents | 4e66c15e2d6c |
children | c7925093b270 |
comparison
equal
deleted
inserted
replaced
9190:4e66c15e2d6c | 9191:c534cf011c77 |
---|---|
46 (defvar gud-key-prefix "\C-x\C-a" | 46 (defvar gud-key-prefix "\C-x\C-a" |
47 "Prefix of all GUD commands valid in C buffers.") | 47 "Prefix of all GUD commands valid in C buffers.") |
48 | 48 |
49 (global-set-key (concat gud-key-prefix "\C-l") 'gud-refresh) | 49 (global-set-key (concat gud-key-prefix "\C-l") 'gud-refresh) |
50 (define-key ctl-x-map " " 'gud-break) ;; backward compatibility hack | 50 (define-key ctl-x-map " " 'gud-break) ;; backward compatibility hack |
51 | |
52 ;; ====================================================================== | |
53 ;; the overloading mechanism | |
54 | |
55 (defun gud-overload-functions (gud-overload-alist) | |
56 "Overload functions defined in GUD-OVERLOAD-ALIST. | |
57 This association list has elements of the form | |
58 (ORIGINAL-FUNCTION-NAME OVERLOAD-FUNCTION)" | |
59 (mapcar | |
60 (function (lambda (p) (fset (car p) (symbol-function (cdr p))))) | |
61 gud-overload-alist)) | |
62 | 51 |
63 (defvar gud-massage-args nil) | 52 (defvar gud-massage-args nil) |
64 (put 'gud-massage-args 'permanent-local t) | 53 (put 'gud-massage-args 'permanent-local t) |
65 (defvar gud-marker-filter nil) | 54 (defvar gud-marker-filter nil) |
66 (put 'gud-marker-filter 'permanent-local t) | 55 (put 'gud-marker-filter 'permanent-local t) |