diff options
Diffstat (limited to 'lisp')
51 files changed, 61 insertions, 61 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index bd2094da25..e701d9685a 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -612,7 +612,7 @@ headers look like comments in the programming language. It will also use the comment-start string, with an '_' appended, for `allout-primary-bullet'. String values are used as literals, not regular expressions, so -do not escape any regulare-expression characters. +do not escape any regular-expression characters. Value t means to first check for assoc value in `allout-mode-leaders' alist, then use comment-start string, if any, then use default (`.'). diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el index d73a32a8bc..6957077154 100644 --- a/lisp/cedet/ede/generic.el +++ b/lisp/cedet/ede/generic.el @@ -359,7 +359,7 @@ the new configuration." (defun ede-generic-new-autoloader (internal-name external-name projectfile class) "Add a new EDE Autoload instance for identifying a generic project. -INTERNAL-NAME is a long name that identifies thsi project type. +INTERNAL-NAME is a long name that identifies this project type. EXTERNAL-NAME is a shorter human readable name to describe the project. PROJECTFILE is a file name that identifies a project of this type to EDE, such as a Makefile, or SConstruct file. diff --git a/lisp/cedet/ede/pconf.el b/lisp/cedet/ede/pconf.el index 0529015818..ae503e836d 100644 --- a/lisp/cedet/ede/pconf.el +++ b/lisp/cedet/ede/pconf.el @@ -82,7 +82,7 @@ don't do it. A value of nil means to just do it.") (directory-file-name (ede-subproject-relative-path sp top-level-project-local))))) (when (string= dir "./") (setq dir "")) - ;; Use concat, because expand-file-name removes the relativeness. + ;; Use concat, because expand-file-name removes the relativity. (concat dir "Makefile") ))))) ;; ;; NOTE TO SELF. TURN THIS INTO THE OFFICIAL LIST diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index 316309092e..033a486f1a 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el @@ -284,7 +284,7 @@ buffer being in order to provide a smart default target type." (progn (forward-line -1) (end-of-line) (insert "\n")) - ;; If the above search fails, thats ok. We'd just want to be at + ;; If the above search fails, that's ok. We'd just want to be at ;; point-min anyway. ) (makefile-insert-macro (car (cdr (cdr ntype)))))) diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index 43e998b852..ae199703c8 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -161,7 +161,7 @@ be just a string in some circumstances.") (defclass semantic-analyze-context-return (semantic-analyze-context) () ; No extra data. "Analysis class for return data. -Return data methods identify the requred type by the return value +Return data methods identify the required type by the return value of the parent function.") ;;; METHODS diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 7de0011ce9..686113c23e 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -954,7 +954,7 @@ now. (nth 1 (car names)) ; name "typedef" (semantic-tag-type-members tag) - ;; parent is just tbe name of what + ;; parent is just the name of what ;; is passed down as a tag. (list (semantic-tag-name diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 2b3841bd59..aaec4cb30f 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -1478,7 +1478,7 @@ one in the source buffer." (tag (cdr nt)) (table (car nt)) ) - ;; If we fail to normalize, resete. + ;; If we fail to normalize, reset. (when (not tag) (setq table rtable tag rtag)) ;; Do the focus. (let ((buf (or (semantic-tag-buffer tag) diff --git a/lisp/cedet/semantic/db-javascript.el b/lisp/cedet/semantic/db-javascript.el index 716bbc9d00..e662290340 100644 --- a/lisp/cedet/semantic/db-javascript.el +++ b/lisp/cedet/semantic/db-javascript.el @@ -137,7 +137,7 @@ Create one of our special tables that can act as an intermediary." (defmethod semanticdb-get-tags ((table semanticdb-table-javascript )) "Return the list of tags belonging to TABLE." - ;; NOTE: Omniscient databases probably don't want to keep large tabes + ;; NOTE: Omniscient databases probably don't want to keep large tables ;; lolly-gagging about. Keep internal Emacs tables empty and ;; refer to alternate databases when you need something. semanticdb-javascript-tags) diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el index 0780a62825..a2c8c5efd4 100644 --- a/lisp/cedet/semantic/edit.el +++ b/lisp/cedet/semantic/edit.el @@ -649,7 +649,7 @@ This function is for internal use by `semantic-edits-incremental-parser'." parent-tag (aref tmp 2)) ;; We can calculate parse begin/end by checking ;; out what is in TAGS. The one near start is - ;; always first. Make sure the reprase includes + ;; always first. Make sure the reparse includes ;; the `whitespace' around the snarfed tags. ;; Since cache-list is positioned properly, use it ;; to find that boundary. @@ -707,7 +707,7 @@ This function is for internal use by `semantic-edits-incremental-parser'." ;; since that is how the multi-tag parser works. Grab ;; the reparse symbol from the first of the returned tags. ;; - ;; Feb '06 - If repase-symbol is nil, then they are top level + ;; Feb '06 - If reparse-symbol is nil, then they are top level ;; tags. (I'm guessing.) Is this right? (setq reparse-symbol (semantic--tag-get-property (car (or tags cache-list)) diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index ca3015c594..479044ec51 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -251,7 +251,7 @@ later installation should be done in MODE hook." (defmacro semantic-exit-on-input (symbol &rest forms) "Using SYMBOL as an argument to `throw', execute FORMS. -If FORMS includes a call to `semantic-thow-on-input', then +If FORMS includes a call to `semantic-throw-on-input', then if a user presses any key during execution, this form macro will exit with the value passed to `semantic-throw-on-input'. If FORMS completes, then the return value is the same as `progn'." diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el index 16deb24552..ea4903c70e 100644 --- a/lisp/cedet/semantic/scope.el +++ b/lisp/cedet/semantic/scope.el @@ -303,7 +303,7 @@ are from nesting data types." (miniscope (semantic-scope-cache "mini")) ptag) - ;; Find the next entry in the refereneced type for + ;; Find the next entry in the referenced type for ;; our function, and append to return list till our ;; returnlist is empty. (while snlist diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index 82b23d8d1c..f8538ef790 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -919,7 +919,7 @@ That is the value of the attribute `:system-flag'." "Return a filename representation of TAG. The default action is to return the `semantic-tag-name'. Some languages do not use full filenames in their include statements. -Override this method to translate the code represenation +Override this method to translate the code representation into a filename. (A relative filename if necessary.) See `semantic-dependency-tag-file' to expand an include diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index 134b5310ab..e25905ead8 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el @@ -698,7 +698,7 @@ allocating something based on its type." (cdr (car al))))) (setq al nil))) (setq al (cdr al))) - ;; add tailers to names which are obviously returning something. + ;; add trailers to names which are obviously returning something. (if tailit (progn (setq al srecode-document-autocomment-return-last-alist) diff --git a/lisp/comint.el b/lisp/comint.el index 3b874c48f2..c0b02e5a23 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1980,7 +1980,7 @@ Make backspaces delete the previous character." ;; The point should float after any insertion we do. (saved-point (copy-marker (point) t))) - ;; We temporarly remove any buffer narrowing, in case the + ;; We temporarily remove any buffer narrowing, in case the ;; process mark is outside of the restriction (save-restriction (widen) diff --git a/lisp/dframe.el b/lisp/dframe.el index b7c29d8f99..b1eb2d636b 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -82,7 +82,7 @@ ;; c) If successful (your -frame variable has a value), call ;; timer setup if applicable. ;; your-frame-reposition- -- Function to call from after-create-hook to -;; reposition your frame with `dframe-repsoition-frame'. +;; reposition your frame with `dframe-reposition-frame'. ;; your-mode -- Set up the major mode of the buffer for your app. ;; Set these variables: dframe-track-mouse-function, ;; dframe-help-echo-function, @@ -726,7 +726,7 @@ who requested the timer. NULL-ON-ERROR is ignored." (if timeout (add-to-list 'dframe-client-functions fn) (setq dframe-client-functions (delete fn dframe-client-functions))) - ;; Now decided what to do about the timout. + ;; Now decided what to do about the timeout. (if (or ;; We have a timer, restart the timer with the new time. timeout diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el index e8b7a1f9a8..9ecd4e1202 100644 --- a/lisp/emacs-lisp/avl-tree.el +++ b/lisp/emacs-lisp/avl-tree.el @@ -206,7 +206,7 @@ Return t if the height of the tree has shrunk." Return cons cell (SHRUNK . DATA), where SHRUNK is t if the height of the tree has shrunk and nil otherwise, and DATA is -the releted data." +the related data." (let ((br (avl-tree--node-branch root branch))) (cond ;; DATA not in tree. diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index dd3e02b838..ba04a27021 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -335,7 +335,7 @@ Will be local in linted buffers.") Is measured in buffer-modified-ticks and is local in linted buffers.") ;; This is a minor optimization. It is local to every buffer, and so -;; does not prevent recursive requirs. It does not list the requires +;; does not prevent recursive requires. It does not list the requires ;; of requires. (defvar elint-features nil "List of all libraries this buffer has required, or that have been provided.") diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index c069c38700..b0c37ed28e 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -205,7 +205,7 @@ designated buffers.") (viper-deflocalvar viper-insert-diehard-minor-mode nil "Minor mode that simulates Vi very closely. -Not recommened, except for the novice user.") +Not recommended, except for the novice user.") (viper-deflocalvar viper-insert-kbd-minor-mode nil "Minor mode for Ex command macros Insert state. @@ -679,7 +679,7 @@ to a new place after repeating previous Vi command." :group 'viper-search) (defcustom viper-search-scroll-threshold 2 - "*If search lands within this threshnold from the window top/bottom, + "*If search lands within this threshold from the window top/bottom, the window will be scrolled up or down appropriately, to reveal context. If you want Viper search to behave as usual in Vi, set this variable to a negative number." diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01 index f4e10d0598..2b29acf5a2 100644 --- a/lisp/erc/ChangeLog.01 +++ b/lisp/erc/ChangeLog.01 @@ -93,7 +93,7 @@ * erc.el: * erc-insert-hook: Changed strategy completely, no start end parameters any more. - We narrow-to-region now, thats much cleaner. + We narrow-to-region now, that's much cleaner. * rename erc-fill-region to erc-fill and change the autoload ** You'll probably need to restart Emacs @@ -221,7 +221,7 @@ * Applied antifuchs/mhp patches, the latest on erc-help, unmodified * New variable: erc-reuse-buffers default to t. * Modified erc-generate-new-buffer-name to use it. it checks if server and port are the same, - then one can assume thats the same channel/query target again. + then one can assume that's the same channel/query target again. 2001-11-23 Mario Lang <mlang@delysid.org> @@ -415,7 +415,7 @@ * erc.el: only some code beautification * erc-imenu.el: - remove add-hook call, thats done in erc.el now for autoloadability + remove add-hook call, that's done in erc.el now for autoloadability * erc.el: * Make erc-imenu autoloadable diff --git a/lisp/ezimage.el b/lisp/ezimage.el index a356294403..d0bbdfb2f8 100644 --- a/lisp/ezimage.el +++ b/lisp/ezimage.el @@ -239,7 +239,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image." ("[ ]" . ezimage-page) ("{+}" . ezimage-box-plus) ("{-}" . ezimage-box-minus) - ;; Some vaguely representitive entries + ;; Some vaguely representative entries ("*" . ezimage-checkout) ("#" . ezimage-object) ("!" . ezimage-object-out-of-date) diff --git a/lisp/faces.el b/lisp/faces.el index 7bc103ca69..f10c9f87f2 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1925,7 +1925,7 @@ frame parameters in PARAMETERS." (progn ;; Initialize faces from face spec and custom theme. (face-spec-recalc face frame) - ;; X resouces for the default face are applied during + ;; X resources for the default face are applied during ;; `x-create-frame'. (and (not (eq face 'default)) window-system-p (make-face-x-resource-internal face frame)) diff --git a/lisp/follow.el b/lisp/follow.el index 7375b15ad1..852944a806 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -562,7 +562,7 @@ Keys specific to Follow mode: ;; ;; Almost like the real thing, except when the cursor ends up outside ;; the top or bottom... In our case however, we end up outside the -;; window and hence we are recenterd. Should we let `recenter' handle +;; window and hence we are recentered. Should we let `recenter' handle ;; the point position we would never leave the selected window. To do ;; it ourselves we would need to do our own redisplay, which is easier ;; said than done. (Why didn't I do a real display abstraction from diff --git a/lisp/font-lock.el b/lisp/font-lock.el index d410b8eb51..c319974fb4 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -981,7 +981,7 @@ The value of this variable is used when Font Lock mode is turned on." ;; rules one way and C code another. Neat! ;; ;; A further reason to use the fontification indirection feature is when the -;; default syntactual fontification, or the default fontification in general, +;; default syntactic fontification, or the default fontification in general, ;; is not flexible enough for a particular major mode. For example, perhaps ;; comments are just too hairy for `font-lock-fontify-syntactically-region' to ;; cope with. You need to write your own version of that function, e.g., diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 4c527caff5..6f14664411 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1361,7 +1361,7 @@ if it is a string, only list groups matching REGEXP." ; We list groups with unread articles (and gnus-list-groups-with-ticked-articles (cdr (assq 'tick (gnus-info-marks info)))) - ; And groups with tickeds + ; And groups with ticked articles ;; Check for permanent visibility. (and gnus-permanently-visible-groups (string-match gnus-permanently-visible-groups diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 5380595ead..7cea88e7f5 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1657,7 +1657,7 @@ For example: This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a -\(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups +\(REGEXP . FUNCTION), FUNCTION will be applied only to the newsgroups whose names match REGEXP. For example: diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 176857633e..5d82faee20 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7167,7 +7167,7 @@ header line with the old Message-ID." (defun message-wash-subject (subject) "Remove junk like \"Re:\", \"(fwd)\", etc. added to subject string SUBJECT. -Previous forwarders, replyers, etc. may add it." +Previous forwarders, repliers, etc. may add it." (with-temp-buffer (insert subject) (goto-char (point-min)) diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 325aa67f80..9816c208fa 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1681,7 +1681,7 @@ password contained in '~/.nntp-authinfo'." ;; for the first available article. Obviously, a client can ;; use that entry to avoid making unnecessary requests. The ;; only problem is for a client that assumes that the response - ;; will always be within the requested ranage. For such a + ;; will always be within the requested range. For such a ;; client, we can get N copies of the same entry (one for each ;; XOVER command sent to the server). diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 128bda6f51..90af71404e 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -180,7 +180,7 @@ File should contain certificates in PEM format." (defcustom smime-certificate-directory "~/Mail/certs/" "*Directory containing other people's certificates. It should contain files named to the X.509 hash of the certificate, -and the files themself should be in PEM format." +and the files themselves should be in PEM format." ;The S/MIME library provide simple functionality for fetching ;certificates into this directory, so there is no need to populate it ;manually. diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 8c151d35ed..4a164dfaa4 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -469,7 +469,7 @@ For more information, see the documentation for If non-nil, using `image-dired-next-line-and-display' and `image-dired-previous-line-and-display' will leave a trail of thumbnail images in the thumbnail buffer. If you enable this and want to clean -the thumbnail buffer because it is filled with too many thumbmnails, +the thumbnail buffer because it is filled with too many thumbnails, just call `image-dired-display-thumb' to display only the image at point. This value can be toggled using `image-dired-toggle-append-browsing'." :type 'boolean @@ -1605,7 +1605,7 @@ With prefix argument ARG, create thumbnails even if they already exist (setq thumb-name (image-dired-thumb-name curr-file)) ;; If the user overrides the exist check, we must clear the ;; image cache so that if the user wants to display the - ;; thumnail, it is not fetched from cache. + ;; thumbnail, it is not fetched from cache. (if arg (clear-image-cache)) (if (or (not (file-exists-p thumb-name)) @@ -2043,7 +2043,7 @@ function. The result is a couple of new files in files))) (defun image-dired-display-next-thumbnail-original () - "In thubnail buffer, move to next thumbnail and display the image." + "In thumbnail buffer, move to next thumbnail and display the image." (interactive) (image-dired-forward-image) (image-dired-display-thumbnail-original-image)) diff --git a/lisp/info-xref.el b/lisp/info-xref.el index 8a5cca1849..805bec064c 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el @@ -413,7 +413,7 @@ and can take a long time." (unless (boundp 'viper-mode) (setq viper-mode nil)) ;; avoid viper.el ask about viperizing (unless (boundp 'gnus-registry-install) - (setq gnus-registry-install nil)) ;; avoid gnus-registery.el querying + (setq gnus-registry-install nil)) ;; avoid gnus-registry.el querying (mapatoms (lambda (symbol) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 757322aa0c..0ba0b9085b 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -1179,7 +1179,7 @@ the generated Quail package is saved." (setq tail (cdr tail))))) (defun batch-miscdic-convert () - "Run `miscdic-convert' on the files remaing on the command line. + "Run `miscdic-convert' on the files remaining on the command line. Use this from the command line, with `-batch'; it won't work in an interactive Emacs. If there's an argument \"-dir\", the next argument specifies a directory diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index b7dbcc1a95..e9943df12a 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -124,7 +124,7 @@ (?ใ vowel-base "VOWEL SIGN SARA MAI MUAN") ; 0xE3 (?ไ vowel-base "VOWEL SIGN SARA MAI MALAI") ; 0xE4 (?ๅ vowel-base "LAK KHANG YAO") ; 0xE5 - (?ๆ special "MAI YAMOK (repetion)") ; 0xE6 + (?ๆ special "MAI YAMOK (repetition)") ; 0xE6 (?็ sign-upper "VOWEL SIGN MAI TAI KHU N/S-T") ; 0xE7 (?่ tone "TONE MAI EK N/S-T") ; 0xE8 (?้ tone "TONE MAI THO N/S-T") ; 0xE9 diff --git a/lisp/loadhist.el b/lisp/loadhist.el index da20e4cb7c..51df6ecff0 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -133,7 +133,7 @@ from a file." font-lock-unfontify-region-function kill-buffer-query-functions kill-emacs-query-functions lisp-indent-function mouse-position-function - redisplaylay-end-trigger-functions suspend-tty-functions + redisplay-end-trigger-functions suspend-tty-functions temp-buffer-show-function window-scroll-functions window-size-change-functions write-contents-functions write-file-functions write-region-annotate-functions) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 43d4361763..7167fa567d 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1010,7 +1010,7 @@ If it contains a \"%s\", that will be replaced with the value of (defcustom feedmail-ask-before-queue-reprompt "FQM: Please type q, i, d, or e; or ? for help [%s]: " - "A string which will be used for repompting after invalid input. + "A string which will be used for reprompting after invalid input. If it contains a \"%s\", that will be replaced with the value of `feedmail-ask-before-queue-default'." :group 'feedmail-queue diff --git a/lisp/mpc.el b/lisp/mpc.el index 238e8ad68a..6c2556b1f3 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -1589,7 +1589,7 @@ when constructing the set of constraints." (defvar mpc--changed-selection) (defun mpc-reorder (&optional nodeactivate) - "Reorder entries based on thre currently active selections. + "Reorder entries based on the currently active selections. I.e. split the current browser buffer into a first part containing the entries included in the selection, then a separator, and then the entries not included in the selection. diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index fcf523a706..998f62920a 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -23,7 +23,7 @@ ;;; Commentary: -;; This package provides all interactive commands which are releated +;; This package provides all interactive commands which are related ;; to Tramp. ;;; Code: diff --git a/lisp/net/tramp-gw.el b/lisp/net/tramp-gw.el index 70b70004de..4ddd63bc3b 100644 --- a/lisp/net/tramp-gw.el +++ b/lisp/net/tramp-gw.el @@ -178,7 +178,7 @@ instead of the host name declared in TARGET-VEC." (tramp-file-name-host gw-vec))) ;; Declare the SOCKS server to be used. (socks-server - (list "Tramp tempory socks server list" + (list "Tramp temporary socks server list" ;; Host name. (tramp-file-name-real-host gw-vec) ;; Port number. diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 51fc6e295f..941b788ae4 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -4905,7 +4905,7 @@ If no corresponding command is found, nil is returned." (defun tramp-get-inline-coding (vec prop size) "Return the coding command related to PROP. -PROP is either `remote-encoding', `remode-decoding', +PROP is either `remote-encoding', `remote-decoding', `local-encoding' or `local-decoding'. SIZE is the length of the file to be coded. Depending on SIZE, diff --git a/lisp/notifications.el b/lisp/notifications.el index a4e7fdd542..e4e44fb0f6 100644 --- a/lisp/notifications.el +++ b/lisp/notifications.el @@ -163,7 +163,7 @@ Various PARAMS can be set: only URI schema supported right now) or a name in a freedesktop.org-compliant icon theme. :sound-file The path to a sound file to play when the notification pops up. - :sound-name A themeable named sound from the freedesktop.org sound naming + :sound-name A themable named sound from the freedesktop.org sound naming specification to play when the notification pops up. Similar to icon-name,only for sounds. An example would be \"message-new-instant\". diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el index 24aea5d7ea..e3a87b77b5 100644 --- a/lisp/org/org-capture.el +++ b/lisp/org/org-capture.el @@ -1449,7 +1449,7 @@ The template may still contain \"%?\" for cursor positioning." (goto-char (point-min)) (while (looking-at "[ \t]*\n") (replace-match "")) (if (re-search-forward "[ \t\n]*\\'" nil t) (replace-match "\n")) - ;; Return the expanded tempate and kill the temporary buffer + ;; Return the expanded template and kill the temporary buffer (untabify (point-min) (point-max)) (set-buffer-modified-p nil) (prog1 (buffer-string) (kill-buffer (current-buffer)))))) diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index 9184f0c3d5..cc8103e3c1 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el @@ -3008,7 +3008,7 @@ Valid parameters PARAMS are: Alternatively, each parameter can also be a form returning a string. These sexp can use keywords `counter' and `depth', -reprensenting respectively counter associated to the current +representing respectively counter associated to the current item, and depth of the current sub-list, starting at 0. Obviously, `counter' is only available for parameters applying to items." diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 92c14f4cd5..76e4eae4b4 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -2641,7 +2641,7 @@ in the buffer and column1 and column2 are table column numbers." (prog1 (org-trim (org-table-get-field c1)) (if highlight (org-table-highlight-rectangle (point) (point))))) ;; A range, return a vector - ;; First sort the numbers to get a regular ractangle + ;; First sort the numbers to get a regular rectangle (if (< r2 r1) (setq tmp r1 r1 r2 r2 tmp)) (if (< c2 c1) (setq tmp c1 c1 c2 c2 tmp)) (if corners-only diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 5ec0ab04f7..c794cad65d 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -893,7 +893,7 @@ comment at the start of cc-engine.el for more info." ((eq sym 'while) ;; Is this a real while, or a do-while? ;; The next `when' triggers unless we are SURE that - ;; the `while' is not the tailend of a `do-while'. + ;; the `while' is not the tail end of a `do-while'. (when (or (not pptok) (memq (char-after pptok) delims) ;; The following kludge is to prevent @@ -9784,7 +9784,7 @@ comment at the start of cc-engine.el for more info." (c-beginning-of-statement-1 containing-sexp) (c-add-stmt-syntax 'statement nil t containing-sexp paren-state)) - ;;CASE 5N: We are at a tompmost continuation line and the only + ;;CASE 5N: We are at a topmost continuation line and the only ;;preceding items are annotations. ((and (c-major-mode-is 'java-mode) (setq placeholder (point)) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 88193d4d3f..0e649480dd 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1277,7 +1277,7 @@ versions of Emacs." "----" ["Ispell PODs" cperl-pod-spell ;; Better not to update syntaxification here: - ;; debugging syntaxificatio can be broken by this??? + ;; debugging syntaxification can be broken by this??? (or (get-text-property (point-min) 'in-pod) (< (progn diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 6c80705f99..22f80aa5e8 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -5372,9 +5372,9 @@ Where: KIND is a valid value of `ps-n-up-filling'. XCOL YCOL are the relative position for the next column. XLIN YLIN are the relative position for the beginning of next line. -REPEAT is the number of repetions for external loop. -END is the number of repetions for internal loop and also the number of pages in - a row. +REPEAT is the number of repetitions for external loop. +END is the number of repetitions for internal loop and also the number + of pages in a row. XSTART YSTART are the relative position for the first page in a sheet.") diff --git a/lisp/startup.el b/lisp/startup.el index 877ba1987f..06911e00d0 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -943,7 +943,7 @@ opening the first frame (e.g. open a connection to an X server).") (normal-erase-is-backspace-setup-frame) ;; Register default TTY colors for the case the terminal hasn't a - ;; terminal init file. We do this regardles of whether the terminal + ;; terminal init file. We do this regardless of whether the terminal ;; supports colors or not and regardless the current display type, ;; since users can connect to color-capable terminals and also ;; switch color support on or off in mid-session by setting the diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index eb0e734080..e0fd940208 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -76,7 +76,7 @@ (get 'reftex-default-bibliography :reftex-expanded)) (defun reftex-bib-or-thebib () - ;; Tests if BibTeX or \begin{tehbibliography} should be used for the + ;; Tests if BibTeX or \begin{thebibliography} should be used for the ;; citation ;; Find the bof of the current file (let* ((docstruct (symbol-value reftex-docstruct-symbol)) diff --git a/lisp/thumbs.el b/lisp/thumbs.el index dad4731122..6ffd256d0a 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -235,7 +235,7 @@ reached." (setq dirsize (- dirsize (car (cdar files-list)))) (setq files-list (cdr files-list))))) -;; Check the thumbsnail directory size and clean it if necessary. +;; Check the thumbnail directory size and clean it if necessary. (when thumbs-thumbsdir-auto-clean (thumbs-cleanup-thumbsdir)) diff --git a/lisp/vc/ediff-mult.el b/lisp/vc/ediff-mult.el index cadcdec29b..ce7818d5ef 100644 --- a/lisp/vc/ediff-mult.el +++ b/lisp/vc/ediff-mult.el @@ -2164,7 +2164,7 @@ all marked sessions must be active." ;; If meta-buf doesn't exist, it is created. In that case, id doesn't have a ;; parent meta-buf ;; Check if META-BUF exists before calling this function -;; Optional MUST-REDRAW, if non-nil, would force redrawal of the whole meta +;; Optional MUST-REDRAW, if non-nil, would force redrawing of the whole meta ;; buffer. Otherwise, it will just go over the buffer and update activity marks ;; and session status. ;; SESSION-NUMBER, if specified, says which session caused the update. diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 84c7f4a510..7fe727bd17 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -103,7 +103,7 @@ ;; ;; When the client mode adds a local vc-mode-line-hook to a buffer, it ;; will be called with the buffer file name as argument whenever the -;; dispatcher resynchs the buffer. +;; dispatcher resyncs the buffer. ;; To do: ;; diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 909585138f..ed2bac1721 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2690,7 +2690,7 @@ log entries should be gathered." (substring rev 0 index)))) (defun vc-default-responsible-p (backend file) - "Indicate whether BACKEND is reponsible for FILE. + "Indicate whether BACKEND is responsible for FILE. The default is to return nil always." nil) |