[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog allout.el dired-aux.el dir...
|
From: |
Juanma Barranquero |
|
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog allout.el dired-aux.el dir... |
|
Date: |
Thu, 24 Sep 2009 01:37:24 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 09/09/24 01:37:22
Modified files:
lisp : ChangeLog allout.el dired-aux.el dired-x.el
dired.el epa-file.el ps-print.el shell.el
vc-hooks.el vc-rcs.el vc-sccs.el vc.el view.el
wdired.el
lisp/emacs-lisp: authors.el
lisp/net : dig.el net-utils.el socks.el zeroconf.el
lisp/obsolete : vc-mcvs.el
lisp/progmodes : gdb-mi.el grep.el idlw-help.el idlw-shell.el
idlwave.el inf-lisp.el
lisp/textmodes : bibtex.el ispell.el reftex-toc.el
Log message:
Fix typos.
* allout.el
* dired-aux.el
* dired-x.el
* epa-file.el
* ps-print.el
* shell.el
* vc-hooks.el
* vc-rcs.el
* vc-sccs.el
* vc.el
* view.el
* wdired.el
* emacs-lisp/authors.el
* net/dig.el
* net/socks.el
* net/zeroconf.el
* obsolete/vc-mcvs.el
* progmodes/gdb-mi.el
* progmodes/grep.el
* progmodes/idlw-help.el
* progmodes/idlw-shell.el
* progmodes/idlwave.el
* progmodes/inf-lisp.el
* textmodes/bibtex.el
* textmodes/ispell.el
* textmodes/reftex-toc.el
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16243&r2=1.16244
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/allout.el?cvsroot=emacs&r1=1.115&r2=1.116
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired-aux.el?cvsroot=emacs&r1=1.193&r2=1.194
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired-x.el?cvsroot=emacs&r1=1.100&r2=1.101
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired.el?cvsroot=emacs&r1=1.429&r2=1.430
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/epa-file.el?cvsroot=emacs&r1=1.20&r2=1.21
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ps-print.el?cvsroot=emacs&r1=1.228&r2=1.229
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/shell.el?cvsroot=emacs&r1=1.165&r2=1.166
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.282&r2=1.283
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-rcs.el?cvsroot=emacs&r1=1.92&r2=1.93
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-sccs.el?cvsroot=emacs&r1=1.66&r2=1.67
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc.el?cvsroot=emacs&r1=1.729&r2=1.730
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/view.el?cvsroot=emacs&r1=1.105&r2=1.106
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/wdired.el?cvsroot=emacs&r1=1.43&r2=1.44
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/authors.el?cvsroot=emacs&r1=1.62&r2=1.63
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/dig.el?cvsroot=emacs&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/net-utils.el?cvsroot=emacs&r1=1.39&r2=1.40
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/socks.el?cvsroot=emacs&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/zeroconf.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/obsolete/vc-mcvs.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.50&r2=1.51
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.107&r2=1.108
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlw-help.el?cvsroot=emacs&r1=1.27&r2=1.28
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlw-shell.el?cvsroot=emacs&r1=3.69&r2=3.70
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlwave.el?cvsroot=emacs&r1=3.78&r2=3.79
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/inf-lisp.el?cvsroot=emacs&r1=1.51&r2=1.52
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/bibtex.el?cvsroot=emacs&r1=1.148&r2=1.149
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.257&r2=1.258
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-toc.el?cvsroot=emacs&r1=1.48&r2=1.49
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16243
retrieving revision 1.16244
diff -u -b -r1.16243 -r1.16244
--- ChangeLog 24 Sep 2009 01:20:36 -0000 1.16243
+++ ChangeLog 24 Sep 2009 01:37:14 -0000 1.16244
@@ -1,3 +1,121 @@
+2009-09-24 Juanma Barranquero <address@hidden>
+
+ * allout.el (allout-overlay-interior-modification-handler)
+ (allout-obtain-passphrase):
+ * epa-file.el (epa-file-write-region):
+ * ps-print.el (ps-begin-job):
+ * vc-hooks.el (vc-toggle-read-only):
+ * vc-rcs.el (vc-rcs-rollback):
+ * vc-sccs.el (vc-sccs-rollback):
+ * vc.el (vc-deduce-fileset, vc-next-action, vc-register-with)
+ (vc-version-diff, vc-revert, vc-rollback):
+ * wdired.el (wdired-check-kill-buffer):
+ * emacs-lisp/authors.el (authors):
+ * net/socks.el (socks-open-connection):
+ * net/zeroconf.el (zeroconf-service-add-hook):
+ * obsolete/vc-mcvs.el (vc-mcvs-register):
+ * progmodes/gdb-mi.el (def-gdb-thread-buffer-gud-command)
+ (gdb-select-frame):
+ * progmodes/grep.el (lgrep, rgrep):
+ * progmodes/idlw-help.el (idlwave-help-check-locations)
+ (idlwave-help-html-link, idlwave-help-assistant-open-link):
+ * textmodes/ispell.el (ispell-find-aspell-dictionaries):
+ * textmodes/reftex-toc.el (reftex-toc-promote-prepare)
+ (reftex-toc-rename-label): Fix typos in error messages.
+
+ * dired-aux.el (dired-do-shell-command): Reflow docstring.
+ (dired-copy-how-to-fn): Doc fix.
+ (dired-files-attributes, dired-read-shell-command):
+ Fix typos in docstrings.
+
+ * dired-x.el (dired-enable-local-variables, dired-filename-at-point)
+ (dired-x-find-file-other-window): Reflow docstrings.
+ (dired-omit-marker-char, dired-read-shell-command)
+ (dired-x-submit-report): Fix typos in docstrings.
+
+ * shell.el (shell-mode-hook):
+ * view.el (View-scroll-line-forward):
+ * progmodes/inf-lisp.el (inferior-lisp-mode-hook):
+ Fix typos in docstrings.
+
+ * net/dig.el (dig-invoke): Fix typo in docstring.
+ (query-dig): Reflow docstring.
+
+ * progmodes/idlwave.el (idlwave-create-user-catalog-file)
+ (idlwave-quoted, idlwave-rinfo-max-source-lines): Doc fixes.
+ (idlwave-abbrev-move, idlwave-auto-routine-info-updates)
+ (idlwave-begin-block-reg, idlwave-begin-unit-reg)
+ (idlwave-beginning-of-subprogram, idlwave-block-jump-out)
+ (idlwave-block-match-regexp, idlwave-calculate-paren-indent)
+ (idlwave-check-abbrev, idlwave-class-file-or-buffer)
+ (idlwave-class-found-in, idlwave-complete, idlwave-complete-in-buffer)
+ (idlwave-completion-map, idlwave-current-indent)
+ (idlwave-custom-ampersand-surround, idlwave-customize)
+ (idlwave-default-font-lock-items, idlwave-default-insert-timestamp)
+ (idlwave-define-abbrev, idlwave-determine-class-special)
+ (idlwave-do-action, idlwave-doc-header, idlwave-doc-modification)
+ (idlwave-end-block-reg, idlwave-end-of-statement)
+ (idlwave-end-of-statement0, idlwave-end-of-subprogram)
+ (idlwave-end-unit-reg, idlwave-entry-find-keyword)
+ (idlwave-explicit-class-listed, idlwave-file-header)
+ (idlwave-fill-paragraph, idlwave-find-class-definition)
+ (idlwave-fix-keywords, idlwave-hang-indent-regexp, idlwave-hard-tab)
+ (idlwave-idlwave_routine_info-compiled, idlwave-in-comment)
+ (idlwave-in-quote, idlwave-indent-action-table)
+ (idlwave-indent-expand-table, idlwave-indent-line)
+ (idlwave-indent-subprogram, idlwave-indent-to-open-paren)
+ (idlwave-is-comment-line, idlwave-is-comment-or-empty-line)
+ (idlwave-is-continuation-line, idlwave-is-pointer-dereference)
+ (idlwave-kill-autoloaded-buffers, idlwave-lib-p, idlwave-look-at)
+ (idlwave-make-tags, idlwave-mode, idlwave-mode-abbrev-table)
+ (idlwave-mouse-active-rinfo, idlwave-newline, idlwave-no-change-comment)
+ (idlwave-outlawed-buffers, idlwave-popup-select)
+ (idlwave-previous-statement, idlwave-rescan-catalog-directories)
+ (idlwave-routine-entry-compare, idlwave-routine-info.pro)
+ (idlwave-scan-all-buffers-for-routine-info, idlwave-scan-class-info)
+ (idlwave-shell-automatic-start, idlwave-shell-explicit-file-name)
+ (idlwave-show-begin, idlwave-split-line, idlwave-split-link-target)
+ (idlwave-statement-type, idlwave-struct-skip)
+ (idlwave-substitute-link-target, idlwave-toggle-comment-region)
+ (idlwave-update-current-buffer-info, idlwave-use-library-catalogs)
+ (idlwave-what-module-find-class): Fix typos in docstrings.
+ (idlwave-all-method-classes, idlwave-calc-hanging-indent)
+ (idlwave-calculate-cont-indent, idlwave-expand-equal)
+ (idlwave-find-module, idlwave-find-structure-definition)
+ (idlwave-init-rinfo-when-idle-after, idlwave-insert-source-location)
+ (idlwave-list-load-path-shadows, idlwave-next-statement)
+ (idlwave-routine-entry-compare-twins, idlwave-routine-info)
+ (idlwave-routines, idlwave-sintern-rinfo-list, idlwave-statement-match)
+ (idlwave-template): Reflow docstrings.
+
+ * progmodes/idlw-shell.el (idlwave-shell-syntax-error): Doc fix.
+ (idlwave-shell-batch-command, idlwave-shell-bp-alist)
+ (idlwave-shell-bp-get, idlwave-shell-bp-overlays)
+ (idlwave-shell-bp-query, idlwave-shell-break-here, idlwave-shell-buffer)
+ (idlwave-shell-display-line, idlwave-shell-display-wframe)
+ (idlwave-shell-electric-debug-mode, idlwave-shell-examine-select)
+ (idlwave-shell-file-name-chars, idlwave-shell-filter-bp)
+ (idlwave-shell-goto-frame, idlwave-shell-halt-messages-re)
+ (idlwave-shell-highlighting-and-faces, idlwave-shell-idl-wframe)
+ (idlwave-shell-mode-hook, idlwave-shell-mode-line-info)
+ (idlwave-shell-mode-map, idlwave-shell-module-source-filter)
+ (idlwave-shell-mouse-help, idlwave-shell-mouse-print)
+ (idlwave-shell-pc-frame, idlwave-shell-pending-commands)
+ (idlwave-shell-print, idlwave-shell-quit, idlwave-shell-redisplay)
+ (idlwave-shell-scan-for-state, idlwave-shell-send-command)
+ (idlwave-shell-sentinel-hook, idlwave-shell-separate-examine-output)
+ (idlwave-shell-shell-command, idlwave-shell-sources-alist)
+ (idlwave-shell-sources-bp, idlwave-shell-sources-filter)
+ (idlwave-shell-step, idlwave-shell-use-breakpoint-glyph)
+ (idlwave-toolbar-add-everywhere, idlwave-toolbar-toggle):
+ Fix typos in docstrings.
+ (idlwave-shell-bp, idlwave-shell-clear-current-bp)
+ (idlwave-shell-hide-output, idlwave-shell-mode)
+ (idlwave-shell-run-region, idlwave-shell-set-bp-in-module):
+ Reflow docstrings.
+
+ * textmodes/bibtex.el (bibtex-sort-entry-class): Fix group name.
+
2009-09-24 Ivan Kanis <address@hidden>
* term.el (term-bold-attribute): New var.
@@ -353,7 +471,7 @@
* iswitchb.el (iswitchb-read-buffer): When selecting a match from
the virtual-buffers, use the name of the buffer specified by
find-file-noselect, as the match may be a symlink. (This was a
- problem if the target and the symlink had differet names.)
+ problem if the target and the symlink had different names.)
2009-09-15 Stefan Monnier <address@hidden>
Index: allout.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/allout.el,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -b -r1.115 -r1.116
--- allout.el 18 Sep 2009 07:49:50 -0000 1.115
+++ allout.el 24 Sep 2009 01:37:17 -0000 1.116
@@ -2204,10 +2204,10 @@
(concat "Modify concealed text? (\"no\" just aborts,"
" \\[keyboard-quit] also reconceals) "))))
(progn (goto-char start)
- (error "Concealed-text change refused.")))
+ (error "Concealed-text change refused")))
(quit (allout-flag-region ol-start ol-end nil)
(allout-flag-region ol-start ol-end t)
- (error "Concealed-text change abandoned, text reconcealed."))))
+ (error "Concealed-text change abandoned, text reconcealed"))))
(goto-char start))))
;;;_ > allout-before-change-handler (beg end)
(defun allout-before-change-handler (beg end)
@@ -6333,7 +6333,7 @@
nil)
t))
(progn (pgg-remove-passphrase-from-cache cache-id t)
- (error "Wrong passphrase."))))
+ (error "Wrong passphrase"))))
;; No verifier string -- force confirmation by repetition of
;; (new) passphrase:
((or fetch-pass (not cached))
@@ -6355,7 +6355,7 @@
;; recurse to this routine:
(pgg-read-passphrase prompt-sans-hint cache-id t))
(pgg-remove-passphrase-from-cache cache-id t)
- (error "Confirmation failed."))))))))
+ (error "Confirmation failed"))))))))
;;;_ > allout-encrypted-topic-p ()
(defun allout-encrypted-topic-p ()
"True if the current topic is encryptable and encrypted."
Index: dired-aux.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.193
retrieving revision 1.194
diff -u -b -r1.193 -r1.194
--- dired-aux.el 18 Sep 2009 15:35:25 -0000 1.193
+++ dired-aux.el 24 Sep 2009 01:37:17 -0000 1.194
@@ -196,7 +196,7 @@
(defun dired-files-attributes (dir)
"Return a list of all file names and attributes from DIR.
-List has a form of (file-name full-file-name (attribute-list))"
+List has a form of (file-name full-file-name (attribute-list))."
(mapcar
(lambda (file-name)
(let ((full-file-name (expand-file-name file-name dir)))
@@ -488,7 +488,7 @@
;; This is an extra function so that you can redefine it, e.g., to use gmhist.
(defun dired-read-shell-command (prompt arg files)
- "Read a dired shell command prompting with PROMPT (using read-shell-command).
+ "Read a dired shell command prompting with PROMPT (using
`read-shell-command').
ARG is the prefix arg and may be used to indicate in the prompt which
FILES are affected."
(minibuffer-with-setup-hook
@@ -551,9 +551,9 @@
there's no telling what files COMMAND may have changed.
Type \\[dired-do-redisplay] to redisplay the marked files.
-When COMMAND runs, its working directory is the top-level directory of
-the Dired buffer, so output files usually are created there instead of
-in a subdir.
+When COMMAND runs, its working directory is the top-level directory
+of the Dired buffer, so output files usually are created there
+instead of in a subdir.
In a noninteractive call (from Lisp code), you must specify
the list of file names explicitly with the FILE-LIST argument, which
@@ -1606,7 +1606,7 @@
;; symlinks.
(defvar dired-copy-how-to-fn nil
- "nil or a function used by `dired-do-copy' to determine target.
+ "Either nil or a function used by `dired-do-copy' to determine target.
See HOW-TO argument for `dired-do-create-files'.")
;;;###autoload
Index: dired-x.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dired-x.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- dired-x.el 11 Sep 2009 06:50:14 -0000 1.100
+++ dired-x.el 24 Sep 2009 01:37:17 -0000 1.101
@@ -208,8 +208,8 @@
A value of t means local-variables lists are obeyed;
nil means they are ignored; anything else means query.
-This temporarily overrides the value of `enable-local-variables' when listing
-a directory. See also `dired-local-variables-file'."
+This temporarily overrides the value of `enable-local-variables' when
+listing a directory. See also `dired-local-variables-file'."
:type 'boolean
:group 'dired-x)
@@ -553,7 +553,7 @@
;; \017=^O for Omit - other packages can chose other control characters.
(defvar dired-omit-marker-char ?\017
- "Temporary marker used by dired-omit.
+ "Temporary marker used by Dired-Omit.
Should never be used as marker by the user or other packages.")
(defun dired-omit-startup ()
@@ -1209,7 +1209,7 @@
;; REDEFINE.
;; Redefine dired-aux.el's version:
(defun dired-read-shell-command (prompt arg files)
- "Read a dired shell command prompting with PROMPT (using read-shell-command).
+ "Read a dired shell command prompting with PROMPT (using
`read-shell-command').
ARG is the prefix arg and may be used to indicate in the prompt which
FILES are affected.
This is an extra function so that you can redefine it."
@@ -1682,8 +1682,8 @@
May create a new window, or reuse an existing one.
See the function `display-buffer'.
-Identical to `find-file-other-window' except when called interactively, with a
-prefix arg \(e.g., \\[universal-argument]\), in which case it guesses filename
near point.
+Identical to `find-file-other-window' except when called interactively, with
+a prefix arg \(e.g., \\[universal-argument]\), in which case it guesses
filename near point.
Useful for editing file mentioned in buffer you are viewing,
or to test if that file exists. Use minibuffer after snatching filename."
(interactive (list (read-filename-at-point "Find file: ")))
@@ -1694,8 +1694,8 @@
;; Fixme: This should probably use `thing-at-point'. -- fx
(defun dired-filename-at-point ()
"Get the filename closest to point, but do not change position.
-Has a preference for looking backward when not directly on a symbol. Not
-perfect - point must be in middle of or end of filename."
+Has a preference for looking backward when not directly on a symbol.
+Not perfect - point must be in middle of or end of filename."
(let ((filename-chars "-.[:alnum:]_/:$+@")
start end filename prefix)
@@ -1775,7 +1775,7 @@
(defun dired-x-submit-report ()
"Submit via `reporter.el' a bug report on program.
-Send report on `dired-x-file' version `dired-x-version,' to
+Send report on `dired-x-file' version `dired-x-version', to
`dired-x-maintainer' at address `dired-x-help-address' listing
variables `dired-x-variable-list' in the message."
(interactive)
Index: dired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dired.el,v
retrieving revision 1.429
retrieving revision 1.430
diff -u -b -r1.429 -r1.430
--- dired.el 18 Sep 2009 16:59:36 -0000 1.429
+++ dired.el 24 Sep 2009 01:37:17 -0000 1.430
@@ -3465,7 +3465,7 @@
;;;;;; dired-run-shell-command dired-do-shell-command
dired-do-async-shell-command
;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown
;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories
dired-backup-diff
-;;;;;; dired-diff) "dired-aux" "dired-aux.el"
"6ec9fac2638e7b16a006e164ba4454cc")
+;;;;;; dired-diff) "dired-aux" "dired-aux.el"
"19cd0d559197e5587fe27e1a81fb2644")
;;; Generated autoloads from dired-aux.el
(autoload 'dired-diff "dired-aux" "\
@@ -3591,9 +3591,9 @@
there's no telling what files COMMAND may have changed.
Type \\[dired-do-redisplay] to redisplay the marked files.
-When COMMAND runs, its working directory is the top-level directory of
-the Dired buffer, so output files usually are created there instead of
-in a subdir.
+When COMMAND runs, its working directory is the top-level directory
+of the Dired buffer, so output files usually are created there
+instead of in a subdir.
In a noninteractive call (from Lisp code), you must specify
the list of file names explicitly with the FILE-LIST argument, which
@@ -3918,7 +3918,7 @@
;;;***
;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el"
-;;;;;; "c426566bb1493ccba92a56f402ba565f")
+;;;;;; "1a0298749959c80c24c73b8bec5f1f74")
;;; Generated autoloads from dired-x.el
(autoload 'dired-jump "dired-x" "\
Index: epa-file.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/epa-file.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- epa-file.el 20 Sep 2009 02:16:52 -0000 1.20
+++ epa-file.el 24 Sep 2009 01:37:18 -0000 1.21
@@ -156,7 +156,7 @@
(defun epa-file-write-region (start end file &optional append visit lockname
mustbenew)
(if append
- (error "Can't append to the file."))
+ (error "Can't append to the file"))
(setq file (expand-file-name file))
(let* ((coding-system (or coding-system-for-write
(if (fboundp 'select-safe-coding-system)
Index: ps-print.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.228
retrieving revision 1.229
diff -u -b -r1.228 -r1.229
--- ps-print.el 22 Aug 2009 21:59:44 -0000 1.228
+++ ps-print.el 24 Sep 2009 01:37:18 -0000 1.229
@@ -5881,7 +5881,7 @@
(ps-get-page-dimensions)
;; final check
(unless (listp ps-lpr-switches)
- (error "`ps-lpr-switches' value should be a list."))
+ (error "`ps-lpr-switches' value should be a list"))
(and ps-color-p
(equal ps-default-background ps-default-foreground)
(error
Index: shell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/shell.el,v
retrieving revision 1.165
retrieving revision 1.166
diff -u -b -r1.165 -r1.166
--- shell.el 5 Jan 2009 03:19:45 -0000 1.165
+++ shell.el 24 Sep 2009 01:37:18 -0000 1.166
@@ -355,7 +355,7 @@
'complete-expand)))
(defcustom shell-mode-hook '()
- "Hook for customising Shell mode."
+ "Hook for customizing Shell mode."
:type 'hook
:group 'shell)
Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.282
retrieving revision 1.283
diff -u -b -r1.282 -r1.283
--- vc-hooks.el 14 Sep 2009 04:38:55 -0000 1.282
+++ vc-hooks.el 24 Sep 2009 01:37:18 -0000 1.283
@@ -664,7 +664,7 @@
on version-controlled buffer."
(interactive "P")
(if (vc-backend buffer-file-name)
- (error "Toggling the readability of a version controlled file is likely
to wreak havoc.")
+ (error "Toggling the readability of a version controlled file is likely
to wreak havoc")
(toggle-read-only)))
(defun vc-default-make-version-backups-p (backend file)
Index: vc-rcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- vc-rcs.el 14 Sep 2009 04:38:56 -0000 1.92
+++ vc-rcs.el 24 Sep 2009 01:37:18 -0000 1.93
@@ -465,7 +465,7 @@
"Roll back, undoing the most recent checkins of FILES. Directories are
expanded to all registered subfiles in them."
(if (not files)
- (error "RCS backend doesn't support directory-level rollback."))
+ (error "RCS backend doesn't support directory-level rollback"))
(dolist (file (vc-expand-dirs files))
(let* ((discard (vc-working-revision file))
(previous (if (vc-rcs-trunk-p discard) "" (vc-branch-part
discard)))
Index: vc-sccs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- vc-sccs.el 14 Sep 2009 04:38:56 -0000 1.66
+++ vc-sccs.el 24 Sep 2009 01:37:18 -0000 1.67
@@ -288,7 +288,7 @@
are expanded to all version-controlled subfiles."
(setq files (vc-expand-dirs files))
(if (not files)
- (error "SCCS backend doesn't support directory-level rollback."))
+ (error "SCCS backend doesn't support directory-level rollback"))
(dolist (file files)
(let ((discard (vc-working-revision file)))
(if (null (yes-or-no-p (format "Remove version %s from %s history? "
Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.729
retrieving revision 1.730
diff -u -b -r1.729 -r1.730
--- vc.el 14 Sep 2009 04:38:56 -0000 1.729
+++ vc.el 24 Sep 2009 01:37:18 -0000 1.730
@@ -941,7 +941,7 @@
(list (vc-responsible-backend
(file-name-directory (buffer-file-name)))
(list buffer-file-name))))
- (t (error "No fileset is available here.")))))
+ (t (error "No fileset is available here")))))
(defun vc-ensure-vc-buffer ()
"Make sure that the current buffer visits a version-controlled file."
@@ -1025,9 +1025,9 @@
;; Do the right thing
(cond
((eq state 'missing)
- (error "Fileset files are missing, so cannot be operated on."))
+ (error "Fileset files are missing, so cannot be operated on"))
((eq state 'ignored)
- (error "Fileset files are ignored by the version-control system."))
+ (error "Fileset files are ignored by the version-control system"))
((or (null state) (eq state 'unregistered))
(vc-register nil vc-fileset))
;; Files are up-to-date, or need a merge and user specified a revision
@@ -1251,7 +1251,7 @@
"Register the current file with a specified back end."
(interactive "SBackend: ")
(when (not (member backend vc-handled-backends))
- (error "Unknown back end."))
+ (error "Unknown back end"))
(let ((vc-handled-backends (list backend)))
(call-interactively 'vc-register)))
@@ -1574,7 +1574,7 @@
(list files rev1 rev2))))
;; All that was just so we could do argument completion!
(when (and (not rev1) rev2)
- (error "Not a valid revision range."))
+ (error "Not a valid revision range"))
;; Yes, it's painful to call (vc-deduce-fileset) again. Alas, the
;; placement rules for (interactive) don't actually leave us a choice.
(vc-diff-internal t (vc-deduce-fileset) rev1 rev2 (interactive-p)))
@@ -1933,7 +1933,7 @@
(dolist (file files)
(let ((buf (get-file-buffer file)))
(when (and buf (buffer-modified-p buf))
- (error "Please kill or save all modified buffers before reverting.")))
+ (error "Please kill or save all modified buffers before reverting")))
(when (vc-up-to-date-p file)
(unless (yes-or-no-p (format "%s seems up-to-date. Revert anyway? "
file))
(error "Revert canceled"))))
@@ -1968,7 +1968,7 @@
(error "Rollback requires a singleton fileset or repository versioning"))
;; FIXME: latest-on-branch-p should take the fileset.
(when (not (vc-call-backend backend 'latest-on-branch-p (car files)))
- (error "Rollback is only possible at the tip revision."))
+ (error "Rollback is only possible at the tip revision"))
;; If any of the files is visited by the current buffer, make
;; sure buffer is saved. If the user says `no', abort since
;; we cannot show the changes and ask for confirmation to
@@ -1977,9 +1977,9 @@
(vc-buffer-sync nil))
(dolist (file files)
(when (buffer-modified-p (get-file-buffer file))
- (error "Please kill or save all modified buffers before rollback."))
+ (error "Please kill or save all modified buffers before rollback"))
(when (not (vc-up-to-date-p file))
- (error "Please revert all modified workfiles before rollback.")))
+ (error "Please revert all modified workfiles before rollback")))
;; Accumulate changes associated with the fileset
(vc-setup-buffer "*vc-diff*")
(not-modified)
Index: view.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/view.el,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -b -r1.105 -r1.106
--- view.el 22 Aug 2009 19:29:25 -0000 1.105
+++ view.el 24 Sep 2009 01:37:19 -0000 1.106
@@ -931,7 +931,7 @@
(defun View-scroll-line-forward (&optional lines)
"Scroll forward one line (or prefix LINES lines) in View mode.
-See also `View-scroll-page-forward,' but note that scrolling is limited
+See also `View-scroll-page-forward', but note that scrolling is limited
to minimum of LINES and one window-full."
(interactive "P")
(view-scroll-lines lines nil 1 t))
Index: wdired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/wdired.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- wdired.el 9 Jan 2009 04:44:21 -0000 1.43
+++ wdired.el 24 Sep 2009 01:37:19 -0000 1.44
@@ -553,7 +553,7 @@
(if (and
(buffer-modified-p)
(not (y-or-n-p "Buffer changed. Discard changes and kill buffer? ")))
- (error "Error.")))
+ (error "Error")))
(defun wdired-next-line (arg)
"Move down lines then position at filename or the current column.
Index: emacs-lisp/authors.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/authors.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- emacs-lisp/authors.el 19 Aug 2009 02:53:57 -0000 1.62
+++ emacs-lisp/authors.el 24 Sep 2009 01:37:19 -0000 1.63
@@ -866,7 +866,7 @@
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(unless (y-or-n-p
(format "Not the root directory of Emacs: %s, continue? " root))
- (error "Not the root directory.")))
+ (error "Not the root directory")))
(dolist (log logs)
(when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
(message "Scanning %s..." log)
Index: net/dig.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/dig.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- net/dig.el 21 Sep 2009 09:51:42 -0000 1.9
+++ net/dig.el 24 Sep 2009 01:37:19 -0000 1.10
@@ -68,10 +68,10 @@
query-type query-class query-option
dig-option server)
"Call dig with given arguments and return buffer containing output.
-DOMAIN is a string with a DNS domain. QUERY-TYPE is an optional string
-with a DNS type. QUERY-CLASS is an optional string with a DNS class.
-QUERY-OPTION is an optional string with dig \"query options\".
-DIG-OPTIONS is an optional string with parameters for the dig program.
+DOMAIN is a string with a DNS domain. QUERY-TYPE is an optional
+string with a DNS type. QUERY-CLASS is an optional string with a DNS
+class. QUERY-OPTION is an optional string with dig \"query options\".
+DIG-OPTION is an optional string with parameters for the dig program.
SERVER is an optional string with a domain name server to query.
Dig is an external program found in the BIND name server distribution,
@@ -171,9 +171,9 @@
(defun query-dig (domain &optional
query-type query-class query-option dig-option server)
"Query addresses of a DOMAIN using dig.
-It works by calling `dig-invoke' and `dig-extract-rr'. Optional
-arguments are passed to `dig-invoke' and `dig-extract-rr'. Returns
-nil for domain/class/type queries that results in no data."
+It works by calling `dig-invoke' and `dig-extract-rr'.
+Optional arguments are passed to `dig-invoke' and `dig-extract-rr'.
+Returns nil for domain/class/type queries that result in no data."
(let ((buffer (dig-invoke domain query-type query-class
query-option dig-option server)))
(when buffer
Index: net/net-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/net-utils.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
Index: net/socks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/socks.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- net/socks.el 5 Jan 2009 03:22:48 -0000 1.13
+++ net/socks.el 24 Sep 2009 01:37:20 -0000 1.14
@@ -387,7 +387,7 @@
((= authtype socks-authentication-null)
(and socks-debug (message "No authentication necessary")))
((= authtype socks-authentication-failure)
- (error "No acceptable authentication methods found."))
+ (error "No acceptable authentication methods found"))
(t
(let* ((auth-type (gethash 'authtype info))
(auth-handler (assoc auth-type socks-authentication-methods))
Index: net/zeroconf.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/zeroconf.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- net/zeroconf.el 25 Jul 2009 08:31:09 -0000 1.6
+++ net/zeroconf.el 24 Sep 2009 01:37:20 -0000 1.7
@@ -334,7 +334,7 @@
(let ((l-hook (gethash type zeroconf-service-removed-hooks-hash nil)))
(add-hook 'l-hook function)
(puthash type l-hook zeroconf-service-removed-hooks-hash)))
- (t (error "EVENT must be either `:new' or `:removed'."))))
+ (t (error "EVENT must be either `:new' or `:removed'"))))
(defun zeroconf-get-host ()
"Returns the local host name as string."
Index: obsolete/vc-mcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/obsolete/vc-mcvs.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- obsolete/vc-mcvs.el 5 Jan 2009 03:22:59 -0000 1.2
+++ obsolete/vc-mcvs.el 24 Sep 2009 01:37:20 -0000 1.3
@@ -200,7 +200,7 @@
Passes either `vc-mcvs-register-switches' or `vc-register-switches'
to the Meta-CVS command."
;; FIXME: multiple-file case should be made to work.
- (if (> (length files) 1) (error "Registering filesets is not yet
supported."))
+ (if (> (length files) 1) (error "Registering filesets is not yet supported"))
(let* ((file (car files))
(filename (file-name-nondirectory file))
(extpos (string-match "\\." filename))
Index: progmodes/gdb-mi.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- progmodes/gdb-mi.el 23 Sep 2009 23:22:13 -0000 1.50
+++ progmodes/gdb-mi.el 24 Sep 2009 01:37:20 -0000 1.51
@@ -2767,7 +2767,7 @@
(let ((gdb-thread-number (bindat-get-field thread 'id))
(gdb-gud-control-all-threads nil))
(call-interactively #',gud-command))
- (error "Available in non-stop mode only, customize
gdb-non-stop-setting."))
+ (error "Available in non-stop mode only, customize
`gdb-non-stop-setting'"))
,doc))
(def-gdb-thread-buffer-gud-command
@@ -3474,7 +3474,7 @@
(setq gdb-frame-number new-level)
(gdb-input (list (concat "-stack-select-frame " new-level)
'ignore))
(gdb-update))
- (error "Could not select frame for non-current thread."))
+ (error "Could not select frame for non-current thread"))
(error "Not recognized as frame line"))))
Index: progmodes/grep.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- progmodes/grep.el 10 Sep 2009 00:57:44 -0000 1.107
+++ progmodes/grep.el 24 Sep 2009 01:37:20 -0000 1.108
@@ -826,7 +826,7 @@
(list (read-from-minibuffer "Run: " grep-command
nil nil 'grep-history)))
((not grep-template)
- (error "grep.el: No `grep-template' available."))
+ (error "grep.el: No `grep-template' available"))
(t (let* ((regexp (grep-read-regexp))
(files (grep-read-files regexp))
(dir (read-directory-name "In directory: "
@@ -903,7 +903,7 @@
(list (read-from-minibuffer "Run: " grep-find-command
nil nil 'grep-find-history)))
((not grep-find-template)
- (error "grep.el: No `grep-find-template' available."))
+ (error "grep.el: No `grep-find-template' available"))
(t (let* ((regexp (grep-read-regexp))
(files (grep-read-files regexp))
(dir (read-directory-name "Base directory: "
Index: progmodes/idlw-help.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/idlw-help.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- progmodes/idlw-help.el 5 Jan 2009 03:23:41 -0000 1.27
+++ progmodes/idlw-help.el 24 Sep 2009 01:37:20 -0000 1.28
@@ -359,7 +359,7 @@
(message "Cannot locate IDL Assistant, enabling default browser.")
(setq idlwave-help-use-assistant nil)
(unless idlwave-help-browse-url-available
- (error "browse-url is not available; install it or IDL Assistant to use
HTML help.")))))
+ (error "browse-url is not available; install it or IDL Assistant to use
HTML help")))))
(defvar idlwave-current-obj_new-class)
@@ -828,7 +828,7 @@
;; Just a regular file name (+ anchor name)
(unless (and (stringp help-loc)
(file-directory-p help-loc))
- (error "Invalid help location."))
+ (error "Invalid help location"))
(setq full-link (browse-url-file-url (expand-file-name link help-loc)))
;; Select the browser
@@ -1320,7 +1320,7 @@
(if (string-match "\.html" link)
(setq topic (substring link 0 (match-beginning 0))
anchor (substring link (match-end 0)))
- (error "Malformed help link."))
+ (error "Malformed help link"))
(setq file (expand-file-name (concat topic ".html") help-loc))
(if (file-exists-p file)
Index: progmodes/idlw-shell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/idlw-shell.el,v
retrieving revision 3.69
retrieving revision 3.70
diff -u -b -r3.69 -r3.70
--- progmodes/idlw-shell.el 1 Sep 2009 03:18:52 -0000 3.69
+++ progmodes/idlw-shell.el 24 Sep 2009 01:37:20 -0000 3.70
@@ -247,7 +247,7 @@
:type 'string)
(defcustom idlwave-shell-mode-hook '()
- "*Hook for customising `idlwave-shell-mode'."
+ "*Hook for customizing `idlwave-shell-mode'."
:group 'idlwave-shell-general-setup
:type 'hook)
@@ -339,7 +339,7 @@
"*OBSOLETE VARIABLE, is no longer used.")
(defcustom idlwave-shell-separate-examine-output t
- "*Non-nil mean, put output of examine commands in their own buffer."
+ "*Non-nil means, put output of examine commands in their own buffer."
:group 'idlwave-shell-command-setup
:type 'boolean)
@@ -444,7 +444,7 @@
;; Breakpoint Overlays etc
(defgroup idlwave-shell-highlighting-and-faces nil
- "Highlighting and Faces used by the IDLWAVE Shell mode."
+ "Highlighting and faces used by the IDLWAVE Shell mode."
:prefix "idlwave-shell"
:group 'idlwave)
@@ -521,7 +521,7 @@
(const :tag "Glyph or face." t)))
(defvar idlwave-shell-use-breakpoint-glyph t
- "Obsolete variable. See `idlwave-shell-mark-breakpoints.")
+ "Obsolete variable. See `idlwave-shell-mark-breakpoints'.")
(defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp
"*The face for breakpoint lines in the source code.
@@ -640,7 +640,7 @@
"The command which gets !PATH and !DIR info from the shell.")
(defvar idlwave-shell-mode-line-info nil
- "Additional info displayed in the mode line")
+ "Additional info displayed in the mode line.")
(defvar idlwave-shell-default-directory nil
"The default directory in the idlwave-shell buffer, of outside use.")
@@ -722,7 +722,7 @@
(defvar idlwave-shell-bp-query "help,/breakpoints"
- "Command to obtain list of breakpoints")
+ "Command to obtain list of breakpoints.")
(defvar idlwave-shell-command-output nil
"String for accumulating current command output.")
@@ -733,11 +733,10 @@
This is evaluated if it is a list or called with funcall.")
(defvar idlwave-shell-sentinel-hook nil
- "Hook run when the idl process exits.")
+ "Hook run when the IDL process exits.")
(defvar idlwave-shell-hide-output nil
- "If non-nil the process output is not inserted into the output
-buffer.")
+ "If non-nil the process output is not inserted into the output buffer.")
(defvar idlwave-shell-show-if-error nil
"If non-nil the process output is inserted into the output buffer if
@@ -759,7 +758,7 @@
(defun idlwave-shell-buffer ()
"Name of buffer associated with IDL process.
-The name of the buffer is made by surrounding `idlwave-shell-process-name
+The name of the buffer is made by surrounding `idlwave-shell-process-name'
with `*'s."
(concat "*" idlwave-shell-process-name "*"))
@@ -792,7 +791,7 @@
(defconst idlwave-shell-halt-messages-re
(mapconcat 'identity idlwave-shell-halt-messages "\\|")
- "The regular expression computed from idlwave-shell-halt-messages")
+ "The regular expression computed from `idlwave-shell-halt-messages'.")
(defconst idlwave-shell-trace-message-re
"^% At " ;; First line of a trace message
@@ -873,8 +872,8 @@
-----------------
RET after the end of the process' output sends the text from the
end of process to the end of the current line. RET before end of
- process output copies the current line (except for the prompt) to the
- end of the buffer.
+ process output copies the current line (except for the prompt) to
+ the end of the buffer.
Command history, searching of previous commands, command line
editing are available via the comint-mode key bindings, by default
@@ -1126,9 +1125,9 @@
(fset 'idl-shell 'idlwave-shell))
(defvar idlwave-shell-idl-wframe nil
- "Frame for displaying the idl shell window.")
+ "Frame for displaying the IDL shell window.")
(defvar idlwave-shell-display-wframe nil
- "Frame for displaying the idl source files.")
+ "Frame for displaying the IDL source files.")
(defvar idlwave-shell-calling-stack-index 0)
(defvar idlwave-shell-calling-stack-routine nil)
@@ -1271,9 +1270,9 @@
show-if-error)
"Send a command to IDL process.
-\(CMD PCMD HIDE\) are placed at the end of `
-idlwave-shell-pending-commands'. If IDL is ready the first command,
-CMD, in `idlwave-shell-pending-commands' is sent to the IDL process.
+\(CMD PCMD HIDE\) are placed at the end of `idlwave-shell-pending-commands'.
+If IDL is ready the first command in `idlwave-shell-pending-commands',
+CMD, is sent to the IDL process.
If optional second argument PCMD is non-nil it will be placed on
`idlwave-shell-post-command-hook' when CMD is executed.
@@ -1654,7 +1653,7 @@
(defvar idlwave-shell-syntax-error
"^% Syntax error.\\s-*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)"
"A regular expression to match an IDL syntax error.
-The 1st pair matches the file name, the second pair matches the line
+The first pair matches the file name, the second pair matches the line
number.")
(defvar idlwave-shell-other-error
@@ -1697,13 +1696,14 @@
(defvar idlwave-shell-electric-debug-mode) ; defined by easy-mmode
(defun idlwave-shell-scan-for-state ()
- "Scan for state info. Looks for messages in output from last IDL
-command indicating where IDL has stopped. The types of messages we are
-interested in are execution halted, stepped, breakpoint, interrupted
-at and trace messages. For breakpoint messages process any attached
-count or command parameters. Update the stop line if a message is
-found. The variable `idlwave-shell-current-state' is set to 'error,
-'halt, or 'breakpoint, which describes the status, or nil for none of
+ "Scan for state info.
+Looks for messages in output from last IDL command indicating where
+IDL has stopped. The types of messages we are interested in are
+execution halted, stepped, breakpoint, interrupted at and trace
+messages. For breakpoint messages process any attached count or
+command parameters. Update the stop line if a message is found.
+The variable `idlwave-shell-current-state' is set to 'error, 'halt,
+or 'breakpoint, which describes the status, or nil for none of
the above."
(let (trace)
(cond
@@ -1936,7 +1936,7 @@
(idlwave-shell-hide-p 'misc) nil t))
(defun idlwave-shell-quit (&optional arg)
- "Exit the idl process after confirmation.
+ "Exit the IDL process after confirmation.
With prefix ARG, exit without confirmation."
(interactive "P")
(if (not (idlwave-shell-is-running))
@@ -2222,7 +2222,7 @@
(memq (preceding-char) '(?\' ?\")))))
(defun idlwave-shell-batch-command ()
- "Returns t if we're in a batch command statement like @foo"
+ "Return t if we're in a batch command statement like @foo"
(let ((limit (save-excursion (beginning-of-line) (point))))
(save-excursion
;; Skip backwards over filename
@@ -2231,7 +2231,7 @@
(and (eq (preceding-char) ?@) (not (idlwave-in-quote))))))
(defun idlwave-shell-shell-command ()
- "Returns t if we're in a shell command statement like $ls"
+ "Return t if we're in a shell command statement like $ls"
(save-excursion
(idlwave-beginning-of-statement)
(looking-at "\\$")))
@@ -2239,7 +2239,7 @@
;; Debugging Commands ------------------------------------------------------
(defun idlwave-shell-redisplay (&optional hide)
- "Tries to resync the display with where execution has stopped.
+ "Try to resync the display with where execution has stopped.
Issues a \"help,/trace\" command followed by a call to
`idlwave-shell-display-line'. Also updates the breakpoint
overlays."
@@ -2309,8 +2309,8 @@
(defun idlwave-shell-goto-frame (&optional frame)
"Set buffer to FRAME with point at the frame line.
-If the optional argument FRAME is nil then idlwave-shell-pc-frame is
-used. Does nothing if the resulting frame is nil."
+If the optional argument FRAME is nil then `idlwave-shell-pc-frame'
+is used. Does nothing if the resulting frame is nil."
(if frame ()
(setq frame (idlwave-shell-pc-frame)))
(cond
@@ -2321,7 +2321,7 @@
(forward-line (1- (nth 1 frame))))))
(defun idlwave-shell-pc-frame ()
- "Returns the frame for IDL execution."
+ "Return the frame for IDL execution."
(and idlwave-shell-halt-frame
(list (nth 0 idlwave-shell-halt-frame)
(nth 1 idlwave-shell-halt-frame)
@@ -2341,13 +2341,13 @@
(defvar idlwave-shell-suppress-electric-debug nil)
(defun idlwave-shell-display-line (frame &optional col debug)
- "display frame file in other window with overlay arrow.
+ "Display frame file in other window with overlay arrow.
-frame is a list of file name, line number, and subroutine name. if
-frame is nil then remove overlay. if col is set, move point to that
-column in the line. if debug is non-nil, enable the electric debug
-mode. if it is 'disable, do not enable no matter what the setting of
-'idlwave-shell-automatic-electric-debug'. if it is 'force, enable no
+FRAME is a list of file name, line number, and subroutine name. If
+FRAME is nil then remove overlay. If COL is set, move point to that
+column in the line. If DEBUG is non-nil, enable the electric debug
+mode. If it is 'disable, do not enable no matter what the setting of
+`idlwave-shell-automatic-electric-debug'. If it is 'force, enable no
matter what the settings of that variable."
(if (not frame)
;; remove stop-line overlay from old position
@@ -2449,7 +2449,8 @@
(defun idlwave-shell-step (arg)
- "Step one source line. If given prefix argument ARG, step ARG source lines."
+ "Step one source line.
+If given prefix argument ARG, step ARG source lines."
(interactive "p")
(or (not arg) (< arg 1)
(setq arg 1))
@@ -2474,14 +2475,14 @@
no-show)
"Set breakpoint at current line.
-If Count is nil then an ordinary breakpoint is set. We treat a count
+If COUNT is nil then an ordinary breakpoint is set. We treat a COUNT
of 1 as a temporary breakpoint using the ONCE keyword. Counts greater
than 1 use the IDL AFTER=count keyword to break only after reaching
-the statement count times.
+the statement COUNT times.
Optional argument CMD is a list or function to evaluate upon reaching
the breakpoint. CONDITION is a break condition, and DISABLED, if
-non-nil disables the breakpoint"
+non-nil disables the breakpoint."
(interactive "P")
(when (listp count)
(if (equal (car count) 4)
@@ -2616,8 +2617,8 @@
(defun idlwave-shell-clear-current-bp ()
"Remove breakpoint at current line.
-This command can be called from the shell buffer if IDL is currently stopped
-at a breakpoint."
+This command can be called from the shell buffer if IDL is currently
+stopped at a breakpoint."
(interactive)
(let ((bp (idlwave-shell-find-current-bp)))
(if bp (idlwave-shell-clear-bp bp))))
@@ -2692,8 +2693,8 @@
(defun idlwave-shell-set-bp-in-module (name type class)
- "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist'
-contains an entry for that module."
+ "Set breakpoint in module.
+Assumes that `idlwave-shell-sources-alist' contains an entry for that module."
(let* ((module (idlwave-make-full-name class name))
(source-file
(car-safe (cdr-safe
@@ -2839,17 +2840,17 @@
;;; End terrible hack section
(defun idlwave-shell-mouse-print (event)
- "Print value of variable at the mouse position, with `help'"
+ "Print value of variable at the mouse position, with `print'."
(interactive "e")
(funcall (idlwave-shell-mouse-examine nil) event))
(defun idlwave-shell-mouse-help (event)
- "Print value of variable at the mouse position, with `print'."
+ "Print value of variable at the mouse position, with `help'."
(interactive "e")
(funcall (idlwave-shell-mouse-examine 'help) event))
(defun idlwave-shell-examine-select (event)
- "Pop-up a list to select from for examining the expression"
+ "Pop-up a list to select from for examining the expression."
(interactive "e")
(funcall (idlwave-shell-mouse-examine nil event) event))
@@ -2890,9 +2891,9 @@
With double prefix arg ARG prompt for an expression.
If EV is a valid event passed, pop-up a list from
-idlw-shell-examine-alist from which to select the help command text.
-If instead COMPLETE-HELP-TYPE is non-nil, choose from
-idlw-shell-examine-alist via mini-buffer shortcut key."
+`idlwave-shell-examine-alist' from which to select the help
+command text. If instead COMPLETE-HELP-TYPE is non-nil, choose
+from `idlwave-shell-examine-alist' via mini-buffer shortcut key."
(interactive "P")
;; For speed: assume the helper routine hasn't been lost, e.g. with
@@ -3280,16 +3281,16 @@
condition - any condition to apply to the breakpoint.
-disabled - whether the bp is disabled")
+disabled - whether the bp is disabled.")
(defun idlwave-shell-run-region (beg end &optional n)
"Compile and run the region using the IDL process.
Copies the region to a temporary file `idlwave-shell-temp-pro-file'
-and issues the IDL .run command for the file. Because the
-region is compiled and run as a main program there is no
-problem with begin-end blocks extending over multiple
-lines - which would be a problem if `idlwave-shell-evaluate-region'
-was used. An END statement is appended to the region if necessary.
+and issues the IDL .run command for the file. Because the region
+is compiled and run as a main program there is no problem with
+begin-end blocks extending over multiple lines - which would be
+a problem if `idlwave-shell-evaluate-region' was used.
+An END statement is appended to the region if necessary.
If there is a prefix argument, display IDL process."
(interactive "r\nP")
@@ -3378,12 +3379,12 @@
'hide))
(defun idlwave-shell-bp-get (bp &optional item)
- "Get a value for a breakpoint. BP has the form of elements in
-idlwave-shell-bp-alist. Optional second arg ITEM is the
-particular value to retrieve. ITEM can be 'file, 'line, 'index,
-'module, 'count, 'cmd, 'condition, 'disabled, 'type, or
-'data. 'data returns a list of 'count, 'cmd and 'condition.
-Defaults to 'index."
+ "Get a value for a breakpoint.
+BP has the form of elements in `idlwave-shell-bp-alist'.
+Optional second arg ITEM is the particular value to retrieve.
+ITEM can be 'file, 'line, 'index, 'module, 'count, 'cmd,
+'condition, 'disabled, 'type, or 'data. 'data returns a list
+of 'count, 'cmd and 'condition. Defaults to 'index."
(cond
;; Frame
((eq item 'line) (nth 1 (car bp)))
@@ -3405,10 +3406,10 @@
(t (nth 0 (car (cdr bp))))))
(defun idlwave-shell-filter-bp (&optional no-show)
- "Get the breakpoints from `idlwave-shell-command-output'. Create
-`idlwave-shell-bp-alist' updating breakpoint count and command data
-from previous breakpoint list. If NO-SHOW is set, don't update the
-breakpoint overlays."
+ "Get the breakpoints from `idlwave-shell-command-output'.
+Create `idlwave-shell-bp-alist' updating breakpoint count and command
+data from previous breakpoint list. If NO-SHOW is set, don't update
+the breakpoint overlays."
(save-excursion
(set-buffer (get-buffer-create idlwave-shell-bp-buffer))
(erase-buffer)
@@ -3489,10 +3490,11 @@
(setcdr (cdr bp) data))
(defun idlwave-shell-bp (frame &optional data module)
- "Create a breakpoint structure containing FRAME and DATA. Second
-and third args, DATA and MODULE, are optional. Returns a breakpoint
-of the format used in `idlwave-shell-bp-alist'. Can be used in commands
-attempting match a breakpoint in `idlwave-shell-bp-alist'."
+ "Create a breakpoint structure containing FRAME and DATA.
+Second and third args, DATA and MODULE, are optional. Returns
+a breakpoint of the format used in `idlwave-shell-bp-alist'.
+Can be used in commands attempting match a breakpoint in
+`idlwave-shell-bp-alist'."
(cons frame ;; (file line)
(cons (list nil module) ;; (index_id (module type) | module)
data))) ;; (count command condition disabled)
@@ -3503,7 +3505,7 @@
(defun idlwave-shell-sources-bp (bp)
"Check `idlwave-shell-sources-alist' for source of breakpoint using BP.
If an equivalency is found, return the IDL internal source name.
-Otherwise return the filename in bp."
+Otherwise return the filename in BP."
(let*
((bp-file (idlwave-shell-bp-get bp 'file))
(bp-module (idlwave-shell-bp-get bp 'module))
@@ -3621,7 +3623,7 @@
(message "Failed to identify breakpoint in IDL"))))
(defvar idlwave-shell-bp-overlays nil
- "Alist of overlays marking breakpoints")
+ "Alist of overlays marking breakpoints.")
(defvar idlwave-shell-bp-glyph)
(defvar idlwave-shell-debug-line-map (make-sparse-keymap))
@@ -3952,7 +3954,7 @@
"Alist of IDL procedure names and compiled source files.
Elements of the alist have the form:
- (module name . (source-file-truename idlwave-internal-filename)).")
+ (module name . (source-file-truename idlwave-internal-filename))")
(defun idlwave-shell-module-source-query (module &optional type)
"Determine the source file for a given module.
@@ -3965,7 +3967,7 @@
'hide 'wait)))
(defun idlwave-shell-module-source-filter (module)
- "Get module source, and update idlwave-shell-sources-alist."
+ "Get module source, and update `idlwave-shell-sources-alist'."
(let ((old (assoc (upcase module) idlwave-shell-sources-alist))
filename)
(when (string-match "\.PATH *[\n\r]\\([^%][^\r\n]+\\)[\n\r]"
@@ -3990,9 +3992,9 @@
(defun idlwave-shell-sources-filter ()
"Get source files from `idlwave-shell-sources-query' output.
-Create `idlwave-shell-sources-alist' consisting of
-list elements of the form:
- (module name . (source-file-truename idlwave-internal-filename))."
+Create `idlwave-shell-sources-alist' consisting of list elements
+of the form:
+ (module name . (source-file-truename idlwave-internal-filename))"
(save-excursion
(set-buffer (get-buffer-create idlwave-shell-bp-buffer))
(erase-buffer)
@@ -4108,7 +4110,7 @@
;; Keybindings ------------------------------------------------------------
(defvar idlwave-shell-mode-map (copy-keymap comint-mode-map)
- "Keymap for idlwave-mode.")
+ "Keymap for `idlwave-mode'.")
(defvar idlwave-shell-electric-debug-mode-map (make-sparse-keymap))
(defvar idlwave-shell-mode-prefix-map (make-sparse-keymap))
(fset 'idlwave-shell-mode-prefix-map idlwave-shell-mode-prefix-map)
@@ -4345,7 +4347,7 @@
;; easy-mmode defines electric-debug-mode for us, so we need to advise it.
(defadvice idlwave-shell-electric-debug-mode (after print-enter activate)
- "Print out an entrance message"
+ "Print out an entrance message."
(when idlwave-shell-electric-debug-mode
(message
"Electric Debugging mode entered. Press [C-?] for help, [q] to quit"))
@@ -4695,9 +4697,9 @@
;;; Load the toolbar when wanted by the user.
(autoload 'idlwave-toolbar-toggle "idlw-toolbar"
- "Toggle the IDLWAVE toolbar")
+ "Toggle the IDLWAVE toolbar.")
(autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar"
- "Add IDLWAVE toolbar")
+ "Add IDLWAVE toolbar.")
(defun idlwave-shell-toggle-toolbar ()
"Toggle the display of the debugging toolbar."
(interactive)
Index: progmodes/idlwave.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/idlwave.el,v
retrieving revision 3.78
retrieving revision 3.79
diff -u -b -r3.78 -r3.79
--- progmodes/idlwave.el 22 Jul 2009 03:07:23 -0000 3.78
+++ progmodes/idlwave.el 24 Sep 2009 01:37:21 -0000 3.79
@@ -237,8 +237,8 @@
:type 'integer)
(defcustom idlwave-indent-to-open-paren t
- "*Non-nil means, indent continuation lines to innermost open
-parenthesis. This indentation occurs even if otherwise disallowed by
+ "*Non-nil means, indent continuation lines to innermost open parenthesis.
+This indentation occurs even if otherwise disallowed by
`idlwave-max-extra-continuation-indent'. Matching parens and the
interleaving args are lined up. Example:
@@ -249,8 +249,8 @@
)))
When this variable is nil, paren alignment may still occur, based on
-the value of `max-extra-continuation-indent', which, if zero, would
-yield:
+the value of `idlwave-max-extra-continuation-indent', which, if zero,
+would yield:
x = function_a(function_b(function_c( a, b, [1,2,3, $
4,5,6 $
@@ -348,26 +348,25 @@
These files, named .idlwave_catalog, document routine information for
individual directories and libraries of IDL .pro files. Many popular
-libraries come with catalog files by default, so leaving this on is a
-usually a good idea.."
+libraries come with catalog files by default, so leaving this on is
+usually a good idea."
:group 'idlwave-routine-info
:type 'boolean)
(defcustom idlwave-init-rinfo-when-idle-after 10
- "*Seconds of idle time before routine info is automatically
-initialized. Initializing the routine info can take a long time, in
-particular if a large number of library catalogs are involved. When
-Emacs is idle for more than the number of seconds specified by this
-variable, it starts the initialization. The process is split into
-five steps, in order to keep work interruption as short as possible.
-If one of the steps finishes, and no user input has arrived in the
-mean time, initialization proceeds immediately to the next step. A
-good value for this variable is about 1/3 of the time initialization
-take in your setup. So if you have a fast machine and no problems
-with a slow network connection, don't hesitate to set this to 2
-seconds. A Value of 0 means, don't initialize automatically, but
-instead wait until routine information is needed, and initialize
-then."
+ "*Seconds of idle time before routine info is automatically initialized.
+Initializing the routine info can take a long time, in particular if a
+large number of library catalogs are involved. When Emacs is idle for
+more than the number of seconds specified by this variable, it starts
+the initialization. The process is split into five steps, in order to
+keep work interruption as short as possible. If one of the steps
+finishes, and no user input has arrived in the mean time, initialization
+proceeds immediately to the next step. A good value for this variable
+is about 1/3 of the time initialization take in your setup. So if you
+have a fast machine and no problems with a slow network connection,
+don't hesitate to set this to 2 seconds. A value of 0 means, don't
+initialize automatically, but instead wait until routine information is
+needed, and initialize then."
:group 'idlwave-routine-info
:type 'number)
@@ -377,7 +376,7 @@
The following values are allowed:
nil Don't scan any buffers.
-t Scan all idlwave-mode buffers in the current editing session.
+t Scan all `idlwave-mode' buffers in the current editing session.
current Scan only the current buffer, but no other buffers."
:group 'idlwave-routine-info
:type '(choice
@@ -417,7 +416,7 @@
(defcustom idlwave-rinfo-max-source-lines 5
"*Maximum number of source files displayed in the Routine Info window.
When an integer, it is the maximum number of source files displayed.
-t means to show all source files."
+A value of t means to show all source files."
:group 'idlwave-routine-info
:type 'integer)
@@ -997,10 +996,10 @@
"*If non-nil, this is the command to run IDL.
Should be an absolute file path or path relative to the current environment
execution search path. If you want to specify command line switches
-for the idl program, use `idlwave-shell-command-line-options'.
+for the IDL program, use `idlwave-shell-command-line-options'.
I know the name of this variable is badly chosen, but I cannot change
-it without compromizing backwards-compatibility."
+it without compromising backwards-compatibility."
:group 'idlwave-external-programs
:type 'string)
@@ -1042,7 +1041,7 @@
(const shift)))
(defcustom idlwave-shell-automatic-start nil
- "*If non-nil attempt invoke idlwave-shell if not already running.
+ "*If non-nil attempt invoke `idlwave-shell' if not already running.
This is checked when an attempt to send a command to an
IDL process is made."
:group 'idlwave-shell-general-setup
@@ -1066,8 +1065,8 @@
"Items which should be fontified on the default fontification level 2.
IDLWAVE defines 3 levels of fontification. Level 1 is very little, level 3
is everything and level 2 is specified by this list.
-This variable must be set before IDLWAVE gets loaded. It is
-a list of symbols, the following symbols are allowed.
+This variable must be set before IDLWAVE gets loaded.
+It is a list of symbols; the following symbols are allowed:
pros-and-functions Procedure and Function definitions
batch-files Batch Files
@@ -1272,25 +1271,25 @@
(defconst idlwave-begin-block-reg
"\\<\\(pro\\|function\\|begin\\|case\\|switch\\)\\>"
- "Regular expression to find the beginning of a block. The case does
-not matter. The search skips matches in comments.")
+ "Regular expression to find the beginning of a block.
+The case does not matter. The search skips matches in comments.")
(defconst idlwave-begin-unit-reg "^\\s-*\\(pro\\|function\\)\\>\\|\\`"
- "Regular expression to find the beginning of a unit. The case does
-not matter.")
+ "Regular expression to find the beginning of a unit.
+The case does not matter.")
(defconst idlwave-end-unit-reg "^\\s-*\\(pro\\|function\\)\\>\\|\\'"
"Regular expression to find the line that indicates the end of unit.
-This line is the end of buffer or the start of another unit. The case does
-not matter. The search skips matches in comments.")
+This line is the end of buffer or the start of another unit.
+The case does not matter. The search skips matches in comments.")
(defconst idlwave-continue-line-reg "\\<\\$"
"Regular expression to match a continued line.")
(defconst idlwave-end-block-reg
"\\<end\\(\\|case\\|switch\\|else\\|for\\|if\\|rep\\|while\\)\\>"
- "Regular expression to find the end of a block. The case does
-not matter. The search skips matches found in comments.")
+ "Regular expression to find the end of a block.
+The case does not matter. The search skips matches in comments.")
(defconst idlwave-block-matches
'(("pro" . "end")
@@ -1313,7 +1312,7 @@
"\\<\\(else\\|for\\|then\\|repeat\\|while\\)\\>"
"Regular expression matching reserved words which can stand before
blocks starting with a BEGIN statement. The matches must have associations
-`idlwave-block-matches'")
+`idlwave-block-matches'.")
(defconst idlwave-identifier "[a-zA-Z_][a-zA-Z0-9$_]*"
"Regular expression matching an IDL identifier.")
@@ -1359,8 +1358,8 @@
"\\(" idlwave-variable "\\) *=") nil)))
"Associated list of statement matching regular expressions.
-Each regular expression matches the start of an IDL statement. The
-first element of each association is a symbol giving the statement
+Each regular expression matches the start of an IDL statement.
+The first element of each association is a symbol giving the statement
type. The associated value is a list. The first element of this list
is a regular expression matching the start of an IDL statement for
identifying the statement type. The second element of this list is a
@@ -1369,7 +1368,7 @@
whitespace. If it is nil then the statement has no substatement. The
list order matters since matching an assignment statement exactly is
not possible without parsing. Thus assignment statement become just
-the leftover unidentified statements containing an equal sign." )
+the leftover unidentified statements containing an equal sign.")
(defvar idlwave-fill-function 'auto-fill-function
"IDL mode auto fill function.")
@@ -1628,14 +1627,14 @@
;;; the abbrev).
;;;
(defvar idlwave-mode-abbrev-table nil
- "Abbreviation table used for IDLWAVE mode")
+ "Abbreviation table used for IDLWAVE mode.")
(define-abbrev-table 'idlwave-mode-abbrev-table ())
(defun idlwave-define-abbrev (name expansion hook &optional noprefix table)
"Define-abbrev with backward compatibility.
If NOPREFIX is non-nil, don't prepend prefix character. Installs into
-idlwave-mode-abbrev-table unless TABLE is non-nil."
+`idlwave-mode-abbrev-table' unless TABLE is non-nil."
(let ((abbrevs-changed nil) ;; mask the current value to avoid save
(args (list (or table idlwave-mode-abbrev-table)
(if noprefix name (concat idlwave-abbrev-start-char name))
@@ -1842,7 +1841,7 @@
5. Code Templates and Abbreviations
--------------------------------
Many Abbreviations are predefined to expand to code fragments and templates.
- The abbreviations start generally with a `\\`. Some examples
+ The abbreviations start generally with a `\\`. Some examples:
\\pr PROCEDURE template
\\fu FUNCTION template
@@ -2030,7 +2029,7 @@
;;
(defun idlwave-hard-tab ()
- "Inserts TAB in buffer in current position."
+ "Insert TAB in buffer in current position."
(interactive)
(insert "\t"))
@@ -2058,7 +2057,7 @@
;; versatility.
(defun idlwave-check-abbrev (arg &optional reserved)
- "Reverses abbrev expansion if in comment or string.
+ "Reverse abbrev expansion if in comment or string.
Argument ARG is the number of characters to move point
backward if `idlwave-abbrev-move' is non-nil.
If optional argument RESERVED is non-nil then the expansion
@@ -2085,7 +2084,7 @@
t))
(defun idlwave-in-comment ()
- "Returns t if point is inside a comment, nil otherwise."
+ "Return t if point is inside a comment, nil otherwise."
(save-excursion
(let ((here (point)))
(and (idlwave-goto-comment) (> here (point))))))
@@ -2142,8 +2141,8 @@
(idlwave-show-begin))))
(defun idlwave-show-begin ()
- "Finds the start of current block and blinks to it for a second.
-Also checks if the correct end statement has been used."
+ "Find the start of current block and blinks to it for a second.
+Also checks if the correct END statement has been used."
;; All end statements are reserved words
;; Re-indent end line
;;(insert-char ?\ 1) ;; So indent, etc. work well
@@ -2229,7 +2228,7 @@
(idlwave-show-begin)))
(defun idlwave-custom-ampersand-surround (&optional is-action)
- "Surround &, leaving room for && (which surrround as well)."
+ "Surround &, leaving room for && (which surround as well)."
(let* ((prev-char (char-after (- (point) 2)))
(next-char (char-after (point)))
(amp-left (eq prev-char ?&))
@@ -2313,7 +2312,7 @@
))))
(defun idlwave-newline ()
- "Inserts a newline and indents the current and previous line."
+ "Insert a newline and indent the current and previous line."
(interactive)
;;
;; Handle unterminated single and double quotes
@@ -2402,13 +2401,13 @@
(idlwave-indent-line)))
(defun idlwave-beginning-of-subprogram (&optional nomark)
- "Moves point to the beginning of the current program unit.
+ "Move point to the beginning of the current program unit.
If NOMARK is non-nil, do not push mark."
(interactive)
(idlwave-find-key idlwave-begin-unit-reg -1 nomark))
(defun idlwave-end-of-subprogram (&optional nomark)
- "Moves point to the start of the next program unit.
+ "Move point to the start of the next program unit.
If NOMARK is non-nil, do not push mark."
(interactive)
(idlwave-end-of-statement)
@@ -2552,7 +2551,7 @@
(beginning-of-line)))))
(defun idlwave-previous-statement ()
- "Moves point to beginning of the previous statement.
+ "Move point to beginning of the previous statement.
Returns t if the current line before moving is the beginning of
the first non-comment statement in the file, and nil otherwise."
(interactive)
@@ -2580,7 +2579,7 @@
first-statement)))
(defun idlwave-end-of-statement ()
- "Moves point to the end of the current IDL statement.
+ "Move point to the end of the current IDL statement.
If not in a statement just moves to end of line. Returns position."
(interactive)
(while (and (idlwave-is-continuation-line)
@@ -2591,7 +2590,7 @@
(point))
(defun idlwave-end-of-statement0 ()
- "Moves point to the end of the current IDL statement.
+ "Move point to the end of the current IDL statement.
If not in a statement just moves to end of line. Returns position."
(interactive)
(while (and (idlwave-is-continuation-line)
@@ -2600,9 +2599,9 @@
(point))
(defun idlwave-next-statement ()
- "Moves point to beginning of the next IDL statement.
- Returns t if that statement is the last
- non-comment IDL statement in the file, and nil otherwise."
+ "Move point to beginning of the next IDL statement.
+Returns t if that statement is the last non-comment IDL statement
+in the file, and nil otherwise."
(interactive)
(let (last-statement)
(idlwave-end-of-statement)
@@ -2710,14 +2709,14 @@
(append st (match-end 0))))))
(defun idlwave-expand-equal (&optional before after is-action)
- "Pad '=' with spaces. Two cases: Assignment statement, and keyword
-assignment. Which case is determined using
-`idlwave-start-of-substatement' and `idlwave-statement-type'. The
-equal sign will be surrounded by BEFORE and AFTER blanks. If
-`idlwave-pad-keyword' is t then keyword assignment is treated just
-like assignment statements. When nil, spaces are removed for keyword
-assignment. Any other value keeps the current space around the `='.
-Limits in for loops are treated as keyword assignment.
+ "Pad '=' with spaces.
+Two cases: Assignment statement, and keyword assignment.
+Which case is determined using `idlwave-start-of-substatement' and
+`idlwave-statement-type'. The equal sign will be surrounded by BEFORE
+and AFTER blanks. If `idlwave-pad-keyword' is t then keyword assignment
+is treated just like assignment statements. When nil, spaces are
+removed for keyword assignment. Any other value keeps the current space
+around the `='. Limits in for loops are treated as keyword assignment.
Starting with IDL 6.0, a number of op= assignments are available.
Since ambiguities of the form:
@@ -2793,7 +2792,7 @@
(idlwave-indent-line t)))
(defun idlwave-indent-line (&optional expand)
- "Indents current IDL line as code or as a comment.
+ "Indent current IDL line as code or as a comment.
The actions in `idlwave-indent-action-table' are performed.
If the optional argument EXPAND is non-nil then the actions in
`idlwave-indent-expand-table' are performed."
@@ -2850,13 +2849,13 @@
(set-marker mloc nil)))
(defun idlwave-do-action (action)
- "Perform an action repeatedly on a line. ACTION is a list (REG
-. FUNC). REG is a regular expression. FUNC is either a function name
-to be called with `funcall' or a list to be evaluated with `eval'.
-The action performed by FUNC should leave point after the match for
-REG - otherwise an infinite loop may be entered. FUNC is always
-passed a final argument of 'is-action, so it can discriminate between
-being run as an action, or a key binding"
+ "Perform an action repeatedly on a line.
+ACTION is a list (REG . FUNC). REG is a regular expression. FUNC is
+either a function name to be called with `funcall' or a list to be
+evaluated with `eval'. The action performed by FUNC should leave
+point after the match for REG - otherwise an infinite loop may be
+entered. FUNC is always passed a final argument of 'is-action, so it
+can discriminate between being run as an action, or a key binding."
(let ((action-key (car action))
(action-routine (cdr action)))
(beginning-of-line)
@@ -2882,7 +2881,7 @@
(idlwave-indent-to col)))
(defun idlwave-indent-subprogram ()
- "Indents program unit which contains point."
+ "Indent program unit which contains point."
(interactive)
(save-excursion
(idlwave-end-of-statement)
@@ -2961,7 +2960,7 @@
(defun idlwave-calculate-paren-indent (beg-reg end-reg close-exp)
"Calculate the continuation indent inside a paren group.
Returns a cons-cell with (open . indent), where open is the
-location of the open paren"
+location of the open paren."
(let ((open (nth 1 (parse-partial-sexp beg-reg end-reg))))
;; Found an innermost open paren.
(when open
@@ -2990,12 +2989,11 @@
(current-column))))))))
(defun idlwave-calculate-cont-indent ()
- "Calculates the IDL continuation indent column from the previous
-statement. Note that here previous statement usually means the
-beginning of the current statement if this statement is a continuation
-of the previous line. Various special types of continuations,
-including assignments, routine definitions, and parenthetical
-groupings, are treated separately."
+ "Calculates the IDL continuation indent column from the previous statement.
+Note that here previous statement usually means the beginning of the
+current statement if this statement is a continuation of the previous
+line. Various special types of continuations, including assignments,
+routine definitions, and parenthetical groupings, are treated separately."
(save-excursion
(let* ((case-fold-search t)
(end-reg (progn (beginning-of-line) (point)))
@@ -3212,7 +3210,7 @@
((current-column)))))
(defun idlwave-is-continuation-line ()
- "Tests if current line is continuation line.
+ "Test if current line is continuation line.
Blank or comment-only lines following regular continuation lines (with
`$') count as continuations too."
(let (p)
@@ -3225,19 +3223,19 @@
(if (setq p (idlwave-look-at "\\<\\$")) (throw 'loop p))))))))
(defun idlwave-is-comment-line ()
- "Tests if the current line is a comment line."
+ "Test if the current line is a comment line."
(save-excursion
(beginning-of-line 1)
(looking-at "[ \t]*;")))
(defun idlwave-is-comment-or-empty-line ()
- "Tests if the current line is a comment line."
+ "Test if the current line is a comment line."
(save-excursion
(beginning-of-line 1)
(looking-at "[ \t]*[;\n]")))
(defun idlwave-look-at (regexp &optional cont beg)
- "Searches current line from current point for REGEXP.
+ "Search current line from current point for REGEXP.
If optional argument CONT is non-nil, searches to the end of
the current statement.
If optional arg BEG is non-nil, search starts from the beginning of the
@@ -3261,7 +3259,7 @@
found))
(defun idlwave-fill-paragraph (&optional nohang)
- "Fills paragraphs in comments.
+ "Fill paragraphs in comments.
A paragraph is made up of all contiguous lines having the same comment
leader (the leading whitespace before the comment delimiter and the
comment delimiter). In addition, paragraphs are separated by blank
@@ -3270,8 +3268,8 @@
the first line. The indentation of the first line does not change.
Does not effect code lines. Does not fill comments on the same line
with code. The hanging indent is given by the end of the first match
-matching `idlwave-hang-indent-regexp' on the paragraph's first line . If the
-optional argument NOHANG is non-nil then the hanging indent is
+matching `idlwave-hang-indent-regexp' on the paragraph's first line.
+If the optional argument NOHANG is non-nil then the hanging indent is
ignored."
(interactive "P")
;; check if this is a line comment
@@ -3440,11 +3438,11 @@
(setq fill-prefix nil))))
(defun idlwave-calc-hanging-indent ()
- "Calculate the position of the hanging indent for the comment
-paragraph. The hanging indent position is given by the first match
-with the `idlwave-hang-indent-regexp'. If `idlwave-use-last-hang-indent' is
-non-nil then use last occurrence matching `idlwave-hang-indent-regexp' on
-the line.
+ "Calculate the position of the hanging indent for the comment paragraph.
+The hanging indent position is given by the first match with the
+`idlwave-hang-indent-regexp'. If `idlwave-use-last-hang-indent' is
+non-nil then use last occurrence matching `idlwave-hang-indent-regexp'
+on the line.
If not found returns nil."
(if idlwave-use-last-hang-indent
(save-excursion
@@ -3581,11 +3579,11 @@
; (let ((where (idlwave-where)))))
-(defun idlwave-doc-header (&optional nomark )
+(defun idlwave-doc-header (&optional nomark)
"Insert a documentation header at the beginning of the unit.
-Inserts the value of the variable idlwave-file-header. Sets mark before
-moving to do insertion unless the optional prefix argument NOMARK
-is non-nil."
+Inserts the value of the variable `idlwave-file-header'. Sets mark
+before moving to do insertion unless the optional prefix argument
+NOMARK is non-nil."
(interactive "P")
(or nomark (push-mark))
;; make sure we catch the current line if it begins the unit
@@ -3608,7 +3606,7 @@
(goto-char pos)))
(defun idlwave-default-insert-timestamp ()
- "Default timestamp insertion function"
+ "Default timestamp insertion function."
(insert (current-time-string))
(insert ", " (user-full-name))
(if (boundp 'user-mail-address)
@@ -3623,8 +3621,8 @@
(defun idlwave-doc-modification ()
"Insert a brief modification log at the beginning of the current program.
Looks for an occurrence of the value of user variable
-`idlwave-doc-modifications-keyword' if non-nil. Inserts time and user name
-and places the point for the user to add a log. Before moving, saves
+`idlwave-doc-modifications-keyword' if non-nil. Inserts time and user
+name and places the point for the user to add a log. Before moving, saves
location on mark ring so that the user can return to previous point."
(interactive)
(push-mark)
@@ -3672,12 +3670,12 @@
(expand-region-abbrevs start end 'noquery))))
(defun idlwave-quoted ()
- "Returns t if point is in a comment or quoted string.
-nil otherwise."
+ "Return t if point is in a comment or quoted string.
+Returns nil otherwise."
(or (idlwave-in-comment) (idlwave-in-quote)))
(defun idlwave-in-quote ()
- "Returns location of the opening quote
+ "Return location of the opening quote
if point is in a IDL string constant, nil otherwise.
Ignores comment delimiters on the current line.
Properly handles nested quotation marks and octal
@@ -3730,7 +3728,7 @@
(if (> start bq) bq))))
(defun idlwave-is-pointer-dereference (&optional limit)
- "Determines if the character after point is a pointer dereference *."
+ "Determine if the character after point is a pointer dereference *."
(let ((pos (point)))
(and
(eq (char-after) ?\*)
@@ -3753,8 +3751,8 @@
Opens a line if point is not followed by a newline modulo intervening
whitespace. S1 and S2 are strings. S1 is inserted at point followed
by S2. Point is inserted between S1 and S2. The case of S1 and S2 is
-adjusted according to `idlwave-abbrev-change-case'. If optional argument
-PROMPT is a string then it is displayed as a message in the
+adjusted according to `idlwave-abbrev-change-case'. If optional
+argument PROMPT is a string then it is displayed as a message in the
minibuffer. The PROMPT serves as a reminder to the user of an
expression to enter.
@@ -3815,7 +3813,7 @@
"Selector expression"))
(defun idlwave-for ()
- "Build skeleton for loop statment."
+ "Build skeleton IDL loop statement."
(interactive)
(idlwave-template
(idlwave-rw-case "for")
@@ -3823,7 +3821,7 @@
"Loop expression"))
(defun idlwave-if ()
- "Build skeleton for loop statment."
+ "Build skeleton IDL if statement."
(interactive)
(idlwave-template
(idlwave-rw-case "if")
@@ -3891,7 +3889,7 @@
(t (error "This should not happen (idlwave-get-buffer-visiting)"))))
(defvar idlwave-outlawed-buffers nil
- "List of buffer pulled up by idlwave for special reasons.
+ "List of buffers pulled up by IDLWAVE for special reasons.
Buffers in this list may be killed by `idlwave-kill-autoloaded-buffers'.")
(defun idlwave-find-file-noselect (file &optional why)
@@ -3912,7 +3910,7 @@
stopped or an error was found.
a Both of the above.
-Buffer containing unsaved changes require confirmation before they are killed."
+Buffers containing unsaved changes require confirmation before they are
killed."
(interactive)
(if (null idlwave-outlawed-buffers)
(error "No IDLWAVE-created buffers available")
@@ -3986,7 +3984,7 @@
(t (idlwave-locate-lib-file file))))
(defun idlwave-make-tags ()
- "Creates the IDL tags file IDLTAGS in the current directory from
+ "Create the IDL tags file IDLTAGS in the current directory from
the list of directories specified in the minibuffer. Directories may be
for example: . /usr/local/rsi/idl/lib. All the subdirectories of the
specified top directories are searched if the directory name is prefixed
@@ -4238,9 +4236,10 @@
kwd-list)
(defun idlwave-sintern-rinfo-list (list &optional set default-dir)
- "Sintern all strings in the rinfo LIST. With optional parameter
-SET: also set new patterns. Probably this will always have to be t.
-If DEFAULT-DIR is passed, it is used as the base of the directory"
+ "Sintern all strings in the rinfo LIST.
+With optional parameter SET: also set new patterns. Probably this
+will always have to be t. If DEFAULT-DIR is passed, it is used as
+the base of the directory."
(let (entry name type class kwds res source call new)
(while list
(setq entry (car list)
@@ -4352,8 +4351,8 @@
(defun idlwave-routines ()
"Provide a list of IDL routines.
-This routine loads the builtin routines on the first call. Later it
-only returns the value of the variable."
+This routine loads the builtin routines on the first call.
+Later it only returns the value of the variable."
(if (and idlwave-catalog-process
(processp idlwave-catalog-process))
(progn
@@ -5168,7 +5167,8 @@
(idlwave-update-current-buffer-info 'find-file))
(defun idlwave-update-current-buffer-info (why)
- "Update idlwave-routines for current buffer. Can run from after-save-hook."
+ "Update `idlwave-routines' for current buffer.
+Can run from `after-save-hook'."
(when (and (eq major-mode 'idlwave-mode)
(or (eq t idlwave-auto-routine-info-updates)
(memq why idlwave-auto-routine-info-updates))
@@ -5324,9 +5324,9 @@
A widget checklist will allow you to choose the directories. Write
the result as a file `idlwave-user-catalog-file'. When this file
-exists, will be automatically loaded to give routine information about
-library routines. With ARG, just rescan the same directories as last
-time - so no widget will pop up."
+exists, it will be automatically loaded to give routine information
+about library routines. With ARG, just rescan the same directories
+as last time - so no widget will pop up."
(interactive "P")
;; Make sure the file is loaded if it exists.
(if (and (stringp idlwave-user-catalog-file)
@@ -5807,10 +5807,10 @@
end
;; END OF IDLWAVE SUPPORT ROUTINES
"
- "The idl programs to get info from the shell.")
+ "The IDL programs to get info from the shell.")
(defvar idlwave-idlwave_routine_info-compiled nil
- "Remembers if the routine info procedure is already compiled.")
+ "Remember if the routine info procedure is already compiled.")
(defvar idlwave-shell-temp-pro-file)
(defvar idlwave-shell-temp-rinfo-save-file)
@@ -5875,12 +5875,12 @@
at this point.
- At the beginning of a statement it completes procedure names.
- In the middle of a statement it completes function names.
-- after a `(' or `,' in the argument list of a function or procedure,
+- After a `(' or `,' in the argument list of a function or procedure,
it completes a keyword of the relevant function or procedure.
- In the first arg of `OBJ_NEW', it completes a class name.
-When several completions are possible, a list will be displayed in the
-*Completions* buffer. If this list is too long to fit into the
+When several completions are possible, a list will be displayed in
+the *Completions* buffer. If this list is too long to fit into the
window, scrolling can be achieved by repeatedly pressing
\\[idlwave-complete].
@@ -6303,7 +6303,8 @@
(nreverse rtn)))
(defun idlwave-all-method-classes (method &optional type)
- "Return all classes which have a method METHOD. TYPE is 'fun or 'pro.
+ "Return all classes which have a method METHOD.
+TYPE is 'fun or 'pro.
When TYPE is not specified, both procedures and functions will be considered."
(if (null method)
(mapcar 'car (idlwave-class-alist))
@@ -6354,7 +6355,7 @@
(defun idlwave-explicit-class-listed (info)
"Return whether or not the class is listed explicitly, ala a->b::c.
-INFO is as returned by idlwave-what-function or -procedure."
+INFO is as returned by `idlwave-what-function' or `-procedure'."
(let ((apos (nth 3 info)))
(if apos
(save-excursion (goto-char apos)
@@ -6362,7 +6363,7 @@
(defvar idlwave-determine-class-special nil
"List of special functions for determining class.
-Must accept two arguments: `apos' and `info'")
+Must accept two arguments: `apos' and `info'.")
(defun idlwave-determine-class (info type)
;; Determine the class of a routine call.
@@ -6711,7 +6712,7 @@
"Perform TYPE completion of word before point against LIST.
SELECTOR is the PREDICATE argument for the completion function. Show
PROMPT in echo area. TYPE is one of the intern types, e.g. 'function,
-'procedure, 'class-tag, 'keyword, 'sysvar, etc.. SPECIAL-SELECTOR is
+'procedure, 'class-tag, 'keyword, 'sysvar, etc. SPECIAL-SELECTOR is
used only once, for `all-completions', and can be used to, e.g.,
accumulate information on matching completions."
(let* ((completion-ignore-case t)
@@ -6922,7 +6923,7 @@
(defun idlwave-popup-select (ev list title &optional sort)
"Select an item in LIST with a popup menu.
TITLE is the title to put atop the popup. If SORT is non-nil,
-sort the list before displaying"
+sort the list before displaying."
(let ((maxpopup idlwave-max-popup-menu-items)
rtn menu resp)
(cond ((null list))
@@ -7186,7 +7187,7 @@
;; help feature.
(defvar idlwave-completion-map nil
- "Keymap for completion-list-mode with idlwave-complete.")
+ "Keymap for `completion-list-mode' with `idlwave-complete'.")
(defun idlwave-display-completion-list-xemacs (list &rest cl-args)
(with-output-to-temp-buffer "*Completions*"
@@ -7263,8 +7264,7 @@
(defvar idlwave-struct-skip
"[ \t]*\\(\\$.*\n\\(^[ \t]*\\(\\$[ \t]*\\)?\\(;.*\\)?\n\\)*\\)?[ \t]*"
- "Regexp for skipping continued blank or comment-only lines in
-structures")
+ "Regexp for skipping continued blank or comment-only lines in structures.")
(defvar idlwave-struct-tag-regexp
(concat "[{,]" ;leading comma/brace
@@ -7348,13 +7348,13 @@
(cons beg (point)))))
(defun idlwave-find-structure-definition (&optional var name bound)
- "Search forward for a structure definition. If VAR is non-nil,
-search for a structure assigned to variable VAR. If NAME is non-nil,
-search for a named structure NAME, if a string, or a generic named
-structure otherwise. If BOUND is an integer, limit the search. If
-BOUND is the symbol `all', we search first back and then forward
-through the entire file. If BOUND is the symbol `back' we search only
-backward."
+ "Search forward for a structure definition.
+If VAR is non-nil, search for a structure assigned to variable VAR.
+If NAME is non-nil, search for a named structure NAME, if a string,
+or a generic named structure otherwise. If BOUND is an integer, limit
+the search. If BOUND is the symbol `all', we search first back and
+then forward through the entire file. If BOUND is the symbol `back'
+we search only backward."
(let* ((ws "[ \t]*\\(\\$.*\n[ \t]*\\)*")
(case-fold-search t)
(lim (if (integerp bound) bound nil))
@@ -7420,11 +7420,11 @@
(cdr inherits))))))
(defun idlwave-find-class-definition (class &optional all-hook alt-class)
- "Find class structure definition(s)
+ "Find class structure definition(s).
If ALL-HOOK is set, find all named structure definitions in a given
class__define routine, on which ALL-HOOK will be run. If ALT-CLASS is
set, look for the name__define pro, and inside of it, for the ALT-CLASS
-class/struct definition"
+class/struct definition."
(let ((case-fold-search t) end-lim list name)
(when (re-search-forward
(concat "^[ \t]*pro[ \t]+" (downcase class) "__define" "\\>") nil t)
@@ -7439,7 +7439,7 @@
(defun idlwave-class-file-or-buffer (class)
- "Find buffer visiting CLASS definition"
+ "Find buffer visiting CLASS definition."
(let* ((pro (concat (downcase class) "__define"))
(file (idlwave-routine-source-file
(nth 3 (idlwave-rinfo-assoc pro 'pro nil
@@ -7448,7 +7448,7 @@
(defun idlwave-scan-class-info (class)
- "Scan all class and named structure info in the class__define pro"
+ "Scan all class and named structure info in the class__define pro."
(let* ((idlwave-auto-routine-info-updates nil)
(filebuf (idlwave-class-file-or-buffer class))
(file (car filebuf))
@@ -7484,7 +7484,7 @@
(push entry idlwave-class-info)))))))))
(defun idlwave-class-found-in (class)
- "Return the FOUND-IN property of the class."
+ "Return the FOUND-IN property of the CLASS."
(cdr (assq 'found-in (idlwave-class-info class))))
(defun idlwave-class-tags (class)
"Return the native tags in CLASS."
@@ -7563,7 +7563,7 @@
(nreverse kwds)))
(defun idlwave-entry-find-keyword (entry keyword)
- "Find keyword KEYWORD in entry ENTRY, and return (with link) if set"
+ "Find keyword KEYWORD in entry ENTRY, and return (with link) if set."
(catch 'exit
(mapc
(lambda (key-list)
@@ -7722,13 +7722,13 @@
(t (error "This should not happen")))))
(defun idlwave-split-link-target (link)
- "Split a given link into link file and anchor."
+ "Split a given LINK into link file and anchor."
(if (string-match idlwave-html-link-sep link)
(cons (substring link 0 (match-beginning 0))
(string-to-number (substring link (match-end 0))))))
(defun idlwave-substitute-link-target (link target)
- "Substitute the target anchor for the given link."
+ "Substitute the TARGET anchor for the given LINK."
(let (main-base)
(setq main-base (if (string-match "#" link)
(substring link 0 (match-beginning 0))
@@ -7920,14 +7920,14 @@
(idlwave-do-mouse-completion-help ev))
(defun idlwave-routine-info (&optional arg external)
- "Display a routines calling sequence and list of keywords. When
-point is on the name a function or procedure, or in the argument list
-of a function or procedure, this command displays a help buffer with
+ "Display a routines calling sequence and list of keywords.
+When point is on the name a function or procedure, or in the argument
+list of a function or procedure, this command displays a help buffer with
the information. When called with prefix arg, enforce class query.
When point is on an object operator `->', display the class stored in
-this arrow, if any (see `idlwave-store-inquired-class'). With a
-prefix arg, the class property is cleared out."
+this arrow, if any (see `idlwave-store-inquired-class'). With a prefix
+arg, the class property is cleared out."
(interactive "P")
(idlwave-routines)
@@ -8008,8 +8008,8 @@
(defun idlwave-find-module (&optional arg)
"Find the source code of an IDL module.
-Works for modules for which IDLWAVE has routine info available. The
-function offers as default the module name `idlwave-routine-info'
+Works for modules for which IDLWAVE has routine info available.
+The function offers as default the module name `idlwave-routine-info'
would use. With ARG limit to this buffer. With two prefix ARG's
force class query for object methods."
(interactive "P")
@@ -8166,7 +8166,7 @@
(t nil)))))
(defun idlwave-what-module-find-class ()
- "Call idlwave-what-module and find the inherited class if necessary."
+ "Call `idlwave-what-module' and find the inherited class if necessary."
(let* ((module (idlwave-what-module))
(class (nth 2 module))
classes)
@@ -8210,7 +8210,7 @@
&optional super-classes system)
"Update a list of keywords.
Translate OBJ_NEW, adding all super-class keywords, or all keywords
-from all classes if class equals t. If SYSTEM is non-nil, don't
+from all classes if CLASS equals t. If SYSTEM is non-nil, don't
demand _EXTRA in the keyword list."
(let ((case-fold-search t))
@@ -8492,8 +8492,8 @@
(defun idlwave-insert-source-location (prefix entry &optional file-props)
"Insert a source location into the routine info buffer.
-Start line with PREFIX. If a file name is inserted, add FILE-PROPS to
-it."
+Start line with PREFIX. If a file name is inserted, add FILE-PROPS
+to it."
(let* ((key (car entry))
(file (nth 1 entry))
(types (nth 2 entry))
@@ -8591,7 +8591,7 @@
(idlwave-mouse-active-rinfo nil 'right))
(defun idlwave-mouse-active-rinfo (ev &optional right shift)
- "Does the mouse actions in the routine info buffer.
+ "Do the mouse actions in the routine info buffer.
Optional args RIGHT and SHIFT indicate, if mouse-3 was used, and if SHIFT
was pressed."
(interactive "e")
@@ -8704,8 +8704,8 @@
When SPECIAL-ROUTINES in non-nil, only look for shadows of these routines.
When IDL hits a routine call which is not defined, it will search on
-the load path in order to find a definition. The output of this
-command can be used to detect possible name clashes during this process."
+the load path in order to find a definition. The output of this command
+can be used to detect possible name clashes during this process."
(idlwave-routines) ; Make sure everything is loaded.
(unless (or idlwave-user-catalog-routines idlwave-library-catalog-routines)
(or (y-or-n-p
@@ -8889,10 +8889,11 @@
(not (and ,a ,b))))
(defun idlwave-routine-entry-compare (a b)
- "Compare two routine info entries for sortiung. This is the general case.
-It first compates class, names, and type. If it turns out that A and B
-are twins (same name, class, and type), calls another routine which
-compares twins on the basis of their file names and path locations."
+ "Compare two routine info entries for sorting.
+This is the general case. It first compares class, names, and type.
+If it turns out that A and B are twins (same name, class, and type),
+calls another routine which compares twins on the basis of their file
+names and path locations."
(let ((name (car a)) (type (nth 1 a)) (class (nth 2 a)))
(cond
((not (equal (idlwave-downcase-safe class)
@@ -8913,9 +8914,8 @@
(idlwave-routine-entry-compare-twins a b)))))
(defun idlwave-routine-entry-compare-twins (a b)
- "Compare two routine entries, under the assumption that they are
-twins. This basically calls `idlwave-routine-twin-compare' with the
-correct args."
+ "Compare two routine entries, under the assumption that they are twins.
+This basically calls `idlwave-routine-twin-compare' with the correct args."
(let* ((name (car a)) (type (nth 1 a)) (class (nth 2 a)) ; needed outside
(asrc (nth 3 a))
(atype (car asrc))
@@ -9022,7 +9022,7 @@
(string-match (concat "^" (regexp-quote true-syslib)) true-file)))
(defun idlwave-lib-p (file)
- "Non-nil if file is in the library"
+ "Non-nil if FILE is in the library."
(let ((true-dir (file-name-directory (file-truename file))))
(assoc true-dir (idlwave-true-path-alist))))
@@ -9254,7 +9254,7 @@
idlwave-mode-debug-menu-def)))
(defun idlwave-customize ()
- "Call the customize function with idlwave as argument."
+ "Call the customize function with `idlwave' as argument."
(interactive)
;; Try to load the code for the shell, so that we can customize it
;; as well.
Index: progmodes/inf-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/inf-lisp.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- progmodes/inf-lisp.el 5 Jan 2009 03:23:43 -0000 1.51
+++ progmodes/inf-lisp.el 24 Sep 2009 01:37:21 -0000 1.52
@@ -214,7 +214,7 @@
;;;###autoload
(defvar inferior-lisp-mode-hook '()
- "*Hook for customising Inferior Lisp mode.")
+ "*Hook for customizing Inferior Lisp mode.")
(put 'inferior-lisp-mode 'mode-class 'special)
Index: textmodes/bibtex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.148
retrieving revision 1.149
diff -u -b -r1.148 -r1.149
--- textmodes/bibtex.el 1 Sep 2009 03:18:55 -0000 1.148
+++ textmodes/bibtex.el 24 Sep 2009 01:37:21 -0000 1.149
@@ -216,7 +216,7 @@
entries are ordered according to the classes they belong to. Each
class contains a list of entry types. An entry `catch-all' applies
to all entries not explicitly mentioned."
- :group 'BibTeX
+ :group 'bibtex
:type '(repeat (choice :tag "Class"
(const :tag "catch-all" (catch-all))
(repeat :tag "Entry type" string))))
Index: textmodes/ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.257
retrieving revision 1.258
diff -u -b -r1.257 -r1.258
--- textmodes/ispell.el 13 Sep 2009 22:29:00 -0000 1.257
+++ textmodes/ispell.el 24 Sep 2009 01:37:22 -0000 1.258
@@ -938,7 +938,7 @@
(defun ispell-find-aspell-dictionaries ()
"Find Aspell's dictionaries, and record in `ispell-dictionary-alist'."
(unless (and ispell-really-aspell ispell-encoding8-command)
- (error "This function only works with aspell >= 0.60."))
+ (error "This function only works with aspell >= 0.60"))
(let* ((dictionaries
(split-string
(with-temp-buffer
Index: textmodes/reftex-toc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/reftex-toc.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- textmodes/reftex-toc.el 1 Sep 2009 03:02:35 -0000 1.48
+++ textmodes/reftex-toc.el 24 Sep 2009 01:37:22 -0000 1.49
@@ -781,7 +781,7 @@
(let* ((toc (get-text-property (point) :data))
(label (car toc)) newlabel)
(if (not (stringp label))
- (error "This is not a label entry."))
+ (error "This is not a label entry"))
(setq newlabel (read-string (format "Rename label \"%s\" to:" label)))
(if (assoc newlabel (symbol-value reftex-docstruct-symbol))
(if (not (y-or-n-p
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog allout.el dired-aux.el dir...,
Juanma Barranquero <=