+2010-02-14 Juanma Barranquero <lekktu@gmail.com>
+
+ * outline.el (outline-head-from-level):
+ * simple.el (with-wrapper-hook):
+ * cedet/ede.el (ede-run-target, project-delete-target)
+ (project-dist-files, ede-name, ede-documentation, ede-parent-project)
+ (ede-adebug-project, ede-adebug-project-parent)
+ (ede-adebug-project-root):
+ * emacs-lisp/elint.el (elint-extra-errors, elint-current-buffer)
+ (elint-defun, elint-buffer-env, elint-top-form-logged)
+ (elint-unbound-variable):
+ * textmodes/reftex-toc.el (reftex-toc-newhead-from-alist):
+ Fix typos in docstrings.
+
2010-02-14 Michael Albinus <michael.albinus@gmx.de>
* files.el (insert-directory): When WILDCARD-REGEXP and
(ede-invoke-method 'project-debug-target))
(defun ede-run-target ()
- "Debug the current buffer's assocated target."
+ "Run the current buffer's associated target."
(interactive)
(ede-invoke-method 'project-run-target))
(error "New-target-custom not supported by %s" (object-name proj)))
(defmethod project-delete-target ((ot ede-target))
- "Delete the current target OT from it's parent project."
+ "Delete the current target OT from its parent project."
(error "add-file not supported by %s" (object-name ot)))
(defmethod project-compile-project ((obj ede-project) &optional command)
(error "Make-dist not supported by %s" (object-name this)))
(defmethod project-dist-files ((this ede-project))
- "Return a list of files that constitutes a distribution of THIS project."
+ "Return a list of files that constitute a distribution of THIS project."
(error "Dist-files is not supported by %s" (object-name this)))
(defmethod project-rescan ((this ede-project))
;; b) cosmetic.
(defmethod ede-name ((this ede-target))
- "Return the name of THIS targt."
+ "Return the name of THIS target."
(oref this name))
(defmethod ede-target-name ((this ede-target))
(ede-buffer-documentation-files cp (current-buffer))))))
(defmethod ede-documentation ((this ede-project))
- "Return a list of files that provides documentation.
+ "Return a list of files that provide documentation.
Documentation is not for object THIS, but is provided by THIS for other
files in the project."
(let ((targ (oref this targets))
found))
(defmethod ede-documentation ((this ede-target))
- "Return a list of files that provides documentation.
+ "Return a list of files that provide documentation.
Documentation is not for object THIS, but is provided by THIS for other
files in the project."
nil)
(defun ede-parent-project (&optional obj)
"Return the project belonging to the parent directory.
-nil if there is no previous directory.
+Returns nil if there is no previous directory.
Optional argument OBJ is an object to find the parent of."
(let* ((proj (or obj ede-object-project)) ;; Current project.
(root (if obj (ede-project-root obj)
;;; Debugging.
(defun ede-adebug-project ()
- "Run adebug against the current ede project.
+ "Run adebug against the current EDE project.
Display the results as a debug list."
(interactive)
(require 'data-debug)
))
(defun ede-adebug-project-parent ()
- "Run adebug against the current ede parent project.
+ "Run adebug against the current EDE parent project.
Display the results as a debug list."
(interactive)
(require 'data-debug)
))
(defun ede-adebug-project-root ()
- "Run adebug against the current ede parent project.
+ "Run adebug against the current EDE parent project.
Display the results as a debug list."
(interactive)
(require 'data-debug)
\f
;;; Hooks & Autoloads
;;
-;; These let us watch various activities, and respond apropriatly.
+;; These let us watch various activities, and respond appropriately.
;; (add-hook 'edebug-setup-hook
;; (lambda ()
"Those built-ins for which we can't find arguments, if any.")
(defvar elint-extra-errors '(file-locked file-supersession ftp-error)
- "Errors without error-message or error-confitions properties.")
+ "Errors without `error-message' or `error-conditions' properties.")
(defconst elint-preloaded-skip-re
(regexp-opt '("loaddefs.el" "loadup.el" "cus-start" "language/"
;;;###autoload
(defun elint-current-buffer ()
"Lint the current buffer.
-If necessary, this first calls `elint-initalize'."
+If necessary, this first calls `elint-initialize'."
(interactive)
(or elint-builtin-variables
(elint-initialize))
;;;###autoload
(defun elint-defun ()
"Lint the function at point.
-If necessary, this first calls `elint-initalize'."
+If necessary, this first calls `elint-initialize'."
(interactive)
(or elint-builtin-variables
(elint-initialize))
;;;
(defvar elint-buffer-env nil
- "The environment of a elisp buffer.
+ "The environment of an elisp buffer.
Will be local in linted buffers.")
(defvar elint-buffer-forms nil
"The currently linted top form, or nil.")
(defvar elint-top-form-logged nil
- "T if the currently linted top form has been mentioned in the log buffer.")
+ "The value t if the currently linted top form has been mentioned in the log buffer.")
(defun elint-top-form (form)
"Lint a top FORM."
"Name of a temporarily bound symbol.")
(defun elint-unbound-variable (var env)
- "T if VAR is unbound in ENV."
+ "Return t if VAR is unbound in ENV."
;; #1063 suggests adding (symbol-file var) here, but I don't think
;; this is right, because it depends on what files you happen to have
;; loaded at the time, which might not be the same when the code runs.
ALIST defaults to `outline-heading-alist'.
Similar to (car (rassoc LEVEL ALIST)).
If there are several different entries with same new level, choose
-the one with the smallest distance to the assocation of HEAD in the alist.
+the one with the smallest distance to the association of HEAD in the alist.
This makes it possible for promotion to work in modes with several
independent sets of headings (numbered, unnumbered, appendix...)"
(unless alist (setq alist outline-heading-alist))
a hook, with a buffer-local and a global part. But it can also be an
arbitrary expression.
ARGS is a list of variables which will be passed as additional arguments
-to each function, after the inital argument, and which the first argument
+to each function, after the initial argument, and which the first argument
expects to receive when called."
(declare (indent 2) (debug t))
;; We need those two gensyms because CL's lexical scoping is not available
(defun reftex-toc-newhead-from-alist (nlevel head alist)
"Get new heading with level NLEVEL from ALIST.
If there are no such entries, return nil.
-If there are several different entries with same new level, choose
-the one with the smallest distance to the assocation of HEAD in the alist.
+If there are several different entries with same new level, choose the
+one with the smallest distance to the association of HEAD in the alist.
This makes it possible for promotion to work several sets of headings,
if these sets are sorted blocks in the alist."
(let* ((al alist)
projects / emacs.git / commitdiff