Mercurial > emacs
changeset 105170:f8ba8d6fd250
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
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 24 Sep 2009 01:37:14 +0000 |
| parents | 1d903e2f65af |
| children | efc95dcaa727 |
| files | lisp/ChangeLog lisp/allout.el lisp/dired-aux.el lisp/dired-x.el lisp/dired.el lisp/emacs-lisp/authors.el lisp/epa-file.el lisp/net/dig.el lisp/net/net-utils.el lisp/net/socks.el lisp/net/zeroconf.el lisp/obsolete/vc-mcvs.el lisp/progmodes/gdb-mi.el lisp/progmodes/grep.el lisp/progmodes/idlw-help.el lisp/progmodes/idlw-shell.el lisp/progmodes/idlwave.el lisp/progmodes/inf-lisp.el lisp/ps-print.el lisp/shell.el lisp/textmodes/bibtex.el lisp/textmodes/ispell.el lisp/textmodes/reftex-toc.el lisp/vc-hooks.el lisp/vc-rcs.el lisp/vc-sccs.el lisp/vc.el lisp/view.el lisp/wdired.el |
| diffstat | 29 files changed, 499 insertions(+), 379 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/ChangeLog Thu Sep 24 01:37:14 2009 +0000 @@ -1,3 +1,121 @@ +2009-09-24 Juanma Barranquero <lekktu@gmail.com> + + * 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 <apple@kanis.eu> * term.el (term-bold-attribute): New var. @@ -351,9 +469,9 @@ 2009-09-15 Stephen Eglen <stephen@gnu.org> * iswitchb.el (iswitchb-read-buffer): When selecting a match from - the virtual-buffers, use the name of the buffer specified by + 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 <monnier@iro.umontreal.ca>
--- a/lisp/allout.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/allout.el Thu Sep 24 01:37:14 2009 +0000 @@ -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."
--- a/lisp/dired-aux.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/dired-aux.el Thu Sep 24 01:37:14 2009 +0000 @@ -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
--- a/lisp/dired-x.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/dired-x.el Thu Sep 24 01:37:14 2009 +0000 @@ -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." @@ -1325,7 +1325,7 @@ ;; * `dired-simultaneous-find-file' runs through FILE-LIST decrementing the ;;; list each time. ;;; -;; * If NOSELECT is non-nil then just run `find-file-noselect' on each +;; * If NOSELECT is non-nil then just run `find-file-noselect' on each ;;; element of FILE-LIST. ;;; ;; * If NOSELECT is nil then calculate the `size' of the window for each file @@ -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)
--- a/lisp/dired.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/dired.el Thu Sep 24 01:37:14 2009 +0000 @@ -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" "\
--- a/lisp/emacs-lisp/authors.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/emacs-lisp/authors.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/epa-file.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/epa-file.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/net/dig.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/net/dig.el Thu Sep 24 01:37:14 2009 +0000 @@ -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
--- a/lisp/net/net-utils.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/net/net-utils.el Thu Sep 24 01:37:14 2009 +0000 @@ -372,28 +372,28 @@ (display-buffer buffer-name)) ;;;###autoload -(defun ifconfig () - "Run ifconfig and display diagnostic output." - (interactive) - (net-utils-run-simple - (format "*%s*" ifconfig-program) - ifconfig-program +(defun ifconfig () + "Run ifconfig and display diagnostic output." + (interactive) + (net-utils-run-simple + (format "*%s*" ifconfig-program) + ifconfig-program ifconfig-program-options)) (defalias 'ipconfig 'ifconfig) ;;;###autoload -(defun iwconfig () - "Run iwconfig and display diagnostic output." - (interactive) - (net-utils-run-simple - (format "*%s*" iwconfig-program) - iwconfig-program +(defun iwconfig () + "Run iwconfig and display diagnostic output." + (interactive) + (net-utils-run-simple + (format "*%s*" iwconfig-program) + iwconfig-program iwconfig-program-options)) ;;;###autoload (defun netstat () - "Run netstat and display diagnostic output." + "Run netstat and display diagnostic output." (interactive) (net-utils-run-simple (format "*%s*" netstat-program) @@ -402,7 +402,7 @@ ;;;###autoload (defun arp () - "Run arp and display diagnostic output." + "Run arp and display diagnostic output." (interactive) (net-utils-run-simple (format "*%s*" arp-program)
--- a/lisp/net/socks.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/net/socks.el Thu Sep 24 01:37:14 2009 +0000 @@ -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))
--- a/lisp/net/zeroconf.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/net/zeroconf.el Thu Sep 24 01:37:14 2009 +0000 @@ -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."
--- a/lisp/obsolete/vc-mcvs.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/obsolete/vc-mcvs.el Thu Sep 24 01:37:14 2009 +0000 @@ -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))
--- a/lisp/progmodes/gdb-mi.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/gdb-mi.el Thu Sep 24 01:37:14 2009 +0000 @@ -1918,7 +1918,7 @@ ;; thread (when (not gdb-register-names) (gdb-input - (list (concat "-data-list-register-names" + (list (concat "-data-list-register-names" (if (string-equal gdb-version "7.0+") (concat" --thread " thread-id))) 'gdb-register-names-handler))) @@ -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"))))
--- a/lisp/progmodes/grep.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/grep.el Thu Sep 24 01:37:14 2009 +0000 @@ -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: "
--- a/lisp/progmodes/idlw-help.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/idlw-help.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/progmodes/idlw-shell.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/idlw-shell.el Thu Sep 24 01:37:14 2009 +0000 @@ -241,13 +241,13 @@ (defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+:_.$#%={}\\- " "The characters allowed in file names, as a string. -Used for file name completion. Must not contain `'', `,' and `\"' +Used for file name completion. Must not contain `'', `,' and `\"' because these are used as separators by IDL." :group 'idlwave-shell-general-setup :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 @@ -754,12 +753,12 @@ "List of commands to be sent to IDL. Each element of the list is list of \(CMD PCMD HIDE\), where CMD is a string to be sent to IDL and PCMD is a post-command to be placed on -`idlwave-shell-post-command-hook'. If HIDE is non-nil, hide the output -from command CMD. PCMD and HIDE are optional.") +`idlwave-shell-post-command-hook'. If HIDE is non-nil, hide the output +from command CMD. PCMD and HIDE are optional.") (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. @@ -1287,7 +1286,7 @@ If optional fourth argument PREEMPT is non-nil CMD is put at front of `idlwave-shell-pending-commands'. If PREEMPT is 'wait, wait for all output to complete and the next prompt to arrive before returning -\(useful if you need an answer now\). IDL is considered ready if the +\(useful if you need an answer now\). IDL is considered ready if the prompt is present and if `idlwave-shell-ready' is non-nil. If SHOW-IF-ERROR is non-nil, show the output if it contains an error @@ -1609,7 +1608,7 @@ idlwave-shell-post-command-hook nil idlwave-shell-hide-output nil idlwave-shell-show-if-error nil)) - ;; Done with post command. Do pending command if + ;; Done with post command. Do pending command if ;; any. (idlwave-shell-send-command))) (store-match-data data))))) @@ -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. - -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 + "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 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)) @@ -2880,7 +2881,7 @@ directly following the identifier - an array or function call. Alternatively, an expression is the contents of any matched parentheses when the open parenthesis is not directly preceded by an -identifier. If point is at the beginning or within an expression +identifier. If point is at the beginning or within an expression return the inner-most containing expression, otherwise, return the preceding expression. @@ -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 @@ -3271,7 +3272,7 @@ data - Data associated with the breakpoint by idlwave-shell currently contains four items: -count - number of times to execute breakpoint. When count reaches 0 +count - number of times to execute breakpoint. When count reaches 0 the breakpoint is cleared and removed from the alist. command - command to execute when breakpoint is reached, either a @@ -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)
--- a/lisp/progmodes/idlwave.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/idlwave.el Thu Sep 24 01:37:14 2009 +0000 @@ -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,15 +249,15 @@ ))) 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 $ ], $ c, d $ )))" - :group 'idlwave-code-formatting + :group 'idlwave-code-formatting :type 'boolean) (defcustom idlwave-indent-parens-nested nil @@ -276,7 +276,7 @@ (defcustom idlwave-hang-indent-regexp "- " "*Regular expression matching the position of the hanging indent -in the first line of a comment paragraph. The size of the indent +in the first line of a comment paragraph. The size of the indent extends to the end of the match for the regular expression." :group 'idlwave-code-formatting :type 'regexp) @@ -312,7 +312,7 @@ (defcustom idlwave-no-change-comment ";;;" "*The indentation of a comment that starts with this regular -expression will not be changed. Note that the indentation of a comment +expression will not be changed. Note that the indentation of a comment at the beginning of a line is never changed." :group 'idlwave-code-formatting :type 'string) @@ -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 @@ -399,7 +398,7 @@ Possible values: nil Never t All available -\(...) A list of circumstances. Allowed members are: +\(...) A list of circumstances. Allowed members are: find-file Add info for new IDLWAVE buffers. save-buffer Update buffer info when buffer is saved kill-buffer Remove buffer info when buffer gets killed @@ -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) @@ -804,9 +803,9 @@ (defcustom idlwave-abbrev-move t "*Non-nil means the abbrev hook can move point. -Set to nil by `idlwave-expand-region-abbrevs'. To see the abbrev +Set to nil by `idlwave-expand-region-abbrevs'. To see the abbrev definitions, use the command `list-abbrevs', for abbrevs that move -point. Moving point is useful, for example, to place point between +point. Moving point is useful, for example, to place point between parentheses of expanded functions. See `idlwave-check-abbrev'." @@ -862,7 +861,7 @@ (defvar idlwave-indent-action-table nil "*Associated array containing action lists of search string (car), -and function as a cdr. This table is used by `idlwave-indent-line'. +and function as a cdr. This table is used by `idlwave-indent-line'. See documentation for `idlwave-do-action' for a complete description of the action lists. @@ -872,8 +871,8 @@ (defvar idlwave-indent-expand-table nil "*Associated array containing action lists of search string (car), -and function as a cdr. The table is used by the -`idlwave-indent-and-action' function. See documentation for +and function as a cdr. The table is used by the +`idlwave-indent-and-action' function. See documentation for `idlwave-do-action' for a complete description of the action lists. Additions to the table are made with `idlwave-action-and-binding' when a @@ -951,8 +950,8 @@ ;- ") "*A list (PATHNAME STRING) specifying the doc-header template to use for -summarizing a file. If PATHNAME is non-nil then this file will be included. -Otherwise STRING is used. If nil, the file summary will be omitted. +summarizing a file. If PATHNAME is non-nil then this file will be included. +Otherwise STRING is used. If nil, the file summary will be omitted. For example you might set PATHNAME to the path for the lib_template.pro file included in the IDL distribution.") @@ -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 @@ -2363,7 +2362,7 @@ (defun idlwave-split-line () "Continue line by breaking line at point and indent the lines. -For a code line insert continuation marker. If the line is a line comment +For a code line insert continuation marker. If the line is a line comment then the new line will contain a comment with the same indentation. Splits strings with the IDL operator `+' if `idlwave-split-line-string' is non-nil." @@ -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,8 +2590,8 @@ (point)) (defun idlwave-end-of-statement0 () - "Moves point to the end of the current IDL statement. -If not in a statement just moves to end of line. Returns position." + "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) (= (forward-line 1) 0))) @@ -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) @@ -2692,9 +2691,9 @@ (defun idlwave-statement-type () "Return the type of the current IDL statement. Uses `idlwave-statement-match' to return a cons of (type . point) with -point the ending position where the type was determined. Type is the +point the ending position where the type was determined. Type is the association from `idlwave-statement-match', i.e. the cons cell from the -list not just the type symbol. Returns nil if not an identifiable +list not just the type symbol. Returns nil if not an identifiable statement." (save-excursion ;; Skip whitespace within a statement which is spaces, tabs, continuations @@ -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))) @@ -3144,10 +3142,10 @@ (defun idlwave-block-jump-out (&optional dir nomark) "When optional argument DIR is non-negative, move forward to end of current block using the `idlwave-begin-block-reg' and `idlwave-end-block-reg' -regular expressions. When DIR is negative, move backwards to block beginning. -Recursively calls itself to skip over nested blocks. DIR defaults to -forward. Calls `push-mark' unless the optional argument NOMARK is -non-nil. Movement is limited by the start of program units because of +regular expressions. When DIR is negative, move backwards to block beginning. +Recursively calls itself to skip over nested blocks. DIR defaults to +forward. Calls `push-mark' unless the optional argument NOMARK is +non-nil. Movement is limited by the start of program units because of possibility of unbalanced blocks." (interactive "P") (or dir (setq dir 0)) @@ -3203,7 +3201,7 @@ (defun idlwave-current-indent () "Return the column of the indentation of the current line. -Skips any whitespace. Returns 0 if the end-of-line follows the whitespace." +Skips any whitespace. Returns 0 if the end-of-line follows the whitespace." (save-excursion (beginning-of-line) (skip-chars-forward " \t") @@ -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 @@ -3245,7 +3243,7 @@ Ignores matches that end in a comment or inside a string expression. Returns point if successful, nil otherwise. This function produces unexpected results if REGEXP contains quotes or -a comment delimiter. The search is case insensitive. +a comment delimiter. The search is case insensitive. If successful leaves point after the match, otherwise, does not move point." (let ((here (point)) (case-fold-search t) @@ -3261,17 +3259,17 @@ 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 -line comments. The indentation is given by the hanging indent of the +line comments. The indentation is given by the hanging indent of the first line, otherwise by the minimum indentation of the lines after -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 +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,11 +3984,11 @@ (t (idlwave-locate-lib-file file)))) (defun idlwave-make-tags () - "Creates 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 + "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 -by @. Specify @ directories with care, it may take a long, long time if +by @. Specify @ directories with care, it may take a long, long time if you specify /." (interactive) (let (directory directories cmd append status numdirs dir getsubdirs @@ -4076,7 +4074,7 @@ (defun idlwave-toggle-comment-region (beg end &optional n) "Comment the lines in the region if the first non-blank line is -commented, and conversely, uncomment region. If optional prefix arg +commented, and conversely, uncomment region. If optional prefix arg N is non-nil, then for N positive, add N comment delimiters or for N negative, remove N comment delimiters. Uses `comment-region' which does not place comment delimiters on @@ -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 @@ -4383,7 +4382,7 @@ Does not run after automatic updates of buffer or the shell.") (defun idlwave-rescan-catalog-directories () - "Rescan the previously selected directories. For batch processing." + "Rescan the previously selected directories. For batch processing." (idlwave-update-routine-info '(16))) (defun idlwave-rescan-asynchronously () @@ -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.
--- a/lisp/progmodes/inf-lisp.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/progmodes/inf-lisp.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/ps-print.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/ps-print.el Thu Sep 24 01:37:14 2009 +0000 @@ -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
--- a/lisp/shell.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/shell.el Thu Sep 24 01:37:14 2009 +0000 @@ -355,7 +355,7 @@ 'complete-expand))) (defcustom shell-mode-hook '() - "Hook for customising Shell mode." + "Hook for customizing Shell mode." :type 'hook :group 'shell)
--- a/lisp/textmodes/bibtex.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/textmodes/bibtex.el Thu Sep 24 01:37:14 2009 +0000 @@ -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))))
--- a/lisp/textmodes/ispell.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/textmodes/ispell.el Thu Sep 24 01:37:14 2009 +0000 @@ -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
--- a/lisp/textmodes/reftex-toc.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/textmodes/reftex-toc.el Thu Sep 24 01:37:14 2009 +0000 @@ -675,7 +675,7 @@ (beginning-of-line 1) (if (looking-at reftex-section-regexp) (setq name (reftex-match-string 2)) - (error "Something is wrong! Contact maintainer!"))) + (error "Something is wrong! Contact maintainer!"))) ;; Section has changed, request scan and loading ;; We use a variable to delay until after the safe-exc. ;; because otherwise we loose the region. @@ -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
--- a/lisp/vc-hooks.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/vc-hooks.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/vc-rcs.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/vc-rcs.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)))
--- a/lisp/vc-sccs.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/vc-sccs.el Thu Sep 24 01:37:14 2009 +0000 @@ -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? "
--- a/lisp/vc.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/vc.el Thu Sep 24 01:37:14 2009 +0000 @@ -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)
--- a/lisp/view.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/view.el Thu Sep 24 01:37:14 2009 +0000 @@ -677,7 +677,7 @@ ;; Not the only frame, so can safely be removed. (if view-remove-frame-by-deleting (delete-frame frame) - (setq notlost t) ; Keep the window. See below. + (setq notlost t) ; Keep the window. See below. (iconify-frame frame)))))))) ;; If a frame is removed by iconifying it, the window is not ;; really lost. In this case we keep the entry in @@ -836,7 +836,7 @@ ;; Scroll forward LINES lines. If BACKWARD is non-nil, scroll backwards. ;; If LINES is negative scroll in the other direction. ;; If LINES is 0 or nil, scroll DEFAULT lines (if DEFAULT is nil, scroll - ;; by one page). If MAXDEFAULT is non-nil, scroll no more than a window. + ;; by one page). If MAXDEFAULT is non-nil, scroll no more than a window. (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) (setq lines default)) (when (and lines (< lines 0)) @@ -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)) @@ -1032,8 +1032,8 @@ (defun view-search (times regexp) ;; This function does the job for all the View-search- commands. - ;; Search for the TIMESt match for REGEXP. If TIMES is negative - ;; search backwards. If REGEXP is nil use `view-last-regexp'. + ;; Search for the TIMESt match for REGEXP. If TIMES is negative + ;; search backwards. If REGEXP is nil use `view-last-regexp'. ;; Characters "!" and "@" have a special meaning at the beginning of ;; REGEXP and are removed from REGEXP before the search "!" means ;; search for lines with no match for REGEXP. "@" means search in
--- a/lisp/wdired.el Thu Sep 24 01:20:36 2009 +0000 +++ b/lisp/wdired.el Thu Sep 24 01:37:14 2009 +0000 @@ -486,7 +486,7 @@ file-new "' failed:\n%s\n") err))))))))) errors)) - + (defun wdired-exit () "Exit wdired and return to dired mode. @@ -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.