Commit 5a0c3f56 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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
parent 62136c5d
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>
......
......@@ -2204,10 +2204,10 @@ internal functions use this feature cohesively bunch changes."
(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 @@ of the availability of a cached copy."
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 @@ of the availability of a cached copy."
;; 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."
......
......@@ -196,7 +196,7 @@ condition. Two file items are considered to match if they are equal
(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 @@ to the end of the list of defaults just after the default value."
;; 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 @@ This feature does not try to redisplay Dired buffers afterward, as
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 @@ Optional arg HOW-TO determiness how to treat the target.
;; 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
......
......@@ -208,8 +208,8 @@ The value can be t, nil or something else.
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 @@ need to match the entire file name.")
;; \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 @@ See `dired-guess-shell-alist-user'."
;; 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 @@ for more info."
;; * `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 @@ or to test if that file exists. Use minibuffer after snatching filename."
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 @@ or to test if that file exists. Use minibuffer after snatching filename."
;; 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 @@ If `current-prefix-arg' is non-nil, uses name at point as guess."
(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)
......
......@@ -3465,7 +3465,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
;;;;;; 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 @@ This feature does not try to redisplay Dired buffers afterward, as
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 @@ true then the type of the file linked to by FILE is printed instead.
;;;***
;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el"
;;;;;; "c426566bb1493ccba92a56f402ba565f")
;;;;;; "1a0298749959c80c24c73b8bec5f1f74")
;;; Generated autoloads from dired-x.el
(autoload 'dired-jump "dired-x" "\
......
......@@ -866,7 +866,7 @@ buffer *Authors Errors* containing references to unknown files."
(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)
......
......@@ -156,7 +156,7 @@ way."
(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)
......
......@@ -68,10 +68,10 @@ If nil, use system defaults."
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 @@ Optional arguments are passed to `dig-invoke'."
(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
......
......@@ -372,28 +372,28 @@ This variable is only used if the variable
(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 @@ This variable is only used if the variable
;;;###autoload
(defun arp ()
"Run arp and display diagnostic output."
"Run arp and display diagnostic output."
(interactive)
(net-utils-run-simple
(format "*%s*" arp-program)
......
......@@ -387,7 +387,7 @@ version.")
((= 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))
......
......@@ -334,7 +334,7 @@ The attributes of SERVICE can be retrieved via the functions
(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."
......
......@@ -200,7 +200,7 @@ COMMENT can be used to provide an initial description of FILE.
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))
......
......@@ -1918,7 +1918,7 @@ current thread and update GDB buffers."
;; 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 @@ line."
(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 @@ member."
(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"))))
......
......@@ -826,7 +826,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
(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 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
(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: "
......
......@@ -359,7 +359,7 @@ Here are all keybindings.
(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 @@ see if a link is set for it. Try extra help functions if necessary."
;; 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 @@ IDL assistant.")
(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)
......
This diff is collapsed.
This diff is collapsed.
......@@ -214,7 +214,7 @@ buffer with \\[set-variable].")
;;;###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)
......
......@@ -5881,7 +5881,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(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
......
......@@ -355,7 +355,7 @@ Thus, this does not include the shell's current directory.")
'complete-expand)))
(defcustom shell-mode-hook '()
"Hook for customising Shell mode."
"Hook for customizing Shell mode."
:type 'hook
:group 'shell)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment