;;; macros.el --- non-primitive commands for keyboard macros
-;; Copyright (C) 1985, 86, 87, 92, 94, 95, 04 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1995, 2002, 2003,
+;; 2004, 2005 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: abbrev
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
To save a kbd macro, visit a file of Lisp code such as your `~/.emacs',
use this command, and then save the file."
- (interactive (list (intern (completing-read "Insert kbd macro (name): "
- obarray
+ (interactive (list (intern (completing-read "Insert kbd macro (name): "
+ obarray
(lambda (elt)
(and (fboundp elt)
(or (stringp (symbol-function elt))
- (vectorp (symbol-function elt)))))
+ (vectorp (symbol-function elt))
+ (get elt 'kmacro))))
t))
current-prefix-arg))
(let (definition)