Mercurial > emacs

comparison lisp/gud.el @ 9191:c534cf011c77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)