remove `declare' macro

[bpt/emacs.git] / lisp / macros.el

diff --git a/lisp/macros.el b/lisp/macros.el
index b4f38b7..eb7f980 100644 (file)
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -1,9 +1,9 @@
 ;;; macros.el --- non-primitive commands for keyboard macros
 
 ;;; macros.el --- non-primitive commands for keyboard macros
 

-;; Copyright (C) 1985-1987, 1992, 1994-1995, 2001-2011
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 1985-1987, 1992, 1994-1995, 2001-2014 Free Software
+;; Foundation, Inc.

 
 

-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org

 ;; Keywords: abbrev
 ;; Package: emacs
 
 ;; Keywords: abbrev
 ;; Package: emacs
 


@@ -51,7 +51,8 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
 
 ;;;###autoload
 (defun insert-kbd-macro (macroname &optional keys)
 
 ;;;###autoload
 (defun insert-kbd-macro (macroname &optional keys)

-  "Insert in buffer the definition of kbd macro NAME, as Lisp code.
+  "Insert in buffer the definition of kbd macro MACRONAME, as Lisp code.
+MACRONAME should be a symbol.

 Optional second arg KEYS means also record the keys it is on
 \(this is the prefix argument, when calling interactively).
 
 Optional second arg KEYS means also record the keys it is on
 \(this is the prefix argument, when calling interactively).
 


@@ -127,7 +128,7 @@ use this command, and then save the file."
                     (delete-region (point) (1+ (point)))
                     (insert "\\M-\\C-?"))))))
       (if (vectorp definition)
                     (delete-region (point) (1+ (point)))
                     (insert "\\M-\\C-?"))))))
       (if (vectorp definition)

-         (let ((len (length definition)) (i 0) char mods)
+         (let ((len (length definition)) (i 0) char)

            (while (< i len)
              (insert (if (zerop i) ?\[ ?\s))
              (setq char (aref definition i)
            (while (< i len)
              (insert (if (zerop i) ?\[ ?\s))
              (setq char (aref definition i)