Mercurial > emacs
comparison lisp/subr.el @ 1166:45fbb83b8160
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 19 Sep 1992 07:51:41 +0000 |
parents | e18597ff3c95 |
children | 60e0dc538df3 |
comparison
equal
deleted
inserted
replaced
1165:8aa120c74487 | 1166:45fbb83b8160 |
---|---|
75 (signal 'error (list (apply 'format args))))) | 75 (signal 'error (list (apply 'format args))))) |
76 | 76 |
77 (defun undefined () | 77 (defun undefined () |
78 (interactive) | 78 (interactive) |
79 (ding)) | 79 (ding)) |
80 | |
81 ;; Some programs still use this as a function. | |
82 (defun baud-rate () | |
83 "Obsolete function returning the value of the `baud-rate' variable." | |
84 baud-rate) | |
80 | 85 |
81 ;Prevent the \{...} documentation construct | 86 ;Prevent the \{...} documentation construct |
82 ;from mentioning keys that run this command. | 87 ;from mentioning keys that run this command. |
83 (put 'undefined 'suppress-keymap t) | 88 (put 'undefined 'suppress-keymap t) |
84 | 89 |