From a9873dbbeb907016323fc434c8e85a2847afbc9a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 16 Jun 2005 16:13:25 +0000 Subject: (derived-mode-init-mode-variables): Fix spelling in docstrings. --- lisp/emacs-lisp/derived.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 943f052fc6d..006b6f2c588 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -320,7 +320,7 @@ which more-or-less shadow %s's corresponding tables." ;;;###autoload (defun derived-mode-init-mode-variables (mode) - "Initialise variables for a new MODE. + "Initialize variables for a new MODE. Right now, if they don't already exist, set up a blank keymap, an empty syntax table, and an empty abbrev table -- these will be merged the first time the mode is used." -- cgit v1.2.3 From 1936c9a9a83541ca50b75f0c457d0fd526156028 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 16 Jun 2005 16:14:11 +0000 Subject: (elint-init-env): Fix spelling in docstrings. --- lisp/emacs-lisp/elint.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index d4967a7cd06..806fa8e6854 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -66,7 +66,7 @@ left-margin left-margin-width line-spacing local-abbrev-table local-write-file-hooks major-mode mark-active mark-ring mode-line-buffer-identification mode-line-format mode-line-modified mode-line-process mode-name - overwrite-mode + overwrite-mode point-before-scroll right-fringe-width right-margin-width scroll-bar-width scroll-down-aggressively scroll-up-aggressively selective-display selective-display-ellipses tab-width truncate-lines vc-mode vertical-scroll-bar) @@ -298,7 +298,7 @@ Return nil if there are no more forms, t otherwise." (not (eobp))) (defun elint-init-env (forms) - "Initialise the environment from FORMS." + "Initialize the environment from FORMS." (let ((env (elint-make-env)) form) (while forms -- cgit v1.2.3 From 8665b2b6d7ab5cf7e0b2d6cec295f02b0772574e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 16 Jun 2005 16:14:56 +0000 Subject: (regexp-opt-depth): Fix spelling in docstrings. --- lisp/emacs-lisp/regexp-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 3537a83c3c1..3e0c7c8ade4 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el @@ -116,7 +116,7 @@ by \\=\\< and \\>." (defun regexp-opt-depth (regexp) "Return the depth of REGEXP. This means the number of non-shy regexp grouping constructs -\(parenthesised expressions) in REGEXP." +\(parenthesized expressions) in REGEXP." (save-match-data ;; Hack to signal an error if REGEXP does not have balanced parentheses. (string-match regexp "") -- cgit v1.2.3 From 53099cfc9e2f52e1fac6dba35c207b442957ae46 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 17 Jun 2005 11:49:17 +0000 Subject: (display-warning, lwarn, warning-minimum-log-level): Doc fixes. (warning-minimum-level, warning-minimum-log-level): Add :debug to defcustom's choices. --- lisp/ChangeLog | 9 +++++++-- lisp/emacs-lisp/warnings.el | 23 ++++++++++++++++------- 2 files changed, 23 insertions(+), 9 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2425b3af8ce..247a929262e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -28,7 +28,7 @@ * eshell/esh-test.el (eshell-test-ok, eshell-test-failed): Remove "-face" suffix from face names. - (eshell-test-ok-face, eshell-test-failed-face): + (eshell-test-ok-face, eshell-test-failed-face): New backward-compatibility aliases for renamed faces. (eshell-run-test): Use renamed eshell-test faces. @@ -47,7 +47,7 @@ (eshell-ls-unreadable-face, eshell-ls-special-face) (eshell-ls-missing-face, eshell-ls-archive-face) (eshell-ls-backup-face, eshell-ls-product-face) - (eshell-ls-clutter-face): + (eshell-ls-clutter-face): New backward-compatibility aliases for renamed faces. (eshell-ls-decorated-name): Use renamed eshell-ls faces. @@ -58,6 +58,11 @@ 2005-06-17 Juanma Barranquero + * emacs-lisp/warnings.el (display-warning, lwarn) + (warning-minimum-log-level): Doc fixes. + (warning-minimum-level, warning-minimum-log-level): + Add :debug to :type choices. + * progmodes/ada-mode.el (ada-format-paramlist) (ada-get-indent-case, ada-check-matching-start) (ada-check-defun-name, ada-goto-matching-decl-start) diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 343eda970ce..e6c3447331e 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -76,16 +76,20 @@ If a warning's severity level is lower than this, the warning is logged in the warnings buffer, but the buffer is not immediately displayed. See also `warning-minimum-log-level'." :group 'warnings - :type '(choice (const :emergency) (const :error) (const :warning)) + :type '(choice (const :emergency) (const :error) + (const :warning) (const :debug)) :version "22.1") (defvaralias 'display-warning-minimum-level 'warning-minimum-level) (defcustom warning-minimum-log-level :warning "Minimum severity level for logging a warning. If a warning severity level is lower than this, -the warning is completely ignored." +the warning is completely ignored. +Value must be lower or equal than `warning-minimum-level', +because warnings not logged aren't displayed either." :group 'warnings - :type '(choice (const :emergency) (const :error) (const :warning)) + :type '(choice (const :emergency) (const :error) + (const :warning) (const :debug)) :version "22.1") (defvaralias 'log-warning-minimum-level 'warning-minimum-log-level) @@ -203,7 +207,9 @@ or a list of symbols whose first element is a custom group name. \(The rest of the symbols represent subcategories, for warning purposes only, and you can use whatever symbols you like.) -LEVEL should be either :warning, :error, or :emergency. +LEVEL should be either :debug, :warning, :error, or :emergency +\(but see `warning-minimum-level' and `warning-minimum-log-level'). + :emergency -- a problem that will seriously impair Emacs operation soon if you do not attend to it promptly. :error -- data or circumstances that are inherently wrong. @@ -223,7 +229,7 @@ See also `warning-series', `warning-prefix-function' and (if (assq level warning-level-aliases) (setq level (cdr (assq level warning-level-aliases)))) (or (< (warning-numeric-level level) - (warning-numeric-level warning-minimum-log-level)) + (warning-numeric-level warning-minimum-log-level)) (warning-suppress-p type warning-suppress-log-types) (let* ((typename (if (consp type) (car type) type)) (buffer (get-buffer-create (or buffer-name "*Warnings*"))) @@ -291,11 +297,14 @@ or a list of symbols whose first element is a custom group name. \(The rest of the symbols represent subcategories and can be whatever you like.) -LEVEL should be either :warning, :error, or :emergency. +LEVEL should be either :debug, :warning, :error, or :emergency +\(but see `warning-minimum-level' and `warning-minimum-log-level'). + :emergency -- a problem that will seriously impair Emacs operation soon if you do not attend to it promptly. :error -- invalid data or circumstances. -:warning -- suspicious data or circumstances." +:warning -- suspicious data or circumstances. +:debug -- info for debugging only." (display-warning type (apply 'format message args) level)) ;;;###autoload -- cgit v1.2.3 From 8a33e9f1ca3a461f6b318ba97ff77556d6fac300 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 17 Jun 2005 14:32:46 +0000 Subject: (edebug-goto-here): Doc fix. --- lisp/emacs-lisp/edebug.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 54325c87b6d..e9c767961cd 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -3323,7 +3323,7 @@ With prefix ARG, set temporary break at current point and go." (defun edebug-goto-here () - "Proceed to this stop point." + "Proceed to first stop-point at or after current position of point." (interactive) (edebug-go-mode t)) -- cgit v1.2.3