Mercurial > emacs
diff lisp/cedet/srecode/insert.el @ 105328:2f2bc20297c6
Doc/message fixes.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 01 Oct 2009 03:08:03 +0000 |
parents | 801834237f9c |
children | 7f4c7f5c0eba |
line wrap: on
line diff
--- a/lisp/cedet/srecode/insert.el Thu Oct 01 02:50:00 2009 +0000 +++ b/lisp/cedet/srecode/insert.el Thu Oct 01 03:08:03 2009 +0000 @@ -1,6 +1,6 @@ ;;; srecode/insert --- Insert srecode templates to an output stream. -;;; Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> @@ -69,7 +69,7 @@ ;;;###autoload (defun srecode-insert (template-name &rest dict-entries) - "Inesrt the template TEMPLATE-NAME into the current buffer at point. + "Insert the template TEMPLATE-NAME into the current buffer at point. DICT-ENTRIES are additional dictionary values to add." (interactive (list (srecode-read-template-name "Template Name: "))) (if (not (srecode-table)) @@ -424,7 +424,7 @@ (let ((srecode-inserter-variable-current-dictionary dictionary)) (funcall fcnpart value)) ;; Else, warn. - (error "Variable insertion second arg %s is not a function." + (error "Variable insertion second arg %s is not a function" secondname))) value)) @@ -461,11 +461,11 @@ ) ;; Dictionaries... not allowed in this style ((srecode-dictionary-child-p val) - (error "Macro %s cannot insert a dictionary. Use section macros instead." + (error "Macro %s cannot insert a dictionary - use section macros instead" name)) ;; Other stuff... convert (t - (error "Macro %s cannot insert arbitrary data." name) + (error "Macro %s cannot insert arbitrary data" name) ;;(if (and val (not (stringp val))) ;; (setq val (format "%S" val)))) )) @@ -654,7 +654,7 @@ (if (eq pad 'left) (concat padchars value) (concat value padchars))))) - (error "Width not specified for variable/width inserter."))) + (error "Width not specified for variable/width inserter"))) (defmethod srecode-inserter-prin-example :STATIC ((ins srecode-template-inserter-width) escape-start escape-end) @@ -668,7 +668,7 @@ ) (defvar srecode-template-inserter-point-override nil - "When non-nil, the point inserter will do this functin instead.") + "When non-nil, the point inserter will do this function instead.") (defclass srecode-template-inserter-point (srecode-template-inserter) ((key :initform ?^ @@ -851,7 +851,7 @@ ) ;; If there was no template name, throw an error (if (not templatenamepart) - (error "Include macro %s needs a template name." (oref sti :object-name))) + (error "Include macro %s needs a template name" (oref sti :object-name))) ;; Find the template by name, and save it. (if (or (not (slot-boundp sti 'includedtemplate)) (not (oref sti includedtemplate)))