Now on revision 106391. ------------------------------------------------------------ revno: 106391 fixes bug(s): http://debbugs.gnu.org/10033 committer: Chong Yidong branch nick: trunk timestamp: Wed 2011-11-16 11:17:29 +0800 message: * autoconf.el (autoconf-mode): Fix comment-start-skip regexp. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-16 02:26:00 +0000 +++ lisp/ChangeLog 2011-11-16 03:17:29 +0000 @@ -1,3 +1,8 @@ +2011-11-16 Chong Yidong + + * progmodes/autoconf.el (autoconf-mode): Fix comment-start-skip + regexp (Bug#10033). + 2011-11-16 Stefan Monnier * tmm.el (tmm-prompt): Use minibuffer-with-setup-hook (bug#10053). === modified file 'lisp/emacs-lisp/eieio.el' --- lisp/emacs-lisp/eieio.el 2011-11-15 17:37:37 +0000 +++ lisp/emacs-lisp/eieio.el 2011-11-16 03:17:29 +0000 @@ -3051,7 +3051,7 @@ ;;;### (autoloads (eieio-help-mode-augmentation-maybee eieio-describe-generic ;;;;;; eieio-describe-constructor eieio-describe-class eieio-browse) -;;;;;; "eieio-opt" "eieio-opt.el" "1bed0a56310f402683419139ebc18d7f") +;;;;;; "eieio-opt" "eieio-opt.el" "4fb6625c3a007438aab4e8e77b6c73c2") ;;; Generated autoloads from eieio-opt.el (autoload 'eieio-browse "eieio-opt" "\ === modified file 'lisp/mail/rmail.el' --- lisp/mail/rmail.el 2011-11-15 11:23:14 +0000 +++ lisp/mail/rmail.el 2011-11-16 03:17:29 +0000 @@ -4494,27 +4494,29 @@ ;;;*** -;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "a79f498959deded8fa9d88a7dca93bc0") +;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "6296f0170a37670c49a88a1b92d78187") ;;; Generated autoloads from rmailmm.el (autoload 'rmail-mime "rmailmm" "\ -Toggle displaying of a MIME message. +Toggle the display of a MIME message. The actual behavior depends on the value of `rmail-enable-mime'. -If `rmail-enable-mime' is non-nil (default), this command changes the -display of a MIME message between decoded presentation form and raw data. - -With ARG, toggle the display of the current MIME entity only. - -If `rmail-enable-mime' is nil, this creates a temporary -\"*RMAIL*\" buffer holding a decoded copy of the message. Inline -content-types are handled according to -`rmail-mime-media-type-handlers-alist'. By default, this -displays text and multipart messages, and offers to download -attachments as specified by `rmail-mime-attachment-dirs-alist'. - -\(fn &optional ARG)" t nil) +If `rmail-enable-mime' is non-nil (the default), this command toggles +the display of a MIME message between decoded presentation form and +raw data. With optional prefix argument ARG, it toggles the display only +of the MIME entity at point, if there is one. The optional argument +STATE forces a particular display state, rather than toggling. +`raw' forces raw mode, any other non-nil value forces decoded mode. + +If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\" +buffer holding a decoded copy of the message. Inline content-types are +handled according to `rmail-mime-media-type-handlers-alist'. +By default, this displays text and multipart messages, and offers to +download attachments as specified by `rmail-mime-attachment-dirs-alist'. +The arguments ARG and STATE have no effect in this case. + +\(fn &optional ARG STATE)" t nil) ;;;*** === modified file 'lisp/progmodes/autoconf.el' --- lisp/progmodes/autoconf.el 2011-01-26 08:36:39 +0000 +++ lisp/progmodes/autoconf.el 2011-11-16 03:17:29 +0000 @@ -83,7 +83,8 @@ (set (make-local-variable 'defun-prompt-regexp) "^[ \t]*A[CM]_\\(\\sw\\|\\s_\\)+") (set (make-local-variable 'comment-start) "dnl ") - (set (make-local-variable 'comment-start-skip) "\\(?:\\" (0 "<")))) (set (make-local-variable 'font-lock-defaults) ------------------------------------------------------------ revno: 106390 fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10053 committer: Stefan Monnier branch nick: trunk timestamp: Tue 2011-11-15 21:26:00 -0500 message: * lisp/tmm.el (tmm-prompt): Use minibuffer-with-setup-hook. `completing-read' will remove *Completions* and will preserve current-buffer for us. (tmm-add-prompt): Users of *Completions* will always (re)set its major mode. (tmm-old-comp-map): Remove. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-16 02:06:06 +0000 +++ lisp/ChangeLog 2011-11-16 02:26:00 +0000 @@ -1,3 +1,12 @@ +2011-11-16 Stefan Monnier + + * tmm.el (tmm-prompt): Use minibuffer-with-setup-hook (bug#10053). + `completing-read' will remove *Completions* and will preserve + current-buffer for us. + (tmm-add-prompt): Users of *Completions* will always (re)set its + major mode. + (tmm-old-comp-map): Remove. + 2011-11-16 Glenn Morris * mail/rmailedit.el: Require rmailmm when compiling. === modified file 'lisp/tmm.el' --- lisp/tmm.el 2011-01-25 04:08:28 +0000 +++ lisp/tmm.el 2011-11-16 02:26:00 +0000 @@ -37,7 +37,6 @@ ;;; The following will be localized, added only to pacify the compiler. (defvar tmm-short-cuts) (defvar tmm-old-mb-map nil) -(defvar tmm-old-comp-map) (defvar tmm-c-prompt nil) (defvar tmm-km-list) (defvar tmm-next-shortcut-digit) @@ -98,7 +97,7 @@ (defcustom tmm-mid-prompt "==>" "String to insert between shortcut and menu item. -If nil, there will be no shortcuts. It should not consist only of spaces, +If nil, there will be no shortcuts. It should not consist only of spaces, or else the correct item might not be found in the `*Completions*' buffer." :type 'string :group 'tmm) @@ -158,7 +157,7 @@ (let ((gl-str "Menu bar") ;; The menu bar itself is not a menu keymap ; so it doesn't have a name. tmm-km-list out history history-len tmm-table-undef tmm-c-prompt - tmm-old-mb-map tmm-old-comp-map tmm-short-cuts + tmm-old-mb-map tmm-short-cuts chosen-string choice (not-menu (not (keymapp menu)))) (run-hooks 'activate-menubar-hook) @@ -219,23 +218,16 @@ (setq history-len (length history)) (setq history (append history history history history)) (setq tmm-c-prompt (nth (- history-len 1 index-of-default) history)) - (add-hook 'minibuffer-setup-hook 'tmm-add-prompt) - (if default-item - (setq out (car (nth index-of-default tmm-km-list))) - (save-excursion - (unwind-protect - (setq out - (completing-read - (concat gl-str - " (up/down to change, PgUp to menu): ") - tmm-km-list nil t nil - (cons 'history - (- (* 2 history-len) index-of-default)))) - (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt) - (if (get-buffer "*Completions*") - (with-current-buffer "*Completions*" - (use-local-map tmm-old-comp-map) - (bury-buffer (current-buffer))))))))) + (setq out + (if default-item + (car (nth index-of-default tmm-km-list)) + (minibuffer-with-setup-hook #'tmm-add-prompt + (completing-read + (concat gl-str + " (up/down to change, PgUp to menu): ") + tmm-km-list nil t nil + (cons 'history + (- (* 2 history-len) index-of-default)))))))) (setq choice (cdr (assoc out tmm-km-list))) (and (null choice) (> (length out) (length tmm-c-prompt)) @@ -270,7 +262,7 @@ choice))))) (defun tmm-add-shortcuts (list) - "Adds shortcuts to cars of elements of the list. + "Add shortcuts to cars of elements of the list. Takes a list of lists with a string as car, returns list with shortcuts added to these cars. Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." @@ -362,7 +354,6 @@ (set-buffer-modified-p nil))) (defun tmm-add-prompt () - (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt) (add-hook 'minibuffer-exit-hook 'tmm-delete-map nil t) (unless tmm-c-prompt (error "No active menu entries")) @@ -387,9 +378,7 @@ (save-selected-window (other-window 1) ; Electric-pop-up-window does ; not work in minibuffer - (Electric-pop-up-window "*Completions*") - (with-current-buffer "*Completions*" - (setq tmm-old-comp-map (tmm-define-keys nil)))) + (Electric-pop-up-window "*Completions*")) (insert tmm-c-prompt)) (defun tmm-delete-map () @@ -424,16 +413,18 @@ (exit-minibuffer))))) (defun tmm-goto-completions () + "Jump to the completions buffer." (interactive) (let ((prompt-end (minibuffer-prompt-end))) (setq tmm-c-prompt (buffer-substring prompt-end (point-max))) + ;; FIXME: Why? (delete-region prompt-end (point-max))) (switch-to-buffer-other-window "*Completions*") (search-forward tmm-c-prompt) (search-backward tmm-c-prompt)) (defun tmm-get-keymap (elt &optional in-x-menu) - "Prepends (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'. + "Prepend (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'. The values are deduced from the argument ELT, that should be an element of keymap, an `x-popup-menu' argument, or an element of `x-popup-menu' argument (when IN-X-MENU is not-nil). ------------------------------------------------------------ revno: 106389 committer: Glenn Morris branch nick: trunk timestamp: Tue 2011-11-15 21:06:06 -0500 message: Try to stop rmailedit destroying mime messages (bug#9840) * lisp/mail/rmailedit.el: Require rmailmm when compiling. (rmail-old-mime-state): New declaration. (rmail-edit-current-message): If editing a mime message, edit the "raw" message from the mbox buffer. (rmail-cease-edit): Handle mime messages. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-15 23:36:54 +0000 +++ lisp/ChangeLog 2011-11-16 02:06:06 +0000 @@ -1,3 +1,11 @@ +2011-11-16 Glenn Morris + + * mail/rmailedit.el: Require rmailmm when compiling. + (rmail-old-mime-state): New declaration. + (rmail-edit-current-message): If editing a mime message, + edit the "raw" message from the mbox buffer. + (rmail-cease-edit): Handle mime messages. (Bug#9840) + 2011-11-15 Glenn Morris * mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg, === modified file 'lisp/mail/rmailedit.el' --- lisp/mail/rmailedit.el 2011-01-25 04:08:28 +0000 +++ lisp/mail/rmailedit.el 2011-11-16 02:06:06 +0000 @@ -78,6 +78,7 @@ (defvar rmail-old-text) +(defvar rmail-old-mime-state) (defvar rmail-old-pruned nil "Non-nil means the message being edited originally had pruned headers.") (put 'rmail-old-pruned 'permanent-local t) @@ -86,6 +87,10 @@ "Holds the headers of this message before editing started.") (put 'rmail-old-headers 'permanent-local t) +;; Everything we use from here is a defsubst. +(eval-when-compile + (require 'rmailmm)) + ;;;###autoload (defun rmail-edit-current-message () "Edit the contents of this message." @@ -96,6 +101,28 @@ (make-local-variable 'rmail-old-pruned) (setq rmail-old-pruned (rmail-msg-is-pruned)) (rmail-edit-mode) + (set (make-local-variable 'rmail-old-mime-state) + (and rmail-enable-mime + ;; If you use something else, you are on your own. + (eq rmail-mime-feature 'rmailmm) + (rmail-mime-message-p) + (let ((entity (get-text-property (point-min) 'rmail-mime-entity))) + ;; rmailmm has got its hands on the message. + ;; Even if the message is in `raw' state, boundaries etc + ;; are still missing. All we can do is insert the real + ;; raw message. (Bug#9840) + (when (and entity + (not (equal "text/plain" + (car (rmail-mime-entity-type entity))))) + (let ((inhibit-read-only t)) + (erase-buffer) + (insert-buffer-substring + rmail-view-buffer + (aref (rmail-mime-entity-header entity) 0) + (aref (rmail-mime-entity-body entity) 1))) + (goto-char (point-min)) + ;; t = decoded; raw = raw. + (aref (aref (rmail-mime-entity-display entity) 0) 0))))) (make-local-variable 'rmail-old-text) (setq rmail-old-text (save-restriction @@ -134,7 +161,10 @@ (error "There must be a blank line at the end of the headers")) ;; Disguise any "From " lines so they don't start a new message. (goto-char (point-min)) - (or rmail-old-pruned (forward-line 1)) + ;; This tries to skip the mbox From. FIXME less fragile to go to EOH? + (if (or rmail-old-mime-state + (not rmail-old-pruned)) + (forward-line 1)) (while (re-search-forward "^>*From " nil t) (beginning-of-line) (insert ">") @@ -145,6 +175,7 @@ (rmail-ensure-blank-line) (let ((old rmail-old-text) (pruned rmail-old-pruned) + (mime-state rmail-old-mime-state) ;; People who know what they are doing might have modified the ;; buffer's encoding if editing the message included inserting ;; characters that were unencodable by the original message's @@ -256,7 +287,9 @@ ;;; (if (boundp 'rmail-summary-vector) ;;; (aset rmail-summary-vector (1- rmail-current-message) nil)) (rmail-show-message) - (rmail-toggle-header (if pruned 1 0))) + (rmail-toggle-header (if pruned 1 0)) + ;; Restore mime display state. + (and mime-state (rmail-mime nil mime-state))) (run-hooks 'rmail-mode-hook)) (defun rmail-abort-edit () ------------------------------------------------------------ revno: 106388 committer: Glenn Morris branch nick: trunk timestamp: Tue 2011-11-15 18:36:54 -0500 message: Add optional arguments to rmailmm to force state, not just toggle. * lisp/mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg, which wasn't being used. Add optional arg to force given state. (rmail-mime): Add optional arg to force given state. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-15 17:37:37 +0000 +++ lisp/ChangeLog 2011-11-15 23:36:54 +0000 @@ -1,3 +1,9 @@ +2011-11-15 Glenn Morris + + * mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg, + which wasn't being used. Add optional arg to force given state. + (rmail-mime): Add optional arg to force given state. + 2011-11-15 Juanma Barranquero * allout.el (allout-encryption-plaintext-sanitization-regexps): === modified file 'lisp/mail/rmailmm.el' --- lisp/mail/rmailmm.el 2011-11-15 08:23:03 +0000 +++ lisp/mail/rmailmm.el 2011-11-15 23:36:54 +0000 @@ -357,13 +357,17 @@ (dolist (child (rmail-mime-entity-children entity)) (rmail-mime-raw-mode child))) -(defun rmail-mime-toggle-raw (entity) - "Toggle on and off the raw display mode of MIME-entity ENTITY." +(defun rmail-mime-toggle-raw (&optional state) + "Toggle on and off the raw display mode of MIME-entity at point. +With optional argument STATE, force the specified display mode. +Use `raw' for raw mode, and any other non-nil value for decoded mode." (let* ((pos (if (eobp) (1- (point-max)) (point))) (entity (get-text-property pos 'rmail-mime-entity)) (current (aref (rmail-mime-entity-display entity) 0)) (segment (rmail-mime-entity-segment pos entity))) - (if (not (eq (aref current 0) 'raw)) + (if (or (eq state 'raw) + (and (not state) + (not (eq (aref current 0) 'raw)))) ;; Enter the raw mode. (rmail-mime-raw-mode entity) ;; Enter the shown mode. @@ -1265,35 +1269,35 @@ (setq font-lock-defaults '(rmail-font-lock-keywords t t nil nil))) ;;;###autoload -(defun rmail-mime (&optional arg) - "Toggle displaying of a MIME message. +(defun rmail-mime (&optional arg state) + "Toggle the display of a MIME message. The actual behavior depends on the value of `rmail-enable-mime'. -If `rmail-enable-mime' is non-nil (default), this command changes the -display of a MIME message between decoded presentation form and raw data. - -With ARG, toggle the display of the current MIME entity only. - -If `rmail-enable-mime' is nil, this creates a temporary -\"*RMAIL*\" buffer holding a decoded copy of the message. Inline -content-types are handled according to -`rmail-mime-media-type-handlers-alist'. By default, this -displays text and multipart messages, and offers to download -attachments as specified by `rmail-mime-attachment-dirs-alist'." - (interactive "P") +If `rmail-enable-mime' is non-nil (the default), this command toggles +the display of a MIME message between decoded presentation form and +raw data. With optional prefix argument ARG, it toggles the display only +of the MIME entity at point, if there is one. The optional argument +STATE forces a particular display state, rather than toggling. +`raw' forces raw mode, any other non-nil value forces decoded mode. + +If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\" +buffer holding a decoded copy of the message. Inline content-types are +handled according to `rmail-mime-media-type-handlers-alist'. +By default, this displays text and multipart messages, and offers to +download attachments as specified by `rmail-mime-attachment-dirs-alist'. +The arguments ARG and STATE have no effect in this case." + (interactive (list current-prefix-arg nil)) (if rmail-enable-mime (with-current-buffer rmail-buffer (if (rmail-mime-message-p) (let ((rmail-mime-mbox-buffer rmail-view-buffer) (rmail-mime-view-buffer rmail-buffer) - (entity (get-text-property (point) 'rmail-mime-entity))) - (if arg - (if entity - (rmail-mime-toggle-raw entity)) - (goto-char (point-min)) - (rmail-mime-toggle-raw - (get-text-property (point) 'rmail-mime-entity)))) + (entity (get-text-property + (progn + (or arg (goto-char (point-min))) + (point)) 'rmail-mime-entity))) + (if (or (not arg) entity) (rmail-mime-toggle-raw state))) (message "Not a MIME message"))) (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) (buf (get-buffer-create "*RMAIL*")) ------------------------------------------------------------ revno: 106387 committer: Eli Zaretskii branch nick: trunk timestamp: Tue 2011-11-15 20:08:38 +0200 message: Update information about PNG libraries for MS-Windows. admin/nt/README-ftp-server: Update the information about PNG libraries. nt/README.W32: Update the GTK Windows download URL for libpng. diff: === modified file 'admin/ChangeLog' --- admin/ChangeLog 2011-11-15 17:37:37 +0000 +++ admin/ChangeLog 2011-11-15 18:08:38 +0000 @@ -1,3 +1,8 @@ +2011-11-15 Eli Zaretskii + + * nt/README-ftp-server: Update the information about PNG + libraries. + 2011-11-15 Juanma Barranquero * make-emacs: Fix typo. === modified file 'admin/nt/README-ftp-server' --- admin/nt/README-ftp-server 2011-11-11 23:17:16 +0000 +++ admin/nt/README-ftp-server 2011-11-15 18:08:38 +0000 @@ -73,10 +73,11 @@ * Image support - Emacs 24.1 contains support for images, however for most image formats - supporting libraries are required. This distribution has been tested - with the libraries that are distributed with GTK for Windows, and the - libraries found at http://gnuwin32.sourceforge.net/. The following image + Emacs 24.1 contains support for images, however for most image + formats supporting libraries are required. This distribution has + been tested with the libraries that are distributed with GTK for + Windows (http://www.gtk.org/download/win32.php), and the libraries + found at http://gnuwin32.sourceforge.net/. The following image formats are supported: PBM/PGM/PPM: Supported natively by Emacs. This format is used for @@ -87,10 +88,14 @@ can be replaced by other versions with the name xpm4.dll, libxpm-nox4.dll or libxpm.dll. - PNG: requires the PNG reference library 1.2 or later, which will - be named libpng13d.dll, libpng13.dll, libpng12d.dll, libpng12.dll - or libpng.dll. LibPNG requires zlib, which should come from the same - source as you got libpng. + PNG: requires the PNG reference library 1.4 or later, which will + be named libpng14.dll or libpng14-14.dll. LibPNG requires zlib, + which should come from the same source as you got libpng. + Starting with Emacs 23.3, the precompiled Emacs binaries are + built with libpng 1.4.x and later, and are incompatible with + earlier versions of libpng DLLs. So if you have libpng 1.2.x, + the PNG support will not work, and you will have to download + newer versions. JPEG: requires the Independent JPEG Group's libjpeg 6b or later, which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll. === modified file 'nt/ChangeLog' --- nt/ChangeLog 2011-11-13 14:43:13 +0000 +++ nt/ChangeLog 2011-11-15 18:08:38 +0000 @@ -1,3 +1,7 @@ +2011-11-15 Eli Zaretskii + + * README.W32: Update the GTK Windows download URL for libpng. + 2011-11-13 Christoph Scholtes * inc/stdint.h (UINT64_MAX, UINT32_MAX): Fix values. === modified file 'nt/README.W32' --- nt/README.W32 2011-11-11 23:17:16 +0000 +++ nt/README.W32 2011-11-15 18:08:38 +0000 @@ -129,7 +129,7 @@ Emacs can also support some other image formats with appropriate libraries. These libraries are all available as part of GTK - download for Windows (http://www.gtk.org/download-windows.html), or + download for Windows (http://www.gtk.org/download/win32.php), or from the GnuWin32 project. Emacs will find them if the directory they are installed in is on the PATH. ------------------------------------------------------------ revno: 106386 committer: Paul Eggert branch nick: trunk timestamp: Tue 2011-11-15 09:46:34 -0800 message: Undo a bad spelling fix. I did not realize the comment was in Latin. diff: === modified file 'lisp/dired.el' --- lisp/dired.el 2011-11-15 07:55:13 +0000 +++ lisp/dired.el 2011-11-15 17:46:34 +0000 @@ -2533,7 +2533,7 @@ (if (and (> count 1) (called-interactively-p 'interactive)) (message "Buffer includes %d directories" count))) ;; We don't need to sort it because it is in buffer order per - ;; construction. Return new alist: + ;; constructionem. Return new alist: dired-subdir-alist)) (defun dired-alist-add-1 (dir new-marker) ------------------------------------------------------------ revno: 106385 committer: Juanma Barranquero branch nick: trunk timestamp: Tue 2011-11-15 18:37:37 +0100 message: Fix typos. diff: === modified file 'ChangeLog' --- ChangeLog 2011-11-13 01:03:55 +0000 +++ ChangeLog 2011-11-15 17:37:37 +0000 @@ -2393,7 +2393,7 @@ * BUGS: Use new binding of view-emacs-problems. -2009-05-04 Simon Leinen (tiny change) +2009-05-04 Simon Leinen (tiny change) * Makefile.in (install-arch-dep): Avoid using $$(..) construct, for Solaris compatibility. === modified file 'admin/ChangeLog' --- admin/ChangeLog 2011-11-07 17:17:28 +0000 +++ admin/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,3 +1,7 @@ +2011-11-15 Juanma Barranquero + + * make-emacs: Fix typo. + 2011-11-07 Juanma Barranquero * unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h. === modified file 'admin/make-emacs' --- admin/make-emacs 2011-01-26 08:36:39 +0000 +++ admin/make-emacs 2011-11-15 17:37:37 +0000 @@ -72,7 +72,7 @@ --gprof make Emacs for profiling --union-type define USE_LISP_UNION_TYPE (bad for GDB) --malloc-check define GC_MALLOC_CHECK - --no-mcheck dont define GC_MCHECK + --no-mcheck don't define GC_MCHECK --wall compile with -Wall --gcc3 use GCC 3.0 (30% slower compilation, slower code) --trace-selection print traces in xselect.c === modified file 'configure.in' --- configure.in 2011-11-04 22:16:46 +0000 +++ configure.in 2011-11-15 17:37:37 +0000 @@ -1593,7 +1593,7 @@ athena | lucid ) USE_X_TOOLKIT=LUCID ;; motif ) USE_X_TOOLKIT=MOTIF ;; gtk ) with_gtk=yes -dnl Dont set this for GTK. A lot of tests below assumes Xt when +dnl Don't set this for GTK. A lot of tests below assumes Xt when dnl USE_X_TOOLKIT is set. USE_X_TOOLKIT=none ;; gtk3 ) with_gtk3=yes === modified file 'doc/lispref/two-volume-cross-refs.txt' --- doc/lispref/two-volume-cross-refs.txt 2011-01-26 08:36:39 +0000 +++ doc/lispref/two-volume-cross-refs.txt 2011-11-15 17:37:37 +0000 @@ -87,7 +87,7 @@ insert elisp2-aux-vol-added into vol1.aux (append) insert elisp1-aux-vol-added into vol2.aux (prepend) -(so you dont have to do it again) +(so you don't have to do it again) % cp vol1.aux elisp1-aux-ready % cp vol2.aux elisp2-aux-ready @@ -120,7 +120,7 @@ % texindex vol1.fn % texindex vol2.fn -(so you dont have to do it again) +(so you don't have to do it again) % cp vol1.fns elisp1-fns-2vol-ready % cp vol2.fns elisp2-fns-2vol-ready === modified file 'doc/man/ChangeLog' --- doc/man/ChangeLog 2011-10-06 15:13:45 +0000 +++ doc/man/ChangeLog 2011-11-15 17:37:37 +0000 @@ -18,7 +18,7 @@ * Version 23.3 released. -2011-01-02 Jari Aalto (tiny change) +2011-01-02 Jari Aalto * emacsclient.1: Arrange options alphabetically (Bug#7620). === modified file 'doc/misc/ChangeLog' --- doc/misc/ChangeLog 2011-11-15 00:54:19 +0000 +++ doc/misc/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,11 +1,13 @@ 2011-11-15 Juanma Barranquero - * ede.texi (project-am-texinfo): Fix typo. + * ede.texi (project-am-texinfo): + * gnus.texi (Sending or Not Sending): + * org.texi (Template elements): Fix typos. 2011-11-14 Juanma Barranquero * ediff.texi (Hooks): - * sem-user.texi (Semanticdb Roots): Fix typo. + * sem-user.texi (Semanticdb Roots): Fix typos. 2011-11-11 Juanma Barranquero === modified file 'doc/misc/gnus.texi' --- doc/misc/gnus.texi 2011-11-15 07:55:13 +0000 +++ doc/misc/gnus.texi 2011-11-15 17:37:37 +0000 @@ -18105,7 +18105,7 @@ @itemize @bullet @item @code{nndiary} is a @emph{real} mail back end. You really send real diary -messsages for real. This means for instance that you can give +messages for real. This means for instance that you can give appointments to anybody (provided they use Gnus and @code{nndiary}) by sending the diary message to them as well. @item === modified file 'doc/misc/org.texi' --- doc/misc/org.texi 2011-11-15 07:55:13 +0000 +++ doc/misc/org.texi 2011-11-15 17:37:37 +0000 @@ -6393,7 +6393,7 @@ @node Template elements, Template expansion, Capture templates, Capture templates @subsubsection Template elements -Now lets look at the elements of a template definition. Each entry in +Now let's look at the elements of a template definition. Each entry in @code{org-capture-templates} is a list with the following items: @table @var === modified file 'leim/ChangeLog' --- leim/ChangeLog 2011-10-05 00:56:26 +0000 +++ leim/ChangeLog 2011-11-15 17:37:37 +0000 @@ -251,7 +251,7 @@ * quail/hangul.el (hangul-im-keymap): Add binding of key Hangul_Hanja. -2009-05-04 Simon Leinen (tiny change) +2009-05-04 Simon Leinen (tiny change) * Makefile.in (install): Avoid using $$(..) construct, for Solaris compatibility. === modified file 'leim/quail/tibetan.el' --- leim/quail/tibetan.el 2011-01-26 08:36:39 +0000 +++ leim/quail/tibetan.el 2011-11-15 17:37:37 +0000 @@ -427,7 +427,7 @@ 1. Vowel 'a' should be typed explicitly by the key 'A'. This is really inconvenient. But to make the coding - scheme clear, it is desirable to have an explicite + scheme clear, it is desirable to have an explicit vowel sign for 'a'. 2. Tsheg is assigned to SPC key. You can input a space by typing '>'. === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-15 08:23:03 +0000 +++ lisp/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,3 +1,16 @@ +2011-11-15 Juanma Barranquero + + * allout.el (allout-encryption-plaintext-sanitization-regexps): + * frame.el (display-mm-dimensions-alist): + * outline.el (outline-mode-menu-bar-map, outline-move-subtree-up) + (outline-move-subtree-down): + * net/newst-treeview.el (newsticker--treeview-do-get-node-of-feed) + (newsticker--treeview-do-get-node): + * net/quickurl.el (quickurl-list-buffer-name): + * progmodes/dcl-mode.el (dcl-mode): + * progmodes/gdb-mi.el (gdb-mapcar*): + * progmodes/sql.el (sql-mode-oracle-font-lock-keywords): Fix typos. + 2011-11-15 Glenn Morris * mail/rmail.el (rmail-file-coding-system): It's only ever used @@ -491,7 +504,7 @@ 2011-10-26 Michael Albinus * ido.el (ido-file-name-all-completions-1): Do not require - tramp.el explicitely. (Bug#7583) + tramp.el explicitly. (Bug#7583) 2011-10-26 Stefan Monnier === modified file 'lisp/ChangeLog.10' --- lisp/ChangeLog.10 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.10 2011-11-15 17:37:37 +0000 @@ -3318,7 +3318,7 @@ ada-prj.el are now defined in this package, which makes it easier to edit menus. (ada-narrow-to-defun): Add support for `narrow-to-region'. - No longer explicitely load ada-xref.el and ada-prj.el. Use autoload + No longer explicitly load ada-xref.el and ada-prj.el. Use autoload statements instead. * progmodes/ada-xref.el (ada-gnatls-args): New variable. === modified file 'lisp/ChangeLog.12' --- lisp/ChangeLog.12 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.12 2011-11-15 17:37:37 +0000 @@ -764,7 +764,7 @@ Fix calls to get-buffer-window to find windows in other frames. Reported by David Hansen . -2007-03-27 Kevin Ryde +2007-03-27 Kevin Ryde * info.el (Info-display-images-node): On a text-only terminal, show the "text" or "alt" parts of the image blobs. === modified file 'lisp/ChangeLog.13' --- lisp/ChangeLog.13 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.13 2011-11-15 17:37:37 +0000 @@ -11855,7 +11855,7 @@ (org-agenda-files): Ignore non-existing files. (org-agenda-skip-unavailable-files): New variable. (org-ellipsis): All a face as value. - (org-mode): Interprete the face value of `org-ellipsis'. + (org-mode): Interpret the face value of `org-ellipsis'. (org-archive-save-context-info): New option. (org-archive-subtree): Store context info in archived entry. (org-fast-tag-selection-can-set-todo-state): New variable. @@ -11890,7 +11890,7 @@ (org-set-regexps-and-options): Use `org-remove-keyword-keys'. (org-remove-keyword-keys): New function. -2007-08-30 Jari Aalto (tiny change) +2007-08-30 Jari Aalto * progmodes/grep.el (grep-find-ignored-directories): Add monotone _MTN bookkeeping directory in workspaces. === modified file 'lisp/ChangeLog.14' --- lisp/ChangeLog.14 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.14 2011-11-15 17:37:37 +0000 @@ -6724,7 +6724,7 @@ (rx-check-any): Return result as a list. Don't convert chars to strings. Don't prepend "\\" to "^". Don't search for close bracket. Check char category string. Call rx-form instead of rx-to-string. - (rx-any): Rebuid to complete the function. + (rx-any): Rebuild to complete the function. (rx-check-not): Fix char category regexp pattern string. Call rx-form instead of rx-to-string. (rx-not): Call rx-form instead of rx-to-string. Convert "[^]" to === modified file 'lisp/ChangeLog.15' --- lisp/ChangeLog.15 2011-11-14 23:59:56 +0000 +++ lisp/ChangeLog.15 2011-11-15 17:37:37 +0000 @@ -3058,7 +3058,7 @@ * net/tramp-sh.el (tramp-sh-handle-start-file-process): Protect buffer-modified value. (Bug#7557) -2010-12-13 Jan Moringen +2010-12-13 Jan Moringen * log-edit.el (log-edit-changelog-entries): Regexp quote filename. (Bug#7505) @@ -12985,7 +12985,7 @@ file has no read permissions for the owner, there might be problems otherwise. Reported by Ole Laursen . -22010-02-18 Glenn Morris +2010-02-18 Glenn Morris * emacs-lisp/authors.el (authors-renamed-files-alist): Add entries for INSTALL.CVS. @@ -13597,7 +13597,7 @@ * textmodes/artist.el (artist-compute-popup-menu-table): Remove duplicated words in doc-strings. -2010-01-15 David Abrahams (tiny change) +2010-01-15 David Abrahams (tiny change) * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil to mairix-search to suppress threading (Bug#5342). === modified file 'lisp/ChangeLog.5' --- lisp/ChangeLog.5 2011-11-14 21:00:24 +0000 +++ lisp/ChangeLog.5 2011-11-15 17:37:37 +0000 @@ -879,7 +879,7 @@ * ada-mode.el (initial comments): Copyright 1995; don't speak about setup; correct history for a file that actually IS in Emacs 19.29; update list of known bugs. - (all functions): Initialize all local variables explicitely to 'nil'. + (all functions): Initialize all local variables explicitly to 'nil'. (ada-font-lock-keywords): Initialized according to new user option `font-lock-maximum-decoration'. === modified file 'lisp/ChangeLog.7' --- lisp/ChangeLog.7 2011-11-14 21:00:24 +0000 +++ lisp/ChangeLog.7 2011-11-15 17:37:37 +0000 @@ -6815,9 +6815,9 @@ `reftex-no-include-regexps'. (reftex-no-include-regexps): New option. (reftex-do-parse): Initialize appendix flag. - (reftex-parse-from-file): Interprete appendix. + (reftex-parse-from-file): Interpret appendix. (reftex-section-info): Use changed version of reftex-section-number. - (reftex-where-am-I): Interprete appendix match. + (reftex-where-am-I): Interpret appendix match. (reftex-init-section-numbers): New arg: appendix. (reftex-section-number): Treat appendix enumeration. (reftex-toc-external): Improved message. @@ -11240,7 +11240,7 @@ (reftex-cite-comment-format): New variable. (reftex-cite-punctuation): New variable. (reftex-make-master-buffer): Changed name of master buffer, - removed interactive. Runs a hook on the buffer. Interprete + removed interactive. Runs a hook on the buffer. Interpret TEXINPUTS environment variable. Allow naked argument for \input. Master buffer is now in fundamental mode. (reftex-access-scan-info): Name of master buffer changed. @@ -11264,9 +11264,9 @@ (reftex-allow-for-ctrl-m): New function. (reftex-label-info-update): Allow more general label commands. (reftex-label-info): New parameter derive. - (reftex-short-context): Interprete integer parse as nth arg of macro. + (reftex-short-context): Interpret integer parse as nth arg of macro. (reftex-nth-parens-substring): New function. - (reftex-select-item): Interprete the new 'cnt text property. + (reftex-select-item): Interpret the new 'cnt text property. (reftex-pop-to-label): Allow more general label commands. (reftex-nicify-text): Allow more general label commands. (reftex-toc): Remember previous window configuration. Use text === modified file 'lisp/ChangeLog.8' --- lisp/ChangeLog.8 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.8 2011-11-15 17:37:37 +0000 @@ -3475,8 +3475,8 @@ (reftex-process-string): Preserve default directory. (reftex-label-alist-builtin): Changed prefixes of endnote and footnote. Also the magic words. - (reftex-reference): Interprete new option `reftex-fref-is-default'. - (reftex-replace-prefix-escapes): Interprete new `%S' format. + (reftex-reference): Interpret new option `reftex-fref-is-default'. + (reftex-replace-prefix-escapes): Interpret new `%S' format. (reftex-toc-mouse-view-line): Command removed (had no binding). (reftex-everything-regexp): New function. (reftex-nearest-match): Made better. @@ -9750,11 +9750,11 @@ * international/mule.el (charset-description): Doc fix. * language/chinese.el, language/cyrillic.el, language/czech.el, - language/devanagari.el, language/ethiopic.el, - language/european.el, language/hebrew.el, language/indian.el, - language/japanese.el, language/korean.el, language/lao.el, - language/slovak.el, language/thai.el, language/tibetan.el, - language/vietnamese.el: + * language/devanagari.el, language/ethiopic.el, + * language/european.el, language/hebrew.el, language/indian.el, + * language/japanese.el, language/korean.el, language/lao.el, + * language/slovak.el, language/thai.el, language/tibetan.el, + * language/vietnamese.el: Add coding: local variable, to avoid bootstrapping problem if you need to recompile all the Lisp files using interpreted code. === modified file 'lisp/ChangeLog.9' --- lisp/ChangeLog.9 2011-11-14 20:23:26 +0000 +++ lisp/ChangeLog.9 2011-11-15 17:37:37 +0000 @@ -2030,7 +2030,7 @@ Do not bind locally the uniquify-possibly-resolvable flag. Use the cached proposed name is possible. (uniquify-get-proposed-name): Arguments changed, callers changed. - (uniquify-rationalize-conflicting-sublist): Explicitely reset the + (uniquify-rationalize-conflicting-sublist): Explicitly reset the uniquify-possibly-resolvable flag, which is no more bound locally. (uniquify-rename-buffer): Do not set the old unrationalised-buffer flag, which does not exist any more. @@ -17396,7 +17396,7 @@ 2000-05-25 Kenichi Handa - * international/mule-conf.el: Specify CHARSET-ID explicitely for + * international/mule-conf.el: Specify CHARSET-ID explicitly for private charsets. (mule-unicode-0100-24ff, japanese-jisx0213-1, japanese-jisx0213-2): New charsets. === modified file 'lisp/allout.el' --- lisp/allout.el 2011-11-15 00:54:19 +0000 +++ lisp/allout.el 2011-11-15 17:37:37 +0000 @@ -1537,7 +1537,7 @@ Each value can be a regexp or a list with a regexp followed by a substitution string. If it's just a regexp, all its matches are removed before the text is encrypted. If it's a regexp and a substitution, the -substition is used against the regexp matches, a la `replace-match'.") +substitution is used against the regexp matches, a la `replace-match'.") (make-variable-buffer-local 'allout-encryption-text-removal-regexps) ;;;_ = allout-encryption-ciphertext-rejection-regexps (defvar allout-encryption-ciphertext-rejection-regexps nil @@ -3822,7 +3822,7 @@ (if (and (not (eobp)) (or (not (bolp)) (and (not (bobp)) - ;; bolp doesnt detect concealed + ;; bolp doesn't detect concealed ;; trailing newlines, compensate: (save-excursion (forward-char -1) === modified file 'lisp/calc/calc.el' --- lisp/calc/calc.el 2011-06-02 00:09:42 +0000 +++ lisp/calc/calc.el 2011-11-15 17:37:37 +0000 @@ -124,7 +124,7 @@ ;; target integral is not complete (and the time limit has not run out) ;; choose an incomplete integral from the cache and, for every integral ;; appearing in its RHS's, add those integrals to the cache using the -;; same substitition, parts, etc. rules. The cache should be organized +;; same substitution, parts, etc. rules. The cache should be organized ;; as a priority queue, choosing the "simplest" incomplete integral at ;; each step, or choosing randomly among equally simple integrals. ;; Simplicity equals small size, and few steps removed from the original @@ -428,7 +428,7 @@ nil "If non-nil, use a separate face to indicate selected sub-formulas. If `calc-show-selections' is non-nil, then selected sub-formulas are shown -by displaying the rest of the formula in `calc-nonselected-face'. +by displaying the rest of the formula in `calc-nonselected-face'. If `calc-show-selections' is nil, then selected sub-formulas are shown by displaying the sub-formula in `calc-selected-face'." :group 'calc @@ -446,14 +446,14 @@ :group 'calc :type '(string)) -(defcustom calc-note-threshold "1" +(defcustom calc-note-threshold "1" "The number of cents that a frequency should be near a note to be identified as that note." :type 'string :group 'calc) (defface calc-nonselected-face - '((t :inherit shadow + '((t :inherit shadow :slant italic)) "Face used to show the non-selected portion of a formula." :group 'calc) === modified file 'lisp/cedet/ede/emacs.el' --- lisp/cedet/ede/emacs.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/ede/emacs.el 2011-11-15 17:37:37 +0000 @@ -63,7 +63,7 @@ (if proj (ede-up-directory (file-name-directory (oref proj :file))) - ;; No pre-existing project. Lets take a wild-guess if we have + ;; No pre-existing project. Let's take a wild-guess if we have ;; an Emacs project here. (when (string-match "emacs[^/]*" dir) (let ((base (substring dir 0 (match-end 0)))) @@ -121,7 +121,7 @@ Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." (or (ede-emacs-file-existing dir) - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (let* ((vertuple (ede-emacs-version dir))) (ede-emacs-project (car vertuple) :name (car vertuple) === modified file 'lisp/cedet/ede/files.el' --- lisp/cedet/ede/files.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/ede/files.el 2011-11-15 17:37:37 +0000 @@ -101,7 +101,7 @@ (setq ans SP) (ede-find-subproject-for-directory SP dir))))) ans) - ;; We can use inodes, so lets try it. + ;; We can use inodes, so let's try it. (let ((ans nil) (inode (ede--inode-for-dir dir))) (ede-map-subprojects === modified file 'lisp/cedet/ede/generic.el' --- lisp/cedet/ede/generic.el 2011-11-15 07:55:13 +0000 +++ lisp/cedet/ede/generic.el 2011-11-15 17:37:37 +0000 @@ -133,7 +133,7 @@ Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (let* ((alobj ede-constructing) (this nil)) (when (not alobj) (error "Cannot load generic project without the autoload instance")) === modified file 'lisp/cedet/ede/linux.el' --- lisp/cedet/ede/linux.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/ede/linux.el 2011-11-15 17:37:37 +0000 @@ -62,7 +62,7 @@ (if proj (ede-up-directory (file-name-directory (oref proj :file))) - ;; No pre-existing project. Lets take a wild-guess if we have + ;; No pre-existing project. Let's take a wild-guess if we have ;; an Linux project here. (when (string-match "linux[^/]*" dir) (let ((base (substring dir 0 (match-end 0)))) @@ -101,7 +101,7 @@ Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." (or (ede-linux-file-existing dir) - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (ede-linux-project "Linux" :name "Linux" :version (ede-linux-version dir) === modified file 'lisp/cedet/ede/project-am.el' --- lisp/cedet/ede/project-am.el 2011-11-15 07:55:13 +0000 +++ lisp/cedet/ede/project-am.el 2011-11-15 17:37:37 +0000 @@ -659,7 +659,7 @@ ;; their object still exists! ;; FIGURE THIS OUT (project-am-expand-subdirlist 'csubprojexpanded csubproj) - ;; Ok, now lets look at all our sub-projects. + ;; Ok, now let's look at all our sub-projects. (mapc (lambda (sp) (let* ((subdir (file-name-as-directory (expand-file-name === modified file 'lisp/cedet/inversion.el' --- lisp/cedet/inversion.el 2011-01-26 08:36:39 +0000 +++ lisp/cedet/inversion.el 2011-11-15 17:37:37 +0000 @@ -419,7 +419,7 @@ ;;(message "%S added to `load-path'" default-directory) (add-to-list 'load-path default-directory)) ;; We get to this point iff we do not accept or there is no - ;; system file. Lets check the version of what we just + ;; system file. Let's check the version of what we just ;; installed... just to be safe. (let ((newver (inversion-find-version package))) (if (not newver) === modified file 'lisp/cedet/semantic/analyze.el' --- lisp/cedet/semantic/analyze.el 2011-11-15 07:55:13 +0000 +++ lisp/cedet/semantic/analyze.el 2011-11-15 17:37:37 +0000 @@ -287,7 +287,7 @@ ;; For the middle entries (while s - ;; Using the tag found in TMP, lets find the tag + ;; Using the tag found in TMP, let's find the tag ;; representing the full typeographic information of its ;; type, and use that to determine the search context for ;; (car s) === modified file 'lisp/cedet/semantic/bovine/el.el' --- lisp/cedet/semantic/bovine/el.el 2011-11-15 07:55:13 +0000 +++ lisp/cedet/semantic/bovine/el.el 2011-11-15 17:37:37 +0000 @@ -515,7 +515,7 @@ (let ((d (semantic-tag-docstring tag))) (when (not d) (cond ((semantic-tag-with-position-p tag) - ;; Doc isn't in the tag itself. Lets pull it out of the + ;; Doc isn't in the tag itself. Let's pull it out of the ;; sources. (let ((semantic-elisp-store-documentation-in-tag t)) (setq tag (with-current-buffer (semantic-tag-buffer tag) === modified file 'lisp/cedet/semantic/complete.el' --- lisp/cedet/semantic/complete.el 2011-05-10 13:57:12 +0000 +++ lisp/cedet/semantic/complete.el 2011-11-15 17:37:37 +0000 @@ -1618,7 +1618,7 @@ (string= (this-command-keys) "\C-i")) (oset obj typing-count (1+ typing-count))) ;; At this point, we know we have too many items. - ;; Lets be brave, and truncate l + ;; Let's be brave, and truncate l (setcdr (nthcdr (oref obj max-tags) l) nil) (setq msg (mapconcat 'identity l "\n")) (cond === modified file 'lisp/cedet/semantic/ctxt.el' --- lisp/cedet/semantic/ctxt.el 2011-11-14 21:00:24 +0000 +++ lisp/cedet/semantic/ctxt.el 2011-11-15 17:37:37 +0000 @@ -410,7 +410,7 @@ ;; Set our end point. (setq end (point)) - ;; Now that we have gotten started, lets do the rest. + ;; Now that we have gotten started, let's do the rest. (condition-case nil (while (save-excursion (forward-char -1) === modified file 'lisp/cedet/semantic/db-ebrowse.el' --- lisp/cedet/semantic/db-ebrowse.el 2011-01-26 08:36:39 +0000 +++ lisp/cedet/semantic/db-ebrowse.el 2011-11-15 17:37:37 +0000 @@ -219,7 +219,7 @@ ;JAVE this just instantiates a default empty ebrowse struct? ; how would new instances wind up here? -; the ebrowse class isnt singleton, unlike the emacs lisp one +; the ebrowse class isn't singleton, unlike the emacs lisp one (defvar-mode-local c++-mode semanticdb-project-system-databases () "Search Ebrowse for symbols.") @@ -296,7 +296,7 @@ (when (string= (oref (car dbs) reference-directory) directory) (setq found (car dbs)))) (setq dbs (cdr dbs))) - ;;STATIC means DBE cant be used as object, only as a class + ;;STATIC means DBE can't be used as object, only as a class (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory)) (dat (car (cdr ebrowse-data))) (ebd (car dat)) @@ -331,7 +331,7 @@ ;JAVE what it actually seems to do is split the original tree in "tables" associated with files ; im not sure it actually works: ; the filename slot sometimes gets to be nil, -; apparently for classes which definition cant be found, yet needs to be included in the tree +; apparently for classes which definition can't be found, yet needs to be included in the tree ; like library baseclasses ; a file can define several classes (let ((T (car (cdr data))));1st comes a header, then the tree === modified file 'lisp/cedet/semantic/db-typecache.el' --- lisp/cedet/semantic/db-typecache.el 2011-11-14 21:00:24 +0000 +++ lisp/cedet/semantic/db-typecache.el 2011-11-15 17:37:37 +0000 @@ -473,7 +473,7 @@ ;; find a type/namespace because everything else is excluded. ;; If this is not the last entry from the list, then it - ;; must be a type or a namespace. Lets double check. + ;; must be a type or a namespace. Let's double check. (when (cdr type) ;; From above, there is only one tag in ans, and we prefer @@ -511,7 +511,7 @@ ;; This won't liven up the tag since we have a copy, but ;; we ought to be able to get there and go to the right line. (find-file-noselect lastfile) - ;; We don't want to find-file match, so instead lets + ;; We don't want to find-file match, so instead let's ;; push the filename onto the return tag. (when lastans (setq lastans (semantic-tag-copy lastans nil lastfile)) === modified file 'lisp/cedet/semantic/db.el' --- lisp/cedet/semantic/db.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/semantic/db.el 2011-11-15 17:37:37 +0000 @@ -459,7 +459,7 @@ (setq cache (cdr cache))) (if obj obj ;; Just return it. - ;; No object, lets create a new one and return that. + ;; No object, let's create a new one and return that. (setq obj (funcall desired-class "Cache" :table table)) (object-add-to-list table 'cache obj) obj))) @@ -510,7 +510,7 @@ (setq cache (cdr cache))) (if obj obj ;; Just return it. - ;; No object, lets create a new one and return that. + ;; No object, let's create a new one and return that. (setq obj (funcall desired-class "Cache" :db db)) (object-add-to-list db 'cache obj) obj))) @@ -941,7 +941,7 @@ (setq fullfile (file-truename file)) ) - ;; If we have a table, but no fullfile, that's ok. Lets get the filename + ;; If we have a table, but no fullfile, that's ok. Let's get the filename ;; from the table which is pre-truenamed. (when (and (not fullfile) tab) (setq fullfile (semanticdb-full-filename tab))) === modified file 'lisp/cedet/semantic/decorate/include.el' --- lisp/cedet/semantic/decorate/include.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/semantic/decorate/include.el 2011-11-15 17:37:37 +0000 @@ -739,7 +739,7 @@ "Refresh any highlighting in buffers referred to by TABLE. If TABLE is not in a buffer, do nothing." ;; This cache removal may seem odd in that we are "creating one", but - ;; since we cant get in the fcn unless one exists, this ought to be + ;; since we can't get in the fcn unless one exists, this ought to be ;; ok. (let ((c (semanticdb-cache-get table 'semantic-decoration-unparsed-include-cache))) === modified file 'lisp/cedet/semantic/doc.el' --- lisp/cedet/semantic/doc.el 2011-01-26 08:36:39 +0000 +++ lisp/cedet/semantic/doc.el 2011-11-15 17:37:37 +0000 @@ -56,7 +56,7 @@ ;; Check just before the definition. (when (semantic-tag-with-position-p tag) (semantic-documentation-comment-preceeding-tag tag nosnarf)) - ;; Lets look for comments either after the definition, but before code: + ;; Let's look for comments either after the definition, but before code: ;; Not sure yet. Fill in something clever later.... nil)))))) === modified file 'lisp/cedet/semantic/edit.el' --- lisp/cedet/semantic/edit.el 2011-11-15 07:55:13 +0000 +++ lisp/cedet/semantic/edit.el 2011-11-15 17:37:37 +0000 @@ -316,7 +316,7 @@ (setq list-to-search nil))) ;; Search list is nil. )) - ;; If we have a search list, lets go. Otherwise nothing. + ;; If we have a search list, let's go. Otherwise nothing. (while (and list-to-search (not found)) (if (cdr list-to-search) ;; We end when the start of the CDR is after the end of our === modified file 'lisp/cedet/semantic/format.el' --- lisp/cedet/semantic/format.el 2011-11-13 07:48:23 +0000 +++ lisp/cedet/semantic/format.el 2011-11-15 17:37:37 +0000 @@ -431,7 +431,7 @@ (doc (semantic-tag-docstring tag buf))) (when (and (not doc) (not buf) fname) ;; If there is no doc, and no buffer, but we have a filename, - ;; lets try again. + ;; let's try again. (save-match-data (setq buf (find-file-noselect fname))) (setq doc (semantic-tag-docstring tag buf))) === modified file 'lisp/cedet/semantic/ia.el' --- lisp/cedet/semantic/ia.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/semantic/ia.el 2011-11-15 17:37:37 +0000 @@ -115,7 +115,7 @@ (if (null syms) (if (semantic-analyze-context-p a) ;; This is a clever hack. If we were unable to find any - ;; smart completions, lets divert to how senator derives + ;; smart completions, let's divert to how senator derives ;; completions. ;; ;; This is a way of making this fcn more useful since @@ -251,8 +251,8 @@ "Jump to DEST, a Semantic tag. This helper manages the mark, buffer switching, and pulsing." ;; We have a tag, but in C++, we usually get a prototype instead - ;; because of header files. Lets try to find the actual - ;; implementaion instead. + ;; because of header files. Let's try to find the actual + ;; implementation instead. (when (semantic-tag-prototype-p dest) (let* ((refs (semantic-analyze-tag-references dest)) (impl (semantic-analyze-refs-impl refs t)) === modified file 'lisp/cedet/semantic/idle.el' --- lisp/cedet/semantic/idle.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/semantic/idle.el 2011-11-15 17:37:37 +0000 @@ -427,7 +427,7 @@ (defun semantic-idle-scheduler-work-parse-neighboring-files () "Parse all the files in similar directories to buffers being edited." - ;; Lets check to see if EDE matters. + ;; Let's check to see if EDE matters. (let ((ede-auto-add-method 'never)) (dolist (a auto-mode-alist) (when (eq (cdr a) major-mode) === modified file 'lisp/cedet/semantic/scope.el' --- lisp/cedet/semantic/scope.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/semantic/scope.el 2011-11-15 17:37:37 +0000 @@ -186,7 +186,7 @@ (save-excursion (goto-char position) (let ((code-scoped-types nil)) - ;; Lets ask if any types are currently scoped. Scoped + ;; Let's ask if any types are currently scoped. Scoped ;; classes and types provide their public methods and types ;; in source code, but are unrelated hierarchically. (let ((sp (semantic-ctxt-scoped-types))) @@ -249,7 +249,7 @@ ;; Analyze the stack of tags we are nested in as parents. ;; - ;; If we have a pparent tag, lets go there + ;; If we have a pparent tag, let's go there ;; an analyze that stack of tags. (when (and pparent (semantic-tag-with-position-p pparent)) (semantic-go-to-tag pparent) === modified file 'lisp/cedet/semantic/symref/grep.el' --- lisp/cedet/semantic/symref/grep.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/semantic/symref/grep.el 2011-11-15 17:37:37 +0000 @@ -102,7 +102,7 @@ FILEPATTERN is a string representing find flags for searching file patterns. GREPFLAGS are flags passed to grep, such as -n or -l. GREPPATTERN is the pattern used by grep." - ;; We have grep-compute-defaults. Lets use it. + ;; We have grep-compute-defaults. Let's use it. (grep-compute-defaults) (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords) (cmd (grep-expand-template grep-find-template === modified file 'lisp/cedet/semantic/texi.el' --- lisp/cedet/semantic/texi.el 2011-11-13 07:48:23 +0000 +++ lisp/cedet/semantic/texi.el 2011-11-15 17:37:37 +0000 @@ -579,7 +579,7 @@ ;; (setq doctag (if docstring sourcetag nil)))) ;; (setq tags (cdr tags))))) ;; ;; If we found a prototype of the function that has some doc, but not the -;; ;; actual function, lets make due with that. +;; ;; actual function, let's make due with that. ;; (if (not docstring) ;; (cond ((stringp docstringvar) ;; (setq docstring docstringvar === modified file 'lisp/cedet/srecode/dictionary.el' --- lisp/cedet/srecode/dictionary.el 2011-11-14 20:23:26 +0000 +++ lisp/cedet/srecode/dictionary.el 2011-11-15 17:37:37 +0000 @@ -280,7 +280,7 @@ (progn (srecode-dictionary-show-section new "FIRST") (srecode-dictionary-show-section new "LAST")) - ;; Not the very first one. Lets clean up CAR. + ;; Not the very first one. Let's clean up CAR. (let ((tail (car (last ov)))) (srecode-dictionary-hide-section tail "LAST") (srecode-dictionary-show-section tail "NOTLAST") === modified file 'lisp/cedet/srecode/fields.el' --- lisp/cedet/srecode/fields.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/srecode/fields.el 2011-11-15 17:37:37 +0000 @@ -338,7 +338,7 @@ (inhibit-modification-hooks t) ) ;; Sometimes a field is deleted, but we might still get a stray - ;; event. Lets just ignore those events. + ;; event. Let's just ignore those events. (when (slot-boundp field 'overlay) ;; First, fixup the two overlays, in case they got confused. (let ((main (oref field overlay)) === modified file 'lisp/cedet/srecode/find.el' --- lisp/cedet/srecode/find.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/srecode/find.el 2011-11-15 17:37:37 +0000 @@ -103,7 +103,7 @@ (let ((proj (oref tab :project))) ;; Return t if the project wasn't set. (if (not proj) t - ;; If the project directory was set, lets check it. + ;; If the project directory was set, let's check it. (let ((dd (expand-file-name default-directory)) (projexp (regexp-quote (directory-file-name proj)))) (if (string-match (concat "^" projexp) dd) === modified file 'lisp/cedet/srecode/texi.el' --- lisp/cedet/srecode/texi.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/srecode/texi.el 2011-11-15 17:37:37 +0000 @@ -231,7 +231,7 @@ (if buffer (progn (set-buffer buffer) (srecode-texi-texify-docstring string)) - ;; Else, no buffer, so lets do something else + ;; Else, no buffer, so let's do something else (with-mode-local texinfo-mode (srecode-texi-texify-docstring string))))) === modified file 'lisp/emacs-lisp/cconv.el' --- lisp/emacs-lisp/cconv.el 2011-06-01 14:19:45 +0000 +++ lisp/emacs-lisp/cconv.el 2011-11-15 17:37:37 +0000 @@ -26,21 +26,21 @@ ;; This takes a piece of Elisp code, and eliminates all free variables from ;; lambda expressions. The user entry points are cconv-closure-convert and -;; cconv-closure-convert-toplevel(for toplevel forms). +;; cconv-closure-convert-toplevel (for toplevel forms). ;; All macros should be expanded beforehand. ;; ;; Here is a brief explanation how this code works. -;; Firstly, we analyse the tree by calling cconv-analyse-form. +;; Firstly, we analyze the tree by calling cconv-analyse-form. ;; This function finds all mutated variables, all functions that are suitable ;; for lambda lifting and all variables captured by closure. It passes the tree ;; once, returning a list of three lists. ;; -;; Then we calculate the intersection of first and third lists returned by +;; Then we calculate the intersection of the first and third lists returned by ;; cconv-analyse form to find all mutated variables that are captured by ;; closure. ;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the -;; tree recursivly, lifting lambdas where possible, building closures where it +;; tree recursively, lifting lambdas where possible, building closures where it ;; is needed and eliminating mutable variables used in closure. ;; ;; We do following replacements : @@ -142,7 +142,7 @@ (let ((cconv-freevars-alist '()) (cconv-lambda-candidates '()) (cconv-captured+mutated '())) - ;; Analyse form - fill these variables with new information. + ;; Analyze form - fill these variables with new information. (cconv-analyse-form form '()) (setq cconv-freevars-alist (nreverse cconv-freevars-alist)) (cconv-convert form nil nil))) ; Env initially empty. @@ -581,7 +581,7 @@ (defun cconv-analyse-form (form env) "Find mutated variables and variables captured by closure. -Analyse lambdas if they are suitable for lambda lifting. +Analyze lambdas if they are suitable for lambda lifting. - FORM is a piece of Elisp code after macroexpansion. - ENV is an alist mapping each enclosing lexical variable to its info. I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)). === modified file 'lisp/emacs-lisp/chart.el' --- lisp/emacs-lisp/chart.el 2011-05-23 17:57:17 +0000 +++ lisp/emacs-lisp/chart.el 2011-11-15 17:37:37 +0000 @@ -634,7 +634,7 @@ (setq extlst (cons s extlst) cntlst (cons 1 cntlst))))) (setq flst (cdr flst))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Files Extension Distribution" extlst "File Extensions" cntlst "# of occurrences" @@ -693,7 +693,7 @@ ;(car (nth 5 data)) ; floats are Emacs only ;(cdr (nth 5 data)) ))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage" names "Storage Items" nums "Objects"))) @@ -710,7 +710,7 @@ (if (fboundp 'x-display-list) (setq names (append names '("x-displays")) nums (append nums (list (length (x-display-list)))))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Emacs List Size Chart" names "Various Lists" nums "Objects"))) === modified file 'lisp/emacs-lisp/eieio.el' --- lisp/emacs-lisp/eieio.el 2011-11-14 23:59:56 +0000 +++ lisp/emacs-lisp/eieio.el 2011-11-15 17:37:37 +0000 @@ -553,7 +553,7 @@ (put cname 'cl-deftype-handler (list 'lambda () `(list 'satisfies (quote ,csym))))) - ;; before adding new slots, lets add all the methods and classes + ;; before adding new slots, let's add all the methods and classes ;; in from the parent class (eieio-copy-parents-into-subclass newc superclasses) @@ -826,7 +826,7 @@ ;; Make sure we duplicate those items that are sequences. (condition-case nil (if (sequencep d) (setq d (copy-sequence d))) - ;; This copy can fail on a cons cell with a non-cons in the cdr. Lets skip it if it doesn't work. + ;; This copy can fail on a cons cell with a non-cons in the cdr. Let's skip it if it doesn't work. (error nil)) (if (sequencep type) (setq type (copy-sequence type))) (if (sequencep cust) (setq cust (copy-sequence cust))) @@ -1470,7 +1470,7 @@ (c (eieio-slot-name-index class obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index class slot)) ;; Oref that slot. (aref (aref (class-v class) class-class-allocation-values) c) @@ -1503,7 +1503,7 @@ (c (eieio-slot-name-index cl obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index cl slot)) ;; Oref that slot. @@ -1549,7 +1549,7 @@ (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index (aref obj object-class) slot)) ;; Oset that slot. @@ -1581,7 +1581,7 @@ (c (eieio-slot-name-index class nil slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index class slot)) (progn ;; Oref that slot. === modified file 'lisp/emacs-lisp/regi.el' --- lisp/emacs-lisp/regi.el 2011-01-25 04:08:28 +0000 +++ lisp/emacs-lisp/regi.el 2011-11-15 17:37:37 +0000 @@ -161,7 +161,7 @@ (progn (goto-char end) (regi-pos 'bonl)) (progn (goto-char start) (regi-pos 'bol))))) - ;; lets find the special tags and remove them from the working + ;; let's find the special tags and remove them from the working ;; frame. note that only the last special tag is used. (mapc (function === modified file 'lisp/erc/ChangeLog.03' --- lisp/erc/ChangeLog.03 2011-11-15 00:54:19 +0000 +++ lisp/erc/ChangeLog.03 2011-11-15 17:37:37 +0000 @@ -1305,7 +1305,7 @@ * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~ * erc.el 1.459: * (erc-mode): Define a proper case-table. - * (erc-downcase): just call downcase for now, lets see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway... + * (erc-downcase): just call downcase for now, let's see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway... * erc-button.el 1.43: * (erc-button-add-buttons): regex-quote the nick === modified file 'lisp/frame.el' --- lisp/frame.el 2011-10-19 12:54:24 +0000 +++ lisp/frame.el 2011-11-15 17:37:37 +0000 @@ -1299,7 +1299,7 @@ e.g. (\":0.0\" . (287 . 215)). If `display' equals t, it specifies dimensions for all graphical -displays not explicitely specified." +displays not explicitly specified." :version "22.1" :type '(alist :key-type (choice (string :tag "Display name") (const :tag "Default" t)) === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2011-11-15 07:55:13 +0000 +++ lisp/gnus/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,5 +1,6 @@ 2011-11-15 Juanma Barranquero + * gnus-art.el (gnus-article-part-wrapper): * shr-color.el (shr-color-visible-distance-min) (shr-color-relative-to-absolute, set-minimum-interval) (shr-color-visible): Fix typos. === modified file 'lisp/gnus/ChangeLog.1' --- lisp/gnus/ChangeLog.1 2011-01-26 08:36:39 +0000 +++ lisp/gnus/ChangeLog.1 2011-11-15 17:37:37 +0000 @@ -2540,7 +2540,7 @@ `gnus-simplify-ignored-prefixes'. (gnus-summary-set-display-table): Keep TAB. -1998-01-15 +1998-01-15 Lars Magne Ingebrigtsen * gnus-art.el (gnus-request-article-this-buffer): Put it into the backlog. === modified file 'lisp/gnus/gnus-art.el' --- lisp/gnus/gnus-art.el 2011-11-14 23:59:56 +0000 +++ lisp/gnus/gnus-art.el 2011-11-15 17:37:37 +0000 @@ -5418,8 +5418,8 @@ (defun gnus-article-part-wrapper (n function &optional no-handle interactive) "Call FUNCTION on MIME part N. -Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument. -If INTERACTIVE, call FUNCTION interactivly." +Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument. +If INTERACTIVE, call FUNCTION interactively." (let (window frame) ;; Check whether the article is displayed. (unless (and (gnus-buffer-live-p gnus-article-buffer) === modified file 'lisp/gnus/html2text.el' --- lisp/gnus/html2text.el 2011-10-11 20:20:08 +0000 +++ lisp/gnus/html2text.el 2011-11-15 17:37:37 +0000 @@ -410,7 +410,7 @@ (while (re-search-forward "^
$" nil t) (delete-region (match-beginning 0) (match-end 0))) ;; Removing lonely
on a single line, if they are left intact we - ;; dont have any paragraphs at all. + ;; don't have any paragraphs at all. (goto-char (point-min)) (while (not (eobp)) (let ((p1 (point))) === modified file 'lisp/gnus/mm-decode.el' --- lisp/gnus/mm-decode.el 2011-09-19 22:06:57 +0000 +++ lisp/gnus/mm-decode.el 2011-11-15 17:37:37 +0000 @@ -1494,7 +1494,7 @@ (or (not image) (if (featurep 'xemacs) ;; XEmacs' glyphs can actually tell us about their width, so - ;; lets be nice and smart about them. + ;; let's be nice and smart about them. (or mm-inline-large-images (and (<= (glyph-width image) (window-pixel-width)) (<= (glyph-height image) (window-pixel-height)))) === modified file 'lisp/gnus/rfc2047.el' --- lisp/gnus/rfc2047.el 2011-01-25 04:08:28 +0000 +++ lisp/gnus/rfc2047.el 2011-11-15 17:37:37 +0000 @@ -285,11 +285,11 @@ mail-parse-charset) (mm-encode-coding-region (point) (point-max) mail-parse-charset))) - ;; We get this when CC'ing messsages to newsgroups with + ;; We get this when CC'ing messages to newsgroups with ;; 8-bit names. The group name mail copy just got ;; unconditionally encoded. Previously, it would ask ;; whether to encode, which was quite confusing for the - ;; user. If the new behavior is wrong, tell me. I have + ;; user. If the new behavior is wrong, tell me. I have ;; left the old code commented out below. ;; -- Per Abrahamsen Date: 2001-10-07. ;; Modified by Dave Love, with the commented-out code changed === modified file 'lisp/htmlfontify.el' --- lisp/htmlfontify.el 2011-11-13 07:48:23 +0000 +++ lisp/htmlfontify.el 2011-11-15 17:37:37 +0000 @@ -1768,7 +1768,7 @@ "Return a list of files under DIRECTORY. Strips any leading \"./\" from each filename." ;;(message "hfy-list-files");;DBUG - ;; FIXME: this changes the dir of the currrent buffer. Is that right?? + ;; FIXME: this changes the dir of the current buffer. Is that right?? (cd directory) (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F)) (split-string (shell-command-to-string hfy-find-cmd))) ) === modified file 'lisp/international/mule.el' --- lisp/international/mule.el 2011-11-14 21:00:24 +0000 +++ lisp/international/mule.el 2011-11-15 17:37:37 +0000 @@ -1566,7 +1566,7 @@ ;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from ;; `ctext-non-standard-encodings' and a list specified by the key -;; `ctext-non-standard-encodings' for the currrent language +;; `ctext-non-standard-encodings' for the current language ;; environment. CTEXT-USAGE-INFO is one of the element of ;; `ctext-non-standard-encodings-alist' or nil. In the former case, a ;; character in CHARSET is encoded using extended segment. In the === modified file 'lisp/international/quail.el' --- lisp/international/quail.el 2011-11-13 07:48:23 +0000 +++ lisp/international/quail.el 2011-11-15 17:37:37 +0000 @@ -2011,7 +2011,7 @@ (set-window-dedicated-p win t)) (quail-minibuffer-message (format " [%s]" current-input-method-title))) - ;; Show the guidance in the next line of the currrent + ;; Show the guidance in the next line of the current ;; minibuffer. (quail-minibuffer-message (format " [%s]\n%s" === modified file 'lisp/isearch.el' --- lisp/isearch.el 2011-11-14 23:59:56 +0000 +++ lisp/isearch.el 2011-11-15 17:37:37 +0000 @@ -542,8 +542,8 @@ (defvar isearch-string "") ; The current search string. (defvar isearch-message "") ; text-char-description version of isearch-string -(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix -(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix +(defvar isearch-message-prefix-add nil) ; Additional text for the message prefix +(defvar isearch-message-suffix-add nil) ; Additional text for the message suffix (defvar isearch-success t) ; Searching is currently successful. (defvar isearch-error nil) ; Error message for failed search. === modified file 'lisp/iswitchb.el' --- lisp/iswitchb.el 2011-11-15 07:55:13 +0000 +++ lisp/iswitchb.el 2011-11-15 17:37:37 +0000 @@ -1110,7 +1110,7 @@ (if (fboundp 'set-buffer-major-mode) (set-buffer-major-mode newbufcreated)) (iswitchb-visit-buffer newbufcreated)) - ;; else wont create new buffer + ;; else won't create new buffer (message "no buffer matching `%s'" buf)))) (defun iswitchb-window-buffer-p (buffer) === modified file 'lisp/mail/rmail-spam-filter.el' --- lisp/mail/rmail-spam-filter.el 2011-01-26 08:36:39 +0000 +++ lisp/mail/rmail-spam-filter.el 2011-11-15 17:37:37 +0000 @@ -317,7 +317,7 @@ ;; that this email is spam, output the email to the spam ;; rmail file, mark the email for deletion, leave the ;; while loop and return nil so that an rmail summary line - ;; wont be displayed for this message: (FIXME ?) + ;; won't be displayed for this message: (FIXME ?) (if (and (car maybe-spam) (cdr maybe-spam)) (setq exit-while-loop t) ;; Else, spam was not yet found, proceed to next element === modified file 'lisp/net/ange-ftp.el' --- lisp/net/ange-ftp.el 2011-10-12 18:32:35 +0000 +++ lisp/net/ange-ftp.el 2011-11-15 17:37:37 +0000 @@ -4027,7 +4027,7 @@ (concat bestmatch "/") bestmatch))))) -;; Put these lines uncommmented in your .emacs if you want C-r to refresh +;; Put these lines uncommented in your .emacs if you want C-r to refresh ;; ange-ftp's cache whilst doing filename completion. ;; ;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir) @@ -4507,7 +4507,7 @@ ;; We used to follow symlinks on `file' here. Apparently it was done ;; because some FTP servers react to "ls foo" by listing the symlink foo ;; rather than the directory it points to. Now that ange-ftp-ls uses - ;; "cd foo; ls" instead, this is not necesssary any more. + ;; "cd foo; ls" instead, this is not necessary any more. (let ((beg (point)) (end (point-marker))) (set-marker-insertion-type end t) === modified file 'lisp/net/newst-treeview.el' --- lisp/net/newst-treeview.el 2011-10-30 15:21:37 +0000 +++ lisp/net/newst-treeview.el 2011-11-15 17:37:37 +0000 @@ -227,7 +227,7 @@ (string= (widget-get node1 :tag) (widget-get node2 :tag))))) (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode) - "Recursivly search node for feed FEED-NAME starting from STARTNODE." + "Recursively search node for feed FEED-NAME starting from STARTNODE." ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed)) (if (string= feed-name (or (widget-get startnode :nt-feed) (widget-get startnode :nt-vfeed))) @@ -245,7 +245,7 @@ newsticker--treeview-vfeed-tree))) (defun newsticker--treeview-do-get-node (id startnode) - "Recursivly search node with ID starting from STARTNODE." + "Recursively search node with ID starting from STARTNODE." (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id)) (throw 'found startnode) (let ((children (widget-get startnode :children))) === modified file 'lisp/net/quickurl.el' --- lisp/net/quickurl.el 2011-11-14 23:59:56 +0000 +++ lisp/net/quickurl.el 2011-11-15 17:37:37 +0000 @@ -189,7 +189,7 @@ "Local keymap for a `quickurl-list-mode' buffer.") (defvar quickurl-list-buffer-name "*quickurl-list*" - "Name for the URL listinig buffer.") + "Name for the URL listing buffer.") (defvar quickurl-list-last-buffer nil "`current-buffer' when `quickurl-list' was called.") === modified file 'lisp/net/secrets.el' --- lisp/net/secrets.el 2011-11-15 07:55:13 +0000 +++ lisp/net/secrets.el 2011-11-15 17:37:37 +0000 @@ -379,7 +379,7 @@ (defun secrets-prompt-handler (&rest args) "Handler for signals emitted by `secrets-interface-prompt'." ;; An empty object path is always identified as `secrets-empty-path' - ;; or `nil'. Either we set it explicitely, or it is returned by the + ;; or `nil'. Either we set it explicitly, or it is returned by the ;; "Completed" signal. (if (car args) ;; dismissed (setq secrets-prompt-signal (list secrets-empty-path)) === modified file 'lisp/org/ChangeLog' --- lisp/org/ChangeLog 2011-11-14 23:59:56 +0000 +++ lisp/org/ChangeLog 2011-11-15 17:37:37 +0000 @@ -13808,7 +13808,7 @@ 2009-08-06 Bastien Guerry - * org.el (org-special-ctrl-a/e): Explicitely bind the value + * org.el (org-special-ctrl-a/e): Explicitly bind the value 'reversed for this option to the "true line boundary first" behavior. (org-tags-match-list-sublevels): Document the 'indented value for @@ -16482,7 +16482,7 @@ 2008-11-23 Carsten Dominik * org-export-latex.el (org-export-latex-subcontent): - Interprete target aliases as additional labels. + Interpret target aliases as additional labels. * org-exp.el (org-export-target-aliases): New variable. (org-export-preprocess-string) @@ -17290,7 +17290,7 @@ (org-edit-fixed-width-region): Also try `org-edit-fixed-width-region'. (org-edit-fixed-width-region-mode): New option. - (org-activate-code): Only interprete lines starting with colon + (org-activate-code): Only interpret lines starting with colon plus a space as example lines. * org-remember.el (org-remember-templates): Add nil instead of === modified file 'lisp/org/ob-haskell.el' --- lisp/org/ob-haskell.el 2011-08-18 20:41:06 +0000 +++ lisp/org/ob-haskell.el 2011-11-15 17:37:37 +0000 @@ -29,7 +29,7 @@ ;; they can be run, but haskell code can also be run through an ;; interactive interpreter. ;; -;; For now lets only allow evaluation using the haskell interpreter. +;; For now let's only allow evaluation using the haskell interpreter. ;;; Requirements: @@ -80,7 +80,7 @@ (cdr (member org-babel-haskell-eoe (reverse (mapcar #'org-babel-trim raw))))))) (org-babel-reassemble-table - (cond + (cond ((equal result-type 'output) (mapconcat #'identity (reverse (cdr results)) "\n")) ((equal result-type 'value) === modified file 'lisp/org/ob-ocaml.el' --- lisp/org/ob-ocaml.el 2011-08-18 20:41:06 +0000 +++ lisp/org/ob-ocaml.el 2011-11-15 17:37:37 +0000 @@ -29,7 +29,7 @@ ;; they can be run, but ocaml code can also be run through an ;; interactive interpreter. ;; -;; For now lets only allow evaluation using the ocaml interpreter. +;; For now let's only allow evaluation using the ocaml interpreter. ;;; Requirements: @@ -99,7 +99,7 @@ (lambda (pair) (format "let %s = %s;;" (car pair) (org-babel-ocaml-elisp-to-ocaml (cdr pair)))) (mapcar #'cdr (org-babel-get-header params :var)))) - + (defun org-babel-ocaml-elisp-to-ocaml (val) "Return a string of ocaml code which evaluates to VAL." (if (listp val) === modified file 'lisp/org/ob-sql.el' --- lisp/org/ob-sql.el 2011-08-18 20:41:06 +0000 +++ lisp/org/ob-sql.el 2011-11-15 17:37:37 +0000 @@ -32,7 +32,7 @@ ;; ;; Also SQL evaluation generally takes place inside of a database. ;; -;; For now lets just allow a generic ':cmdline' header argument. +;; For now let's just allow a generic ':cmdline' header argument. ;; ;; TODO: ;; @@ -40,7 +40,7 @@ ;; - add more useful header arguments (user, passwd, database, etc...) ;; - support for more engines (currently only supports mysql) ;; - what's a reasonable way to drop table data into SQL? -;; +;; ;;; Code: (require 'ob) === modified file 'lisp/org/org-agenda.el' --- lisp/org/org-agenda.el 2011-11-09 06:10:51 +0000 +++ lisp/org/org-agenda.el 2011-11-15 17:37:37 +0000 @@ -5059,7 +5059,7 @@ (/ (- tlend ts) 60)) face (or (plist-get pl :overlap-face) face))) ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap)))) - ;; There is a gap, lets see if we need to report it + ;; There is a gap, let's see if we need to report it (unless (org-agenda-check-clock-gap tlend ts gapok) (setq issue (format "Clocking gap: %d minutes" (/ (- ts tlend) 60)) === modified file 'lisp/org/org-clock.el' --- lisp/org/org-clock.el 2011-09-02 16:38:40 +0000 +++ lisp/org/org-clock.el 2011-11-15 17:37:37 +0000 @@ -1261,7 +1261,7 @@ (and (re-search-forward org-property-end-re nil t) (goto-char (match-beginning 0)))) (throw 'exit t)) - ;; Lets count the CLOCK lines + ;; Let's count the CLOCK lines (goto-char beg) (while (re-search-forward re end t) (setq first (or first (match-beginning 0)) @@ -2641,4 +2641,3 @@ ;;; org-clock.el ends here - === modified file 'lisp/org/org-remember.el' --- lisp/org/org-remember.el 2011-09-02 16:38:40 +0000 +++ lisp/org/org-remember.el 2011-11-15 17:37:37 +0000 @@ -1122,7 +1122,7 @@ (condition-case nil (require 'remember) (error - ;; Lets install our own micro version of remember + ;; Let's install our own micro version of remember (defvar remember-register ?R) (defvar remember-mode-hook nil) (defvar remember-handler-functions nil) @@ -1153,4 +1153,3 @@ ;;; org-remember.el ends here - === modified file 'lisp/org/org-table.el' --- lisp/org/org-table.el 2011-08-18 20:41:06 +0000 +++ lisp/org/org-table.el 2011-11-15 17:37:37 +0000 @@ -2204,7 +2204,7 @@ (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field)) (push (cons field v) org-table-local-parameters) (push (list field line col) org-table-named-field-locations)))) - ;; Analyse the line types + ;; Analyze the line types (goto-char beg) (setq org-table-current-begin-line (org-current-line) org-table-current-begin-pos (point) @@ -2432,7 +2432,7 @@ duration-output-format nil fmt (replace-match "" t t fmt))) (if (string-match "t" fmt) - (setq duration t + (setq duration t duration-output-format org-table-duration-custom-format numbers t fmt (replace-match "" t t fmt))) @@ -2500,7 +2500,7 @@ ;; Insert complex ranges (while (and (string-match org-table-range-regexp form) (> (length (match-string 0 form)) 1)) - (setq formrg (save-match-data + (setq formrg (save-match-data (org-table-get-range (match-string 0 form) nil n0))) (setq formrpl (save-match-data @@ -4723,4 +4723,3 @@ ;;; org-table.el ends here - === modified file 'lisp/outline.el' --- lisp/outline.el 2011-10-19 12:54:24 +0000 +++ lisp/outline.el 2011-11-15 17:37:37 +0000 @@ -144,10 +144,10 @@ :help "Promote headings higher up the tree")) (define-key map [headings move-subtree-down] '(menu-item "Move Subtree Down" outline-move-subtree-down - :help "Move the currrent subtree down past arg headlines of the same level")) + :help "Move the current subtree down past arg headlines of the same level")) (define-key map [headings move-subtree-up] '(menu-item "Move Subtree Up" outline-move-subtree-up - :help "Move the currrent subtree up past arg headlines of the same level")) + :help "Move the current subtree up past arg headlines of the same level")) (define-key map [headings copy] '(menu-item "Copy to Kill Ring" outline-headers-as-kill :enable mark-active @@ -642,12 +642,12 @@ ;; Vertical tree motion (defun outline-move-subtree-up (&optional arg) - "Move the currrent subtree up past ARG headlines of the same level." + "Move the current subtree up past ARG headlines of the same level." (interactive "p") (outline-move-subtree-down (- arg))) (defun outline-move-subtree-down (&optional arg) - "Move the currrent subtree down past ARG headlines of the same level." + "Move the current subtree down past ARG headlines of the same level." (interactive "p") (let ((movfunc (if (> arg 0) 'outline-get-next-sibling 'outline-get-last-sibling)) === modified file 'lisp/progmodes/cc-awk.el' --- lisp/progmodes/cc-awk.el 2011-11-15 00:54:19 +0000 +++ lisp/progmodes/cc-awk.el 2011-11-15 17:37:37 +0000 @@ -718,7 +718,7 @@ ;; This function does hidden buffer changes. (let ((/point (point))) (goto-char anchor) - ;; Analyse the line to find out what the / is. + ;; Analyze the line to find out what the / is. (if (if anchor-state-/div (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t)) (search-forward-regexp c-awk-div-sign-re (1+ /point) t)) @@ -847,7 +847,7 @@ ;; Awk regexps written with help from Peter Galbraith ;; . -;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work +;; Take GNU Emacs's 'words out of the following regexp-opts. They don't work ;; in XEmacs 21.4.4. acm 2002/9/19. (defconst awk-font-lock-keywords (eval-when-compile === modified file 'lisp/progmodes/cc-cmds.el' --- lisp/progmodes/cc-cmds.el 2011-11-14 20:23:26 +0000 +++ lisp/progmodes/cc-cmds.el 2011-11-15 17:37:37 +0000 @@ -1042,7 +1042,7 @@ (setcar (car elem) 'label)) (setq elem (cdr elem))) ;; some language elements can only be determined by checking - ;; the following line. Lets first look for ones that can be + ;; the following line. Let's first look for ones that can be ;; found when looking on the line with the colon (setq newlines (and c-auto-newline === modified file 'lisp/progmodes/cc-engine.el' --- lisp/progmodes/cc-engine.el 2011-11-15 07:55:13 +0000 +++ lisp/progmodes/cc-engine.el 2011-11-15 17:37:37 +0000 @@ -2302,7 +2302,7 @@ ;; `c-parse-state', or nil. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Defuns which analyse the buffer, yet don't change `c-state-cache'. +;; Defuns which analyze the buffer, yet don't change `c-state-cache'. (defun c-get-fallback-scan-pos (here) ;; Return a start position for building `c-state-cache' from ;; scratch. This will be at the top level, 2 defuns back. === modified file 'lisp/progmodes/dcl-mode.el' --- lisp/progmodes/dcl-mode.el 2011-04-22 18:44:26 +0000 +++ lisp/progmodes/dcl-mode.el 2011-11-15 17:37:37 +0000 @@ -512,7 +512,7 @@ dcl-block-begin-regexp dcl-block-end-regexp Regexps that match command lines that begin and end, respectively, - a block of commmand lines that will be given extra indentation. + a block of command lines that will be given extra indentation. Command lines between THEN-ELSE-ENDIF are always indented; these variables make it possible to define other places to indent. Set to nil to disable this feature. === modified file 'lisp/progmodes/gdb-mi.el' --- lisp/progmodes/gdb-mi.el 2011-11-14 23:59:56 +0000 +++ lisp/progmodes/gdb-mi.el 2011-11-15 17:37:37 +0000 @@ -2217,7 +2217,7 @@ (defun gdb-mapcar* (function &rest seqs) "Apply FUNCTION to each element of SEQS, and make a list of the results. If there are several SEQS, FUNCTION is called with that many -arguments, and mapping stops as sson as the shortest list runs +arguments, and mapping stops as soon as the shortest list runs out." (let ((shortest (apply #'min (mapcar #'length seqs)))) (mapcar (lambda (i) === modified file 'lisp/progmodes/sql.el' --- lisp/progmodes/sql.el 2011-11-14 23:59:56 +0000 +++ lisp/progmodes/sql.el 2011-11-15 17:37:37 +0000 @@ -1595,7 +1595,7 @@ "cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability" "cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr" "corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp" -"cube_table" "cume_dist" "currrent_date" "currrent_timestamp" "cv" +"cube_table" "cume_dist" "current_date" "current_timestamp" "cv" "dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml" "dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob" "existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set" === modified file 'lisp/progmodes/vhdl-mode.el' --- lisp/progmodes/vhdl-mode.el 2011-11-14 06:27:12 +0000 +++ lisp/progmodes/vhdl-mode.el 2011-11-15 17:37:37 +0000 @@ -2131,7 +2131,7 @@ (if (fboundp 'start-itimer) (start-itimer "vhdl-mode" function secs repeat t) ; (run-with-idle-timer secs repeat function))) - ;; explicitely activate timer (necessary when Emacs is already idle) + ;; explicitly activate timer (necessary when Emacs is already idle) (aset (run-with-idle-timer secs repeat function) 0 nil))) (defun vhdl-warning-when-idle (&rest args) === modified file 'lisp/simple.el' --- lisp/simple.el 2011-11-15 00:38:10 +0000 +++ lisp/simple.el 2011-11-15 17:37:37 +0000 @@ -4324,7 +4324,7 @@ (when (> rbot 0) (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t))) ;; If cursor just entered the bottom scroll margin, move forward, - ;; but also vscroll one line so redisplay wont recenter. + ;; but also vscroll one line so redisplay won't recenter. ((and (> vpos 0) (= py (min (- (window-text-height) scroll-margin 1) (1- vpos)))) === modified file 'lisp/textmodes/reftex-index.el' --- lisp/textmodes/reftex-index.el 2011-02-12 23:40:43 +0000 +++ lisp/textmodes/reftex-index.el 2011-11-15 17:37:37 +0000 @@ -663,7 +663,7 @@ (insert "\n"))) (defun reftex-get-restriction (arg docstruct) - ;; Interprete the prefix ARG and derive index restriction specs. + ;; Interpret the prefix ARG and derive index restriction specs. (let* ((beg (min (point) (or (condition-case nil (mark) (error nil)) (point-max)))) (end (max (point) (or (condition-case nil (mark) (error nil)) === modified file 'lisp/textmodes/reftex-ref.el' --- lisp/textmodes/reftex-ref.el 2011-01-25 04:08:28 +0000 +++ lisp/textmodes/reftex-ref.el 2011-11-15 17:37:37 +0000 @@ -206,7 +206,7 @@ (if naked "Naked Label: " "Label: ") default)) - ;; Lets make sure that this is a valid label + ;; Let's make sure that this is a valid label (cond ((string-match (concat "\\`\\(" (regexp-quote prefix) === modified file 'lisp/textmodes/reftex.el' --- lisp/textmodes/reftex.el 2011-11-14 23:59:56 +0000 +++ lisp/textmodes/reftex.el 2011-11-15 17:37:37 +0000 @@ -688,7 +688,7 @@ (TeX-master-file t) (error (buffer-file-name)))) ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode - ((boundp 'TeX-master) ; The variable is defined - lets use it. + ((boundp 'TeX-master) ; The variable is defined - let's use it. (cond ((eq TeX-master t) (buffer-file-name)) @@ -1612,7 +1612,7 @@ (defun reftex-find-file-externally (file type &optional master-dir) ;; Use external program to find FILE. ;; The program is taken from `reftex-external-file-finders'. - ;; Interprete relative path definitions starting from MASTER-DIR. + ;; Interpret relative path definitions starting from MASTER-DIR. (let ((default-directory (or master-dir default-directory)) (prg (cdr (assoc type reftex-external-file-finders))) out) @@ -2058,7 +2058,7 @@ (with-current-buffer buf (run-hooks 'reftex-initialize-temporary-buffers)))) - ;; Lets see if we got a license to kill :-| + ;; Let's see if we got a license to kill :-| (and mark-to-kill (add-to-list 'reftex-buffers-to-kill buf)) === modified file 'lisp/url/ChangeLog' --- lisp/url/ChangeLog 2011-11-14 16:09:13 +0000 +++ lisp/url/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,3 +1,7 @@ +2011-11-15 Juanma Barranquero + + * url-dav.el (url-dav-delete-file): Fix typo. + 2011-11-14 Lars Magne Ingebrigtsen * url-http.el (url-http-async-sentinel): If the server hangs up === modified file 'lisp/url/url-dav.el' --- lisp/url/url-dav.el 2011-11-15 07:55:13 +0000 +++ lisp/url/url-dav.el 2011-11-15 17:37:37 +0000 @@ -117,7 +117,7 @@ ;; We need to populate 'time' with ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ) - ;; Nobody else handles iso8601 correctly, lets do it ourselves. + ;; Nobody else handles iso8601 correctly, let's do it ourselves. (when (string-match date-re date-string re-start) (setq year (string-to-number (match-string 1 date-string)) month (string-to-number (match-string 2 date-string)) @@ -430,7 +430,7 @@ ;; Take care of the default value for depth... (setq depth (or depth 0)) - ;; Now lets translate it into something webdav can understand. + ;; Now let's translate it into something webdav can understand. (if (< depth 0) (setq depth "Infinity") (setq depth (int-to-string depth))) @@ -762,7 +762,7 @@ (setq status (plist-get (cdr result) 'DAV:status)) (if (not (url-dav-http-success-p status)) (signal 'file-error (list "Removing old name" - "Errror removing" + "Error removing" (car result) status)))) props)) nil) === modified file 'nt/preprep.c' --- nt/preprep.c 2011-03-25 15:39:59 +0000 +++ nt/preprep.c 2011-11-15 17:37:37 +0000 @@ -321,7 +321,7 @@ variables, because of dumping.] We could potentially generate the relocation data ourselves by making - two versions of temacs, one with an extra dummmy section before + two versions of temacs, one with an extra dummy section before EMHEAP to offset it, and then compare the dumped executables from both. That is a lot of work though, and it doesn't solve the problem of dumped pointers to static variables, which also can be relocated. @@ -825,4 +825,3 @@ } /* eof */ - === modified file 'oldXMenu/Internal.c' --- oldXMenu/Internal.c 2011-04-16 08:25:42 +0000 +++ oldXMenu/Internal.c 2011-11-15 17:37:37 +0000 @@ -968,7 +968,7 @@ /* * Using BOX mode. * Since most drawing routines with arbitrary width lines - * are slow compared to raster-ops lets use a raster-op to + * are slow compared to raster-ops let's use a raster-op to * draw the boxes. */ === modified file 'src/ChangeLog' --- src/ChangeLog 2011-11-14 21:00:24 +0000 +++ src/ChangeLog 2011-11-15 17:37:37 +0000 @@ -1,3 +1,7 @@ +2011-11-15 Juanma Barranquero + + * image.c (imagemagick_load_image): Fix typo. + 2011-11-14 Eli Zaretskii * xdisp.c (display_line): Move the call to === modified file 'src/ChangeLog.4' --- src/ChangeLog.4 2011-01-26 08:36:39 +0000 +++ src/ChangeLog.4 2011-11-15 17:37:37 +0000 @@ -811,7 +811,7 @@ 1994-04-28 Michael D. Ernst (mernst@monozygote.research.microsoft.com) - * fileio.c (inhibit-file-name-handers): Correct documentation. + * fileio.c (inhibit-file-name-handlers): Correct documentation. 1994-04-28 Karl Heuer (kwzh@hal.gnu.ai.mit.edu) @@ -1885,7 +1885,7 @@ 1994-03-22 Frederic Pierresteguy (fp@mole.gnu.ai.mit.edu) * widget.c (set_frame_size): Put #if 0 around a lot of useless code. - Compute explicitely the geometry of the toplevel widget. + Compute explicitly the geometry of the toplevel widget. Call XtSetValues not XtVaSetValues. 1994-03-22 Richard Stallman (rms@mole.gnu.ai.mit.edu) === modified file 'src/ChangeLog.9' --- src/ChangeLog.9 2011-11-11 23:34:43 +0000 +++ src/ChangeLog.9 2011-11-15 17:37:37 +0000 @@ -8409,7 +8409,7 @@ (encode_coding_iso2022): New local variable safe_chars. Check unsafe chars. (setup_coding_system): Delete the code to initialize - coding->safe_charses. + coding->safe_charsets. (intersection, find_safe_codings): New functions. (Ffind_coding_systems_region_internal): New function. (syms_of_coding): Defsubr it. Initialize Qsafe_chars, === modified file 'src/alloc.c' --- src/alloc.c 2011-11-14 23:59:56 +0000 +++ src/alloc.c 2011-11-15 17:37:37 +0000 @@ -1412,7 +1412,7 @@ #ifdef DOUG_LEA_MALLOC pthread_mutexattr_t attr; - /* GLIBC has a faster way to do this, but lets keep it portable. + /* GLIBC has a faster way to do this, but let's keep it portable. This is according to the Single UNIX Specification. */ pthread_mutexattr_init (&attr); pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE); === modified file 'src/image.c' --- src/image.c 2011-11-14 23:59:56 +0000 +++ src/image.c 2011-11-15 17:37:37 +0000 @@ -7552,7 +7552,7 @@ } /* The GIF library also defines DrawRectangle, but its never used in Emacs. - Therefore rename the function so it doesnt collide with ImageMagick. */ + Therefore rename the function so it doesn't collide with ImageMagick. */ #define DrawRectangle DrawRectangleGif #include @@ -7841,7 +7841,7 @@ } - /* Oddly, the below code doesnt seem to work:*/ + /* Oddly, the below code doesn't seem to work:*/ /* switch(ximg->bitmap_unit){ */ /* case 8: */ /* pixelwidth=CharPixel; */ @@ -7870,7 +7870,7 @@ /*&(img->pixmap));*/ ximg->data); #else - image_error ("You dont have MagickExportImagePixels, upgrade ImageMagick!", + image_error ("You don't have MagickExportImagePixels, upgrade ImageMagick!", Qnil, Qnil); #endif } === modified file 'src/regex.c' --- src/regex.c 2011-11-05 11:34:56 +0000 +++ src/regex.c 2011-11-15 17:37:37 +0000 @@ -637,7 +637,7 @@ on_failure_jump_nastyloop, /* A smart `on_failure_jump' used for greedy * and + operators. - It analyses the loop before which it is put and if the + It analyzes the loop before which it is put and if the loop does not require backtracking, it changes itself to `on_failure_keep_string_jump' and short-circuits the loop, else it just defaults to changing itself into `on_failure_jump'. === modified file 'test/cedet/semantic-utest.el' --- test/cedet/semantic-utest.el 2011-01-25 04:08:28 +0000 +++ test/cedet/semantic-utest.el 2011-11-15 17:37:37 +0000 @@ -787,7 +787,7 @@ (defun semantic-utest-kill-indicator ( killme insertme) "Kill the line with KILLME on it and insert INSERTME in its place." (goto-char (point-min)) -; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isnt generic enough for different lagnuages +; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages (re-search-forward killme) (beginning-of-line) (setq semantic-utest-last-kill-pos (point)) @@ -812,7 +812,7 @@ (defun semantic-utest-last-invalid (name-contents names-removed killme insertme) "Make the last fcn invalid." (semantic-utest-kill-indicator killme insertme) -; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesnt handle skipnames yet +; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesn't handle skipnames yet (semantic-utest-unkill-indicator);put back killed stuff ) ------------------------------------------------------------ revno: 106384 committer: Glenn Morris branch nick: trunk timestamp: Tue 2011-11-15 06:23:14 -0500 message: Auto-commit of loaddefs files. diff: === modified file 'lisp/mail/rmail.el' --- lisp/mail/rmail.el 2011-11-15 08:23:03 +0000 +++ lisp/mail/rmail.el 2011-11-15 11:23:14 +0000 @@ -4494,26 +4494,25 @@ ;;;*** -;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "5d992206e382290d07ad7d9a2bf250c9") +;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "a79f498959deded8fa9d88a7dca93bc0") ;;; Generated autoloads from rmailmm.el (autoload 'rmail-mime "rmailmm" "\ Toggle displaying of a MIME message. -The actualy behavior depends on the value of `rmail-enable-mime'. - -If `rmail-enable-mime' is t (default), this command change the -displaying of a MIME message between decoded presentation form -and raw data. - -With ARG, toggle the displaying of the current MIME entity only. +The actual behavior depends on the value of `rmail-enable-mime'. + +If `rmail-enable-mime' is non-nil (default), this command changes the +display of a MIME message between decoded presentation form and raw data. + +With ARG, toggle the display of the current MIME entity only. If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\" buffer holding a decoded copy of the message. Inline content-types are handled according to `rmail-mime-media-type-handlers-alist'. By default, this displays text and multipart messages, and offers to download -attachments as specfied by `rmail-mime-attachment-dirs-alist'. +attachments as specified by `rmail-mime-attachment-dirs-alist'. \(fn &optional ARG)" t nil) ------------------------------------------------------------ revno: 106383 committer: Glenn Morris branch nick: trunk timestamp: Tue 2011-11-15 00:23:03 -0800 message: Small rmail and rmailmm changes, many doc fixes. * lisp/mail/rmail.el (rmail-file-coding-system): It's only ever used in a boolean sense, so just make it a boolean, and fix the doc. (rmail-show-mime-function, rmail-mime-feature) (rmail-require-mime-maybe): Doc fixes. (rmail-show-message-1): Check rmail-show-mime-function is non-nil. * lisp/mail/rmailmm.el (rmail-show-mime): Doc fix. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-15 07:55:13 +0000 +++ lisp/ChangeLog 2011-11-15 08:23:03 +0000 @@ -1,3 +1,13 @@ +2011-11-15 Glenn Morris + + * mail/rmail.el (rmail-file-coding-system): It's only ever used + in a boolean sense, so just make it a boolean, and fix the doc. + (rmail-show-mime-function, rmail-mime-feature) + (rmail-require-mime-maybe): Doc fixes. + (rmail-show-message-1): Check rmail-show-mime-function is non-nil. + + * mail/rmailmm.el (rmail-show-mime): Doc fix. + 2011-11-15 Juanma Barranquero * epg.el (epg-start-decrypt, epg-start-verify, epg-start-sign) === modified file 'lisp/mail/rmail.el' --- lisp/mail/rmail.el 2011-11-14 21:00:24 +0000 +++ lisp/mail/rmail.el 2011-11-15 08:23:03 +0000 @@ -631,27 +631,20 @@ This is set to nil by default.") (defcustom rmail-enable-mime t - "If non-nil, RMAIL uses MIME features. -If the value is t, RMAIL automatically shows MIME decoded message. -If the value is neither t nor nil, RMAIL does not show MIME decoded message -until a user explicitly requires it. - -Even if the value is non-nil, you can't use MIME features -unless the feature specified by `rmail-mime-feature' is available." - :type '(choice (const :tag "on" t) - (const :tag "off" nil) - (other :tag "when asked" ask)) + "If non-nil, RMAIL automatically displays decoded MIME messages. +For this to work, the feature specified by `rmail-mime-feature' must +be available." + :type 'boolean :version "23.3" :group 'rmail) (defvar rmail-enable-mime-composing t "*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.") -;; FIXME unused. (defvar rmail-show-mime-function nil - "Function to show MIME decoded message of RMAIL file. + "Function of no argument called to show a decoded MIME message. This function is called when `rmail-enable-mime' is non-nil. -It is called with no argument.") +The package providing MIME support should set this.") ;;;###autoload (defvar rmail-insert-mime-forwarded-message-function nil @@ -687,7 +680,7 @@ expression, LIMIT is the position specifying the end of header.") (defvar rmail-mime-feature 'rmailmm - "Feature to require to load MIME support in Rmail. + "Feature to require for MIME support in Rmail. When starting Rmail, if `rmail-enable-mime' is non-nil, this feature is required with `require'. @@ -837,10 +830,10 @@ (display-warning 'rmail (format "Although MIME support is requested -by setting `rmail-enable-mime' to non-nil, the required feature +through `rmail-enable-mime' being non-nil, the required feature `%s' (the value of `rmail-mime-feature') is not available in the current session. -So, the MIME support is turned off for the moment." +So, MIME support is turned off for the moment." rmail-mime-feature) :warning) (setq rmail-enable-mime nil))))) @@ -2700,6 +2693,7 @@ ;; inspect this value to determine how to toggle. (set (make-local-variable 'rmail-header-style) header-style)) (if (and rmail-enable-mime + rmail-show-mime-function (re-search-forward "mime-version: 1.0" nil t)) (let ((rmail-buffer mbox-buf) (rmail-view-buffer view-buf)) === modified file 'lisp/mail/rmailmm.el' --- lisp/mail/rmailmm.el 2011-11-15 07:45:45 +0000 +++ lisp/mail/rmailmm.el 2011-11-15 08:23:03 +0000 @@ -1319,7 +1319,7 @@ message type disposition encoding)) (defun rmail-show-mime () - "Function to set in `rmail-show-mime-function' (which see)." + "Function to use for the value of `rmail-show-mime-function'." (let ((entity (rmail-mime-parse)) (rmail-mime-mbox-buffer rmail-buffer) (rmail-mime-view-buffer rmail-view-buffer) ------------------------------------------------------------ revno: 106382 committer: Paul Eggert branch nick: trunk timestamp: Mon 2011-11-14 23:55:13 -0800 message: Spelling fixes. diff: === modified file 'admin/charsets/mapfiles/README' --- admin/charsets/mapfiles/README 2011-01-25 04:08:28 +0000 +++ admin/charsets/mapfiles/README 2011-11-15 07:55:13 +0000 @@ -6,7 +6,7 @@ The charset map files directory -This directory contains two kinds of charse map files; verbatim copies +This directory contains two kinds of charset map files; verbatim copies (or their compressed versions) of files freely available in the Internet, and newly created files based on freely available information. === modified file 'admin/charsets/mapfiles/Uni2JIS' --- admin/charsets/mapfiles/Uni2JIS 2011-11-09 06:10:51 +0000 +++ admin/charsets/mapfiles/Uni2JIS 2011-11-15 07:55:13 +0000 @@ -26,7 +26,7 @@ # where XXXX is the code point. Including all these # names in this file increases its size substantially # and needlessly. The token "" is used for the -# name of these chracters. If necessary, it can be +# name of these characters. If necessary, it can be # expanded algorithmically by a parser or editor. # # The entries are in Unicode order. === modified file 'doc/lispref/internals.texi' --- doc/lispref/internals.texi 2011-01-25 04:08:28 +0000 +++ doc/lispref/internals.texi 2011-11-15 07:55:13 +0000 @@ -887,7 +887,7 @@ @item unchanged_modified @itemx overlay_unchanged_modified The values of @code{modiff} and @code{overlay_modiff}, respectively, -after the last compelete redisplay. If their current values match +after the last complete redisplay. If their current values match @code{modiff} or @code{overlay_modiff}, that means @code{beg_unchanged} and @code{end_unchanged} contain no useful information. === modified file 'doc/lispref/spellfile' --- doc/lispref/spellfile 2007-09-06 04:23:05 +0000 +++ doc/lispref/spellfile 2011-11-15 07:55:13 +0000 @@ -240,7 +240,7 @@ counterintuitive cr creatable -customie +customize deactivate deactivated deassigns === modified file 'doc/misc/dbus.texi' --- doc/misc/dbus.texi 2011-02-28 01:07:29 +0000 +++ doc/misc/dbus.texi 2011-11-15 07:55:13 +0000 @@ -553,7 +553,7 @@ @node Methods and Signal @section Applying the functionality. -Methods and signals are the communicatione means to D-Bus. The +Methods and signals are the communication means to D-Bus. The following functions return their specifications. @defun dbus-introspect-get-method-names bus service path interface === modified file 'doc/misc/ede.texi' --- doc/misc/ede.texi 2011-11-15 00:54:19 +0000 +++ doc/misc/ede.texi 2011-11-15 07:55:13 +0000 @@ -518,7 +518,7 @@ (defun MY-LOAD (dir) "Load a project of type `cpp-root' for the directory DIR. Return nil if there isn't one." - ;; Use your preferred constructin method here. + ;; Use your preferred construction method here. (ede-cpp-root-project "NAME" :file (expand-file-name "FILE" dir) :locate-fcn 'MYFCN) ) @@ -3370,7 +3370,7 @@ Default Value: @code{nil} Emacs regex matching auxiliary source code this target accepts. -Aux source are source code files needed for compilation, which are not comiled +Aux source are source code files needed for compilation, which are not compiled themselves. @refill === modified file 'doc/misc/emacs-mime.texi' --- doc/misc/emacs-mime.texi 2011-02-19 19:40:59 +0000 +++ doc/misc/emacs-mime.texi 2011-11-15 07:55:13 +0000 @@ -1048,7 +1048,7 @@ You can customize the value of the @code{mml-enable-flowed} variable to enable or disable the flowed encoding usage when newline -characteres are present in the buffer. +characters are present in the buffer. On decoding flowed text, lines with soft newline characters are filled together and wrapped after the column decided by === modified file 'doc/misc/gnus.texi' --- doc/misc/gnus.texi 2011-11-14 23:59:56 +0000 +++ doc/misc/gnus.texi 2011-11-15 07:55:13 +0000 @@ -7665,7 +7665,7 @@ This implies that it's not possible to have more than one article buffer in a group at a time. But sometimes you might want to display all the latest emails from your mother, your father, your aunt, your uncle and -your 17 cousins to coordinate the next christmas party. +your 17 cousins to coordinate the next Christmas party. That's where sticky articles come in handy. A sticky article buffer basically is a normal article buffer, but it won't be reused when you === modified file 'doc/misc/org.texi' --- doc/misc/org.texi 2011-11-14 23:59:56 +0000 +++ doc/misc/org.texi 2011-11-15 07:55:13 +0000 @@ -36,7 +36,7 @@ @c orgkey{key} A key item @c orgcmd{key,cmd} Key with command name -@c xorgcmd{key,cmmand} Key with command name as @itemx +@c xorgcmd{key,command} Key with command name as @itemx @c orgcmdnki{key,cmd} Like orgcmd, but do not index the key @c orgcmdtkc{text,key,cmd} Like orgcmd,special text instead of key @c orgcmdkkc{key1,key2,cmd} Two keys with one command name, use "or" @@ -9421,7 +9421,7 @@ broad range of other applications. @LaTeX{} export lets you use Org-mode and its structured editing functions to easily create @LaTeX{} files. DocBook export makes it possible to convert Org files to many other formats using -DocBook tools. OpenDocumentText export allows seamless colloboration across +DocBook tools. OpenDocumentText export allows seamless collaboration across organizational boundaries. For project management you can create gantt and resource charts by using TaskJuggler export. To incorporate entries with associated times like deadlines or appointments into a desktop calendar === modified file 'etc/ERC-NEWS' --- etc/ERC-NEWS 2011-01-25 04:08:28 +0000 +++ etc/ERC-NEWS 2011-11-15 07:55:13 +0000 @@ -852,7 +852,7 @@ ** If possible, re-use channel buffers when reconnecting to a server. ** Text in ERC buffers is now read-only by default. -To get the previous behavior, +To get the previous behavior, ** Changes and additions to modules @@ -1280,7 +1280,7 @@ the variable `erc-modules' and define once and for all which extension modules you want to use. This unfortunately may require you to change your current erc initialisation code a bit, if you - have some existing customsations. On the other hand, this change + have some existing customizations. On the other hand, this change makes the configuration of extension modules a lot easier for new users. In theory, you should be able to configure all aspects of ERC by using the customize interface, you should no longer really @@ -1342,4 +1342,3 @@ You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see . - === modified file 'etc/NEWS.1-17' --- etc/NEWS.1-17 2011-11-14 23:59:56 +0000 +++ etc/NEWS.1-17 2011-11-15 07:55:13 +0000 @@ -1090,7 +1090,7 @@ * Interface to MH mail system. mh-e is a front end for GNU emacs and the MH mail system. It -provides a friendly and convient interface to the MH commands. +provides a friendly and convenient interface to the MH commands. To read mail, invoke mh-rmail. This will inc new mail and display the scan listing on the screen. To see a summary of the mh-e commands, === modified file 'etc/NEWS.21' --- etc/NEWS.21 2011-01-26 08:36:39 +0000 +++ etc/NEWS.21 2011-11-15 07:55:13 +0000 @@ -850,7 +850,7 @@ *** If Emacs was invoked with the `-q' or `--no-init-file' options, it does not allow you to save customizations in your `~/.emacs' init file. This is because saving customizations from such a session would -wipe out all the other customizationss you might have on your init +wipe out all the other customizations you might have on your init file. ** If Emacs was invoked with the `-q' or `--no-init-file' options, it === modified file 'etc/NEXTSTEP' --- etc/NEXTSTEP 2011-01-25 04:08:28 +0000 +++ etc/NEXTSTEP 2011-11-15 07:55:13 +0000 @@ -38,7 +38,7 @@ Release History --------------- -1990-1992 1.0-3.0 (?) Michael Brouwer's socket/terminal communication +1990-1992 1.0-3.0 (?) Michael Brouwer's socket/terminal communication based version (GUI ran as a separate process.) 1993/10/25 3.0.1 Last (?) release of Brouwer version. Supports @@ -126,7 +126,7 @@ rendering for synthetic italic fonts. Further improved menu parsing. Use system highlight color. Added previous- and next-mark history - navigation commmands bound to M-p,M-n. + navigation commands bound to M-p,M-n. Miscellaneous bug fixes. 2005/08/04 8.0-rc5 All internal string handling changed to UTF-8. @@ -146,7 +146,7 @@ handling now added. Transparency (e.g., M-x set-background-color ARGB88FFFFFF) improved: only the background is made transparent. - Cursor drawing glitches fixed. Preferences + Cursor drawing glitches fixed. Preferences handling improved. Fixed some portability problems on Tiger and Puma. @@ -185,7 +185,7 @@ rendering, pasting, Color panel. Added function ns-set-background-alpha to work around inability to customize with numeric colors. - + 2006/12/24 9.0-rc1 Reworked font handling and text rendering to use Kenichi Handa's new font back-end system. Font sets are now supported and automatically === modified file 'leim/CXTERM-DIC/README' --- leim/CXTERM-DIC/README 2007-01-30 01:04:35 +0000 +++ leim/CXTERM-DIC/README 2011-11-15 07:55:13 +0000 @@ -1,5 +1,5 @@ All *.tit files in this directory are dictionary files to use with -the program cxterm. Their source and copyright status are categorised +the program cxterm. Their source and copyright status are categorized into these four groups. (1) QJ-b5.tit (renamed from .../cxterm/dict/big5/QJ.tit) === modified file 'leim/MISC-DIC/README' --- leim/MISC-DIC/README 2007-01-30 01:04:35 +0000 +++ leim/MISC-DIC/README 2011-11-15 07:55:13 +0000 @@ -1,5 +1,5 @@ The source and copyright status of dictionary files in this directory -are categorised into these three groups. +are categorized into these three groups. (1) cangjie-table.b5 cangjie-table.cns === modified file 'leim/quail/cyrillic.el' --- leim/quail/cyrillic.el 2011-02-28 01:07:29 +0000 +++ leim/quail/cyrillic.el 2011-11-15 07:55:13 +0000 @@ -42,7 +42,7 @@ ;; in typewriters for ages but it has been superseded on desktops by ;; a variation of this layout, implemented in M$ Windows software. ;; The Windows layout is greatly preferred because of the comma and -;; period being placed more conviniently and, of course, because of +;; period being placed more conveniently and, of course, because of ;; the popularity of Windows software. This layout is a common option ;; in X Windows and console layouts for GNU/Linux. [See ;; `russian-computer' below.] @@ -163,7 +163,7 @@ ;; commented out because quail-update-leim-list-file ignores ;; commented-out lines. (if nil - (quail-define-package + (quail-define-package "cyrillic-jcuken" "Russian" ",L69(B" nil ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding).")) === modified file 'leim/quail/ipa.el' --- leim/quail/ipa.el 2011-11-14 06:27:12 +0000 +++ leim/quail/ipa.el 2011-11-15 07:55:13 +0000 @@ -149,8 +149,8 @@ ("P" "ɸ") ;; Voiceless bilabial fricative U+0278 ("Q" "ɣ") ;; Voiced velar fricative U+0263 ("R" ["ʀ" ;; Alveolar trill U+0280 - "ɚ"]) ;; Rhotacised schwa U+025A - ("@" "ɚ") ;; Mid central rhotacised vowel U+025A + "ɚ"]) ;; Rhotacized schwa U+025A + ("@" "ɚ") ;; Mid central rhotacized vowel U+025A ("S" "ʃ") ;; Voiceless postalveolar fricative U+0283 ("tS" ["ʧ" ;; Voiceless postalveolar affricate U+02A7 "tʃ" ;; U+0074 U+0283 @@ -176,13 +176,13 @@ ("." "̣") ;; +Retroflex modifier U+0323 ("`" "ʼ") ;; +Ejective modifier U+02BC ("[" "̪") ;; +Dental modifier U+032A - (";" "ʲ") ;; +Palatalised modifier U+02B2 - ("" "̴") ;; +Pharyngealised modifier U+0334 + (";" "ʲ") ;; +Palatalized modifier U+02B2 + ("" "̴") ;; +Pharyngealized modifier U+0334 ("" "ʰ") ;; +Aspirated modifier U+02B0 ("" ["̥" ;; +Voiceless modifier U+0325 "˚"]) ;; +Unexploded modifier U+02DA - ("" "ʳ") ;; +Rhotacised modifier U+02B3 - ("" "ʷ") ;; +Labialised modifier U+02B7 + ("" "ʳ") ;; +Rhotacized modifier U+02B3 + ("" "ʷ") ;; +Labialized modifier U+02B7 ("" "ʱ") ;; +Murmured modififer U+02B1 ("b" "ʙ") ;; Bilabial trill U+0299 @@ -237,7 +237,7 @@ ("u\"" "ʉ") ;; High central rounded vowel U+0289 ("@" "ɘ") ;; Upper-mid central unrounded vowel U+0258 - ("R" "ɝ") ;; Upper-mid central rhotacised vowel U+025D + ("R" "ɝ") ;; Upper-mid central rhotacized vowel U+025D ("@." "ɵ") ;; Mid central rounded vowel U+0275 ("V\"" "ɜ") ;; Lower-mid central unrounded vowel U+025C @@ -416,7 +416,7 @@ (":\\" "ˑ") ;; Half-long U+02D1 ("@" "ə") ;; Schwa U+0259 ("@\\" "ɘ") ;; Close-mid central unrounded vowel U+0258 - ("@`" "ɚ") ;; Rhotacised schwa U+025A + ("@`" "ɚ") ;; Rhotacized schwa U+025A ("{" "æ") ;; Near-open front unrounded vowel U+00E6 ("}" "ʉ") ;; Close central rounded vowel U+0289 ("1" "ɨ") ;; Close central unrounded vowel U+0268 @@ -424,7 +424,7 @@ ("3" "ɜ") ;; Open-mid central unrounded vowel U+025C ("3\\" "ɞ") ;; Open-mid central rounded vowel U+025E ("4" "ɾ") ;; Alveolar flap U+027E - ("5" "ɫ") ;; Velarised alveolar lateral approximant U+026B + ("5" "ɫ") ;; Velarized alveolar lateral approximant U+026B ("6" "ɐ") ;; Near-open central vowel U+0250 ("7" "ɤ") ;; Close-mid back unrounded vowel U+0264 ("8" "ɵ") ;; Close-mid central rounded vowel U+0275 @@ -459,7 +459,7 @@ ("_=" "̩") ;; Syllabic U+0329 ("=" "̩") ;; Syllabic U+0329 ("_>" "ʼ") ;; Ejective U+02BC - ("_?\\" "ˤ") ;; Pharyngealised U+02E4 + ("_?\\" "ˤ") ;; Pharyngealized U+02E4 ("_\\" "ˆ") ;; Falling Tone U+02C6 ("_^" "̯") ;; Non-syllabic U+032F ("_}" "̚") ;; No audible release U+031A @@ -473,17 +473,17 @@ ;; _B_L omitted, no Unicode code point for "low rising tone." ("_c" "̜") ;; Less rounded U+031C ("_d" "̪") ;; Dental U+032A - ("_e" "̴") ;; Velarised or pharyngeal U+0334 + ("_e" "̴") ;; Velarized or pharyngeal U+0334 ("" "↙") ;; Global fall; SOUTH EAST ARROW; may be a bit smaller than ;; intended. ("_F" "̂") ;; Falling tone U+0302 - ("_G" "ˠ") ;; Velarised U+02E0 + ("_G" "ˠ") ;; Velarized U+02E0 ("_H" "́") ;; High tone U+0301 ;; "_H_T omitted, no Unicode code point for "high rising tone" ("_h" "ʰ") ;; Aspirated U+02B0 - ("_j" "ʲ") ;; Palatalised U+02B2 - ("'" "ʲ") ;; Palatalised U+02B2 + ("_j" "ʲ") ;; Palatalized U+02B2 + ("'" "ʲ") ;; Palatalized U+02B2 ("_k" "̰") ;; Creaky voice U+0330 ("_L" "̀") ;; Low tone U+0300 ("_l" "ˡ") ;; Lateral release U+02E1 @@ -501,9 +501,9 @@ ("_T" "̋") ;; Extra high tone U+030B ("_t" "̤") ;; Breathy voice U+0324 ("_v" "̬") ;; Voiced U+032C - ("_w" "ʷ") ;; Labialised U+02B7 + ("_w" "ʷ") ;; Labialized U+02B7 ("_X" "̆") ;; Extra-short U+0306 - ("_x" "̽")) ;; Mid-centralised U+033D + ("_x" "̽")) ;; Mid-centralized U+033D ;; Putting in place rules for the implosives like for the others above ;; breaks the "_" rules for b, d, g, G and J a little--you need === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-11-15 07:45:45 +0000 +++ lisp/ChangeLog 2011-11-15 07:55:13 +0000 @@ -3535,7 +3535,7 @@ Also clean up the code slightly. * progmodes/grep.el (rgrep): Don't bind `process-connection-type', - because that makes the colours go away. + because that makes the colors go away. * mail/sendmail.el (send-mail-function): Change the default to `sendmail-query-once'. === modified file 'lisp/allout-widgets.el' --- lisp/allout-widgets.el 2011-11-14 21:00:24 +0000 +++ lisp/allout-widgets.el 2011-11-15 07:55:13 +0000 @@ -1245,7 +1245,7 @@ (defun allout-range-overlaps (from to ranges) "Return a pair indicating overlap of FROM and TO subtree range in RANGES. -First element of result indicates whether candadate range FROM, TO +First element of result indicates whether candidate range FROM, TO overlapped any of the existing ranges. Second element of result is a new version of RANGES incorporating the === modified file 'lisp/calc/calc-units.el' --- lisp/calc/calc-units.el 2011-03-17 02:25:36 +0000 +++ lisp/calc/calc-units.el 2011-11-15 07:55:13 +0000 @@ -1598,7 +1598,7 @@ (or (math-lessp acoeff bcoeff) (math-equal acoeff bcoeff))) (calc-record-why "*Improper coefficients" nil) - (math-mul + (math-mul (if (equal aunit '(var dB var-dB)) (let ((coef (if power 10 20))) (math-mul coef @@ -1681,7 +1681,7 @@ (math-simplify (math-mul (math-add - coef + coef (math-mul (if power 10 20) (math-conditional-apply 'calcFunc-log10 number))) units))) @@ -1689,7 +1689,7 @@ (math-simplify (math-mul (math-add - coef + coef (math-div (math-conditional-apply 'calcFunc-ln number) (if power 2 1))) units)))) (calc-record-why "*Improper units" nil)))) @@ -1707,7 +1707,7 @@ (math-simplify (math-mul (math-sub - coef + coef (math-mul (if power 10 20) (math-conditional-apply 'calcFunc-log10 b))) units))) @@ -1715,7 +1715,7 @@ (math-simplify (math-mul (math-sub - coef + coef (math-div (math-conditional-apply 'calcFunc-ln b) (if power 2 1))) units))))))))) @@ -1762,17 +1762,17 @@ (coeff (math-simplify (math-div val units)))) (math-mul (if (equal lunit '(var dB var-dB)) - (math-mul + (math-mul ref - (math-conditional-pow + (math-conditional-pow 10 (math-div coeff (if power 10 20)))) - (math-mul + (math-mul ref (math-conditional-apply 'calcFunc-exp - (if power + (if power (math-mul 2 coeff) coeff)))) runits))))) @@ -1869,7 +1869,7 @@ (let* ((n (math-round num)) (diff (math-abs (math-sub num n)))) - (if (< (math-compare diff + (if (< (math-compare diff (math-div (math-read-expr calc-note-threshold) 100)) 0) n num))) @@ -1927,10 +1927,10 @@ (assoc (nth 1 note) math-notes) (integerp (nth 2 note)) (setq rnote note) - (or + (or (not cents) (Math-numberp (setq rcents - (math-simplify + (math-simplify (math-div cents '(var cents var-cents))))))) (list rnote rcents)) ((and ;; CENTS is a note, NOTE is cents. @@ -1938,10 +1938,10 @@ (assoc (nth 1 cents) math-notes) (integerp (nth 2 cents)) (setq rnote cents) - (or + (or (not note) (Math-numberp (setq rcents - (math-simplify + (math-simplify (math-div note '(var cents var-cents))))))) (list rnote rcents))))) @@ -1972,7 +1972,7 @@ "Return the scientific pitch notation corresponding to midi number MIDI." (let (midin cents) (if (math-integerp midi) - (setq midin midi + (setq midin midi cents nil) (setq midin (math-floor midi) cents (math-mul 100 (math-sub midi midin)))) @@ -1989,7 +1989,7 @@ (n (math-sub (car nr) 1)) (note (car (rassoc (cdr nr) math-notes)))) (if cents - (list '+ (list 'calcFunc-subscr note n) + (list '+ (list 'calcFunc-subscr note n) (list '* cents '(var cents var-cents))) (list 'calcFunc-subscr note n))))) @@ -2005,7 +2005,7 @@ 440 (math-pow 2 - (math-div + (math-div (math-sub midi 69) @@ -2018,7 +2018,7 @@ (defun calcFunc-spn (expr) "Return EXPR written as scientific pitch notation + cents." - ;; Get the coeffecient of Hz + ;; Get the coefficient of Hz (let (note) (cond ((setq note (math-freqp expr)) === modified file 'lisp/calendar/todo-mode.el' --- lisp/calendar/todo-mode.el 2011-01-25 04:08:28 +0000 +++ lisp/calendar/todo-mode.el 2011-11-15 07:55:13 +0000 @@ -31,7 +31,7 @@ ;; TODO is a major mode for EMACS which offers functionality to ;; treat most lines in one buffer as a list of items one has to ;; do. There are facilities to add new items, which are -;; categorised, to edit or even delete items from the buffer. +;; categorized, to edit or even delete items from the buffer. ;; The buffer contents are currently compatible with the diary, ;; so that the list of todo-items will show up in the FANCY diary ;; mode. @@ -536,7 +536,7 @@ (unless (zerop (buffer-size buf)) (and (null todo-categories) (null todo-cats) - (error "Error in %s: File is non-empty but contains no category" + (error "Error in %s: File is non-empty but contains no category" todo-file-do))) (unless cat (setq cat (read-from-minibuffer prompt))) (with-current-buffer buf === modified file 'lisp/cedet/data-debug.el' --- lisp/cedet/data-debug.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/data-debug.el 2011-11-15 07:55:13 +0000 @@ -955,7 +955,7 @@ (defun data-debug-line-expandable-p () "Return non-nil if the current line is expandable. -Lines that are not expandable are assumed to not be contractable." +Lines that are not expandable are assumed to not be contractible." (not (get-text-property (point) 'ddebug-noexpand))) (defun data-debug-expand-current-line () === modified file 'lisp/cedet/ede/custom.el' --- lisp/cedet/ede/custom.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/ede/custom.el 2011-11-15 07:55:13 +0000 @@ -40,7 +40,7 @@ ;;; Customization Commands ;; -;; These commands initialize custoization of EDE control objects. +;; These commands initialize customization of EDE control objects. ;;;###autoload (defun ede-customize-project () === modified file 'lisp/cedet/ede/generic.el' --- lisp/cedet/ede/generic.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/ede/generic.el 2011-11-15 07:55:13 +0000 @@ -46,7 +46,7 @@ ;; Since these projects are all so increadibly generic, a user will ;; need to configure some aspects of the project by hand. In order to ;; enable this without configuring the project objects directly (which -;; are auto-generated) a special ede-generic-confg object is defined to +;; are auto-generated) a special ede-generic-config object is defined to ;; hold the basics. Generic projects will identify and use these ;; config files. ;; @@ -105,7 +105,7 @@ :group (default build) :documentation "Command used for debugging this project.") - ;; C target customixations + ;; C target customizations (c-include-path :initarg :c-include-path :initform nil :type list === modified file 'lisp/cedet/ede/project-am.el' --- lisp/cedet/ede/project-am.el 2011-11-15 00:54:19 +0000 +++ lisp/cedet/ede/project-am.el 2011-11-15 07:55:13 +0000 @@ -428,7 +428,7 @@ If a given set of projects has already been loaded, then do nothing but return the project for the directory given. Optional ROOTPROJ is the root EDE project." - (let* ((ede-constructiong t) + (let* ((ede-constructing t) (amo (object-assoc (expand-file-name "Makefile.am" directory) 'file ede-projects))) (when (not amo) === modified file 'lisp/cedet/ede/speedbar.el' --- lisp/cedet/ede/speedbar.el 2011-01-26 08:36:39 +0000 +++ lisp/cedet/ede/speedbar.el 2011-11-15 07:55:13 +0000 @@ -297,7 +297,7 @@ (let ((file (ede-find-nearest-file-line))) (speedbar-find-file-in-frame file) (save-excursion (speedbar-stealthy-updates)) - ;; Reset the timer with a new timeout when cliking a file + ;; Reset the timer with a new timeout when clicking a file ;; in case the user was navigating directories, we can cancel ;; that other timer. ; (speedbar-set-timer speedbar-update-speed) === modified file 'lisp/cedet/semantic.el' --- lisp/cedet/semantic.el 2011-10-20 00:26:14 +0000 +++ lisp/cedet/semantic.el 2011-11-15 07:55:13 +0000 @@ -1015,7 +1015,7 @@ :visible semantic-mode :button (:toggle . global-semanticdb-minor-mode)))) -;; The `semantic-mode' command, in conjuction with the +;; The `semantic-mode' command, in conjunction with the ;; `semantic-default-submodes' variable, toggles Semantic's various ;; auxiliary minor modes. === modified file 'lisp/cedet/semantic/analyze.el' --- lisp/cedet/semantic/analyze.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/semantic/analyze.el 2011-11-15 07:55:13 +0000 @@ -106,7 +106,7 @@ (prefixclass :initarg :prefixclass :type list :documentation "Tag classes expected at this context. -These are clases for tags, such as 'function, or 'variable.") +These are classes for tags, such as 'function, or 'variable.") (prefixtypes :initarg :prefixtypes :type list :documentation "List of tags defining types for :prefix. === modified file 'lisp/cedet/semantic/analyze/complete.el' --- lisp/cedet/semantic/analyze/complete.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/semantic/analyze/complete.el 2011-11-15 07:55:13 +0000 @@ -188,7 +188,7 @@ ;; Reset c. (setq c nil) - ;; Loop over all the found matches, and catagorize them + ;; Loop over all the found matches, and categorize them ;; as being possible features. (while (and loopc do-typeconstraint) === modified file 'lisp/cedet/semantic/bovine/c.el' --- lisp/cedet/semantic/bovine/c.el 2011-11-14 20:23:26 +0000 +++ lisp/cedet/semantic/bovine/c.el 2011-11-15 07:55:13 +0000 @@ -1128,7 +1128,7 @@ (define-mode-local-override semantic-format-tag-canonical-name c-mode (tag &optional parent color) - "Create a cannonical name for TAG. + "Create a canonical name for TAG. PARENT specifies a parent class. COLOR indicates that the text should be type colorized. Enhances the base class to search for the entire parent === modified file 'lisp/cedet/semantic/bovine/el.el' --- lisp/cedet/semantic/bovine/el.el 2011-11-14 20:23:26 +0000 +++ lisp/cedet/semantic/bovine/el.el 2011-11-15 07:55:13 +0000 @@ -463,7 +463,7 @@ ;; Try an Emacs 22 fcn. This throws errors. (find-library-name (semantic-tag-name tag)) (error - (message "semantic: connot find source file %s" + (message "semantic: cannot find source file %s" (semantic-tag-name tag)))) ;; No handy function available. (Older Emacsen) (let* ((lib (locate-library (semantic-tag-name tag))) === modified file 'lisp/cedet/semantic/edit.el' --- lisp/cedet/semantic/edit.el 2011-11-11 10:04:08 +0000 +++ lisp/cedet/semantic/edit.el 2011-11-15 07:55:13 +0000 @@ -595,7 +595,7 @@ ;; Feb 06 - ;; IDed when the first cache-list tag is after ;; our change, meaning there is nothing before - ;; the chnge. + ;; the change. ((> (semantic-tag-start (car cache-list)) (semantic-overlay-end (car changes))) (setq last-cond "Beginning of buffer") === modified file 'lisp/cedet/semantic/find.el' --- lisp/cedet/semantic/find.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/semantic/find.el 2011-11-15 07:55:13 +0000 @@ -574,7 +574,7 @@ in the new list. If optional argument SEARCH-PARTS is non-nil, all sub-parts of tags -are searched. The overloadable function `semantic-tag-componenets' is +are searched. The overloadable function `semantic-tag-components' is used for the searching child lists. If SEARCH-PARTS is the symbol 'positiononly, then only children that have positional information are searched. === modified file 'lisp/cedet/semantic/lex.el' --- lisp/cedet/semantic/lex.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/semantic/lex.el 2011-11-15 07:55:13 +0000 @@ -1677,7 +1677,7 @@ ;;; Lexical Safety ;; ;; The semantic lexers, unlike other lexers, can throw errors on -;; unbalanced syntax. Since editing is all about changeging test +;; unbalanced syntax. Since editing is all about changing text ;; we need to provide a convenient way to protect against syntactic ;; inequalities. === modified file 'lisp/cedet/semantic/sb.el' --- lisp/cedet/semantic/sb.el 2011-01-25 04:08:28 +0000 +++ lisp/cedet/semantic/sb.el 2011-11-15 07:55:13 +0000 @@ -313,7 +313,7 @@ (save-excursion (speedbar-stealthy-updates)) (semantic-go-to-tag token parent) (switch-to-buffer (current-buffer)) - ;; Reset the timer with a new timeout when cliking a file + ;; Reset the timer with a new timeout when clicking a file ;; in case the user was navigating directories, we can cancel ;; that other timer. ;; (speedbar-set-timer dframe-update-speed) === modified file 'lisp/cedet/semantic/tag-ls.el' --- lisp/cedet/semantic/tag-ls.el 2011-11-14 21:00:24 +0000 +++ lisp/cedet/semantic/tag-ls.el 2011-11-15 07:55:13 +0000 @@ -221,7 +221,7 @@ (define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer) "Return the fully qualified name of TAG in the package hierarchy. -STREAM-OR-BUFFER can be anything convertable by `semantic-something-to-stream', +STREAM-OR-BUFFER can be anything convertible by `semantic-something-to-stream', but must be a toplevel semantic tag stream that contains TAG. A Package Hierarchy is defined in UML by the way classes and methods are organized on disk. Some language use this concept such that a === modified file 'lisp/cedet/srecode/compile.el' --- lisp/cedet/srecode/compile.el 2011-11-03 20:03:45 +0000 +++ lisp/cedet/srecode/compile.el 2011-11-15 07:55:13 +0000 @@ -66,7 +66,7 @@ The compiled template can contain lists of section dictionaries, or values that are expected to be passed down into different section macros. The template section dictionaries are merged in with -any incomming dictionaries values.") +any incoming dictionaries values.") (binding :initarg :binding :documentation "Preferred keybinding for this template in `srecode-minor-mode-map'.") @@ -552,7 +552,7 @@ (when (not hs) (setq hs (make-hash-table :test 'equal :size 20)) (puthash context hs contexthash)) - ;; Put into that contenxt's hash. + ;; Put into that context's hash. (puthash objname (car lp) hs) ) === modified file 'lisp/cedet/srecode/document.el' --- lisp/cedet/srecode/document.el 2011-11-14 23:59:56 +0000 +++ lisp/cedet/srecode/document.el 2011-11-15 07:55:13 +0000 @@ -167,7 +167,7 @@ ("str\\(ing\\)?" . "string") ("use?r" . "user") ("num\\(ber\\)?" . "number") - ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;commen sylable + ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common sylable ) "List of common English abbreviations or full words. These are nouns (as opposed to verbs) for use in creating expanded === modified file 'lisp/dired.el' --- lisp/dired.el 2011-11-14 23:59:56 +0000 +++ lisp/dired.el 2011-11-15 07:55:13 +0000 @@ -2533,7 +2533,7 @@ (if (and (> count 1) (called-interactively-p 'interactive)) (message "Buffer includes %d directories" count))) ;; We don't need to sort it because it is in buffer order per - ;; constructionem. Return new alist: + ;; construction. Return new alist: dired-subdir-alist)) (defun dired-alist-add-1 (dir new-marker) === modified file 'lisp/emacs-lisp/testcover.el' --- lisp/emacs-lisp/testcover.el 2011-07-14 01:09:00 +0000 +++ lisp/emacs-lisp/testcover.el 2011-11-15 07:55:13 +0000 @@ -509,7 +509,7 @@ (set-buffer-modified-p changed)))) (defun testcover-mark-all (&optional buffer) - "Mark all forms in BUFFER that did not get completley tested during + "Mark all forms in BUFFER that did not get completely tested during coverage tests. This function creates many overlays." (interactive "bMark forms in buffer: ") (if buffer === modified file 'lisp/eshell/esh-arg.el' --- lisp/eshell/esh-arg.el 2011-03-05 04:11:05 +0000 +++ lisp/eshell/esh-arg.el 2011-11-15 07:55:13 +0000 @@ -311,7 +311,7 @@ (char-to-string (char-before)))) ;; allow \\ to mean a literal "\" character followed by a ;; normal return, rather than a backslash followed by a line - ;; continuator (i.e., "\\ + \n" rather than "\ + \\n"). This + ;; continuation (i.e., "\\ + \n" rather than "\ + \\n"). This ;; is necessary because backslashes in Eshell are not special ;; unless they either precede something special, or precede a ;; backslash that precedes something special. (Mainly this is === modified file 'lisp/faces.el' --- lisp/faces.el 2011-10-18 06:17:05 +0000 +++ lisp/faces.el 2011-11-15 07:55:13 +0000 @@ -2457,7 +2457,7 @@ ;;; Manipulating font names. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; This is here for compatibilty with Emacs 20.2. For example, +;; This is here for compatibility with Emacs 20.2. For example, ;; international/fontset.el uses x-resolve-font-name. The following ;; functions are not used in the face implementation itself. === modified file 'lisp/follow.el' --- lisp/follow.el 2011-10-30 01:56:03 +0000 +++ lisp/follow.el 2011-11-15 07:55:13 +0000 @@ -118,7 +118,7 @@ ;; (setq pixel-vertical-clip-threshold 30) -;; The correct way to configurate Follow mode, or any other mode for +;; The correct way to configure Follow mode, or any other mode for ;; that matter, is to create one or more functions that do ;; whatever you would like to do. These functions are then added to ;; a hook. @@ -894,7 +894,7 @@ (save-restriction ;; Fix a mis-feature in `vertical-motion': ;; The start of the window is assumed to - ;; coinside with the start of a line. + ;; coincide with the start of a line. (narrow-to-region (point) (point-max)) (not (= height (vertical-motion height)))))) (list (point) buffer-end-p)))))) @@ -1064,7 +1064,7 @@ ;; it wasn't just moved here. (I.e. M-> shall not unconditionally place ;; the point in the selected window.) ;; -;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max'; +;; (Compatibility kludge: in Emacs `window-end' is equal to `point-max'; ;; in XEmacs, it is equal to `point-max + 1'. Should I really bother ;; checking `window-end' now when I check `end-of-buffer' explicitly?) === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2011-11-15 00:54:19 +0000 +++ lisp/gnus/ChangeLog 2011-11-15 07:55:13 +0000 @@ -2565,7 +2565,7 @@ * gnus-sum.el (gnus-user-date): Rename back from gnus-summary-user-date since user code refers to it. - * shr.el (shr-render-td): Store the actual background colour used. + * shr.el (shr-render-td): Store the actual background color used. * message.el (message-setup-1): Don't bind the constant -forbidden-properties. @@ -2653,9 +2653,9 @@ 2011-02-01 Lars Ingebrigtsen - * shr.el (shr-render-td): Only do colours at the final rendering. + * shr.el (shr-render-td): Only do colors at the final rendering. Should be slightly faster. - (shr-insert-table): Fix up TD background colours when doing the + (shr-insert-table): Fix up TD background colors when doing the vertical padding. * gnus-art.el (article-date-ut): Protect against articles with no Date @@ -2783,7 +2783,7 @@ 2011-01-27 Lars Ingebrigtsen - * shr.el (shr-put-color): Special-case background colours: Do put them + * shr.el (shr-put-color): Special-case background colors: Do put them at the blank parts at the front of the lines. * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an @@ -3788,7 +3788,7 @@ 2010-11-25 Lars Magne Ingebrigtsen - * shr-color.el (shr-color-visible): Don't bug out if the colour names + * shr-color.el (shr-color-visible): Don't bug out if the color names don't exist. 2010-11-25 Katsumi Yamaoka @@ -3860,7 +3860,7 @@ 2010-11-24 Lars Magne Ingebrigtsen - * shr.el (shr-color-check): Protect against non-existent colour names. + * shr.el (shr-color-check): Protect against non-existent color names. 2010-11-24 Julien Danjou @@ -3886,7 +3886,7 @@ 2010-11-23 Lars Magne Ingebrigtsen * shr.el (shr-insert-color-overlay): Split stuff like - "#444444 !important" to find the real colour. + "#444444 !important" to find the real color. (shr-tag-font): Resurrect shr-tag-font again, since it's needed to parse entries. @@ -5997,15 +5997,15 @@ highlight again, so that the highlight is correct. * gnus-picon.el (gnus-picon): Remove again. - (gnus-picon-create-glyph): Set the background XPM colour explicitly. + (gnus-picon-create-glyph): Set the background XPM color explicitly. * gnus-art.el (gnus-treatment-function-alist): Insert picons after - doing the header highlightling, so that the background colour of the + doing the header highlightling, so that the background color of the picon is correct. * gnus-picon.el (gnus-picon-xbm): Remove obsolete face. (gnus-picon): Ditto. - (gnus-picon): Reinstate. The background colour for picons is white. + (gnus-picon): Reinstate. The background color for picons is white. (gnus-picon-insert-glyph): Make the background white. * nnml.el (nnml-open-nov): Don't return dead buffers. @@ -7417,7 +7417,7 @@ UTF-8. This seems to fix problems with some German web feeds. * gnus.el (gnus-group-startup-message): Put the xpm version of the logo - at the top so that the proper colours are applied. + at the top so that the proper colors are applied. * gnus-art.el (gnus-article-view-part): Doc fix. === modified file 'lisp/gnus/gmm-utils.el' --- lisp/gnus/gmm-utils.el 2011-01-26 08:36:39 +0000 +++ lisp/gnus/gmm-utils.el 2011-11-15 07:55:13 +0000 @@ -140,7 +140,7 @@ ;; :mouse-2 command-on-mouse-2-press ;; :mouse-3 command-on-mouse-3-press) ;; typically a menu of related commands ;; -;; Combinations of mouse-[23] plus shift and/or controll might be overkill. +;; Combinations of mouse-[23] plus shift and/or control might be overkill. ;; ;; Then use (plist-get rs-command :none), (plist-get rs-command :shift) === modified file 'lisp/gnus/smime.el' --- lisp/gnus/smime.el 2011-11-09 06:10:51 +0000 +++ lisp/gnus/smime.el 2011-11-15 07:55:13 +0000 @@ -588,7 +588,7 @@ (filter &optional host attributes attrsonly withdn)) (defun smime-cert-by-ldap-1 (mail host) - "Get cetificate for MAIL from the ldap server at HOST." + "Get certificate for MAIL from the ldap server at HOST." (let ((ldapresult (funcall (if (featurep 'xemacs) === modified file 'lisp/ibuffer.el' --- lisp/ibuffer.el 2011-10-19 12:54:24 +0000 +++ lisp/ibuffer.el 2011-11-15 07:55:13 +0000 @@ -2504,7 +2504,7 @@ ** Information on Filtering: - You can filter your ibuffer view via different critera. Each Ibuffer + You can filter your ibuffer view via different criteria. Each Ibuffer buffer has its own stack of active filters. For example, suppose you are working on an Emacs Lisp project. You can create an Ibuffer buffer displays buffers in just `emacs-lisp' modes via === modified file 'lisp/ido.el' --- lisp/ido.el 2011-10-26 08:42:22 +0000 +++ lisp/ido.el 2011-11-15 07:55:13 +0000 @@ -258,7 +258,7 @@ ;; The highlighting of matching items is controlled via ido-use-faces. ;; The faces used are ido-first-match, ido-only-match and ;; ido-subdir. -;; Colouring of the matching item was suggested by +;; Coloring of the matching item was suggested by ;; Carsten Dominik (dominik@strw.leidenuniv.nl). ;; Replacement for read-buffer and read-file-name @@ -3152,7 +3152,7 @@ ;;; CREATE LIST OF ALL CURRENT FILES (defun ido-all-completions () - ;; Return unsorted list of all competions. + ;; Return unsorted list of all completions. (let ((ido-process-ignore-lists nil) (ido-directory-too-big nil)) (cond === modified file 'lisp/international/characters.el' --- lisp/international/characters.el 2011-08-18 15:53:29 +0000 +++ lisp/international/characters.el 2011-11-15 07:55:13 +0000 @@ -466,7 +466,7 @@ ;; Tai Viet (let ((deflist '(;; chars syntax category - ((?ꪀ. ?ꪯ) "w" ?0) ; cosonant + ((?ꪀ. ?ꪯ) "w" ?0) ; consonant ("ꪱꪵꪶ" "w" ?1) ; vowel base ((?ꪹ . ?ꪽ) "w" ?1) ; vowel base ("ꪰꪲꪳꪷꪸꪾ" "w" ?2) ; vowel upper === modified file 'lisp/iswitchb.el' --- lisp/iswitchb.el 2011-10-19 12:54:24 +0000 +++ lisp/iswitchb.el 2011-11-15 07:55:13 +0000 @@ -163,7 +163,7 @@ ;; Font-Lock ;; font-lock is used to highlight the first matching buffer. To -;; switch this off, set (setq iswitchb-use-faces nil). Colouring of +;; switch this off, set (setq iswitchb-use-faces nil). Coloring of ;; the matching buffer name was suggested by Carsten Dominik ;; (dominik@strw.leidenuniv.nl) === modified file 'lisp/mail/feedmail.el' --- lisp/mail/feedmail.el 2011-11-14 23:59:56 +0000 +++ lisp/mail/feedmail.el 2011-11-15 07:55:13 +0000 @@ -336,7 +336,7 @@ ;; for FQM files if you're a VM user ;; change buffer-substring calls to buffer-substring-no-properties for ;; speed-up (suggested by Howard Melman ) -;; feedmail-sendmail-f-doesnt-sell-me-out to contol "-f" in call to sendmail +;; feedmail-sendmail-f-doesnt-sell-me-out to control "-f" in call to sendmail ;; in feedmail-buffer-to-sendmail ;; better trapping of odd conditions during the running of the queue; ;; thanks to Yigal Hochberg for helping me test much of this by remote @@ -2410,7 +2410,7 @@ (a-re-dtcb "^\\(To\\|Cc\\|Bcc\\):") (a-re-dtc "^\\(To\\|Cc\\):") (a-re-db "^Bcc:") - ;; to get a temporary changable copy + ;; to get a temporary changeable copy (mail-header-separator mail-header-separator) ) (unwind-protect === modified file 'lisp/mh-e/mh-compat.el' --- lisp/mh-e/mh-compat.el 2011-07-17 20:45:52 +0000 +++ lisp/mh-e/mh-compat.el 2011-11-15 07:55:13 +0000 @@ -1,4 +1,4 @@ -;;; mh-compat.el --- make MH-E compatibile with various versions of Emacs +;;; mh-compat.el --- make MH-E compatible with various versions of Emacs ;; Copyright (C) 2006-2011 Free Software Foundation, Inc. === modified file 'lisp/mh-e/mh-search.el' --- lisp/mh-e/mh-search.el 2011-07-09 20:25:54 +0000 +++ lisp/mh-e/mh-search.el 2011-11-15 07:55:13 +0000 @@ -1791,7 +1791,7 @@ ;; To add support for your favorite checksum program add a clause to ;; the cond statement in mh-checksum-choose. This should set the ;; variable mh-checksum-cmd to the command line needed to run the -;; checsum program and should set mh-checksum-parser to a function +;; checksum program and should set mh-checksum-parser to a function ;; which returns a cons cell containing the message number and ;; checksum string. === modified file 'lisp/net/eudc-hotlist.el' --- lisp/net/eudc-hotlist.el 2011-05-23 17:57:17 +0000 +++ lisp/net/eudc-hotlist.el 2011-11-15 07:55:13 +0000 @@ -53,7 +53,7 @@ s -- Select the server at point. t -- Transpose the server at point and the previous one q -- Commit the changes and quit. - x -- Quit without commiting the changes." + x -- Quit without committing the changes." (interactive) (kill-all-local-variables) (setq major-mode 'eudc-hotlist-mode) === modified file 'lisp/net/secrets.el' --- lisp/net/secrets.el 2011-11-14 06:27:12 +0000 +++ lisp/net/secrets.el 2011-11-15 07:55:13 +0000 @@ -78,7 +78,7 @@ ;; (secrets-create-collection "my collection") ;; There exists a special collection called "session", which has the -;; lifetime of the corrresponding client session (aka Emacs' +;; lifetime of the corresponding client session (aka Emacs' ;; lifetime). It is created automatically when Emacs uses the Secret ;; Service interface, and it is deleted when Emacs is killed. ;; Therefore, it can be used to store and retrieve secret items === modified file 'lisp/nxml/nxml-outln.el' --- lisp/nxml/nxml-outln.el 2011-01-26 08:36:39 +0000 +++ lisp/nxml/nxml-outln.el 2011-11-15 07:55:13 +0000 @@ -60,7 +60,7 @@ ;; form. Single-line form is used when the outline state is hide-children ;; or there are no child sections; multi-line form is used otherwise. ;; There are two flavors of single-line form: with children and without. -;; The with-childen flavor is used when there are child sections. +;; The with-children flavor is used when there are child sections. ;; Single line with children looks like ;; <+section>A section title... ;; Single line without children looks like === modified file 'lisp/obsolete/pgg-gpg.el' --- lisp/obsolete/pgg-gpg.el 2011-02-16 08:39:19 +0000 +++ lisp/obsolete/pgg-gpg.el 2011-11-15 07:55:13 +0000 @@ -384,7 +384,7 @@ (pgg-process-when-success))) (defun pgg-gpg-update-agent () - "Try to connet to gpg-agent and send UPDATESTARTUPTTY." + "Try to connect to gpg-agent and send UPDATESTARTUPTTY." (if (fboundp 'make-network-process) (let* ((agent-info (getenv "GPG_AGENT_INFO")) (socket (and agent-info === modified file 'lisp/org/org.el' --- lisp/org/org.el 2011-11-14 23:59:56 +0000 +++ lisp/org/org.el 2011-11-15 07:55:13 +0000 @@ -2924,7 +2924,7 @@ (const :tag "List them, indented with leading dots" indented))) (defcustom org-tags-sort-function nil - "When set, tags are sorted using this function as a comparator." + "When set, tags are sorted using this comparison function." :group 'org-tags :type '(choice (const :tag "No sorting" nil) @@ -5549,7 +5549,7 @@ (defvar org-font-lock-set-keywords-hook nil "Functions that can manipulate `org-font-lock-extra-keywords'. -This is calles after `org-font-lock-extra-keywords' is defined, but before +This is called after `org-font-lock-extra-keywords' is defined, but before it is installed to be used by font lock. This can be useful if something needs to be inserted at a specific position in the font-lock sequence.") === modified file 'lisp/progmodes/cc-engine.el' --- lisp/progmodes/cc-engine.el 2011-11-15 00:54:19 +0000 +++ lisp/progmodes/cc-engine.el 2011-11-15 07:55:13 +0000 @@ -2331,7 +2331,7 @@ ;; ;; If there aren't enough opening paren/brace/brackets, return the position ;; of the outermost one found, or HERE- if there are none. If there are no - ;; closeing p/b/bs between HERE+ and TOP, return HERE-. HERE-/+ and TOP + ;; closing p/b/bs between HERE+ and TOP, return HERE-. HERE-/+ and TOP ;; must not be inside literals. Only the accessible portion of the buffer ;; will be scanned. === modified file 'lisp/progmodes/cc-fonts.el' --- lisp/progmodes/cc-fonts.el 2011-11-13 07:48:23 +0000 +++ lisp/progmodes/cc-fonts.el 2011-11-15 07:55:13 +0000 @@ -1103,7 +1103,7 @@ (<= (point) limit)) ;; Search syntactically to the end of the declarator (";", - ;; ",", a closen paren, eob etc) or to the beginning of an + ;; ",", a closing paren, eob etc) or to the beginning of an ;; initializer or function prototype ("=" or "\\s\("). ;; Note that the open paren will match array specs in ;; square brackets, and we treat them as initializers too. === modified file 'lisp/progmodes/grep.el' --- lisp/progmodes/grep.el 2011-10-01 20:32:01 +0000 +++ lisp/progmodes/grep.el 2011-11-15 07:55:13 +0000 @@ -339,7 +339,7 @@ "The most recent grep buffer. A grep buffer becomes most recent when you select Grep mode in it. Notice that using \\[next-error] or \\[compile-goto-error] modifies -`complation-last-buffer' rather than `grep-last-buffer'.") +`compilation-last-buffer' rather than `grep-last-buffer'.") ;;;###autoload (defconst grep-regexp-alist === modified file 'lisp/progmodes/idlw-shell.el' --- lisp/progmodes/idlw-shell.el 2011-11-11 23:17:16 +0000 +++ lisp/progmodes/idlw-shell.el 2011-11-15 07:55:13 +0000 @@ -925,7 +925,7 @@ \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the mouse, help, \\[idlwave-shell-help-expression] or \\[idlwave-shell-mouse-help] with the mouse, or with a - configureable set of custom examine commands using + configurable set of custom examine commands using \\[idlwave-shell-examine-select]. The mouse examine commands can also work by click and drag, to select an expression for examination. === modified file 'lisp/progmodes/idlwave.el' --- lisp/progmodes/idlwave.el 2011-11-14 20:23:26 +0000 +++ lisp/progmodes/idlwave.el 2011-11-15 07:55:13 +0000 @@ -605,7 +605,7 @@ indicate the maximum number of classes to display. On XEmacs, a full list of classes will also be placed into a `help-echo' -property on the competion items, so that the list of classes for the current +property on the completion items, so that the list of classes for the current item is displayed in the echo area. If the value of this variable is a negative integer, the `help-echo' property will be suppressed." :group 'idlwave-completion === modified file 'lisp/progmodes/js.el' --- lisp/progmodes/js.el 2011-08-12 15:32:39 +0000 +++ lisp/progmodes/js.el 2011-11-15 07:55:13 +0000 @@ -1295,7 +1295,7 @@ ;; Like (up-list -1), but only considers lists that end nearby" (defun js--up-nearby-list () (save-restriction - ;; Look at a very small region so our compuation time doesn't + ;; Look at a very small region so our computation time doesn't ;; explode in pathological cases. (narrow-to-region (max (point-min) (- (point) 500)) (point)) (up-list -1))) === modified file 'lisp/progmodes/mixal-mode.el' --- lisp/progmodes/mixal-mode.el 2011-06-15 14:07:48 +0000 +++ lisp/progmodes/mixal-mode.el 2011-11-15 07:55:13 +0000 @@ -1058,7 +1058,7 @@ (list (let* ((completion-ignore-case t) ;; we already have a list, but it is not in the right format - ;; transform it to a valid table so completition can use it + ;; transform it to a valid table so completion can use it (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil)) mixal-operation-codes-alist)) ;; prompt is different depending on we are close to a valid op-code === modified file 'lisp/progmodes/prolog.el' --- lisp/progmodes/prolog.el 2011-11-14 23:59:56 +0000 +++ lisp/progmodes/prolog.el 2011-11-15 07:55:13 +0000 @@ -116,7 +116,7 @@ ;; Version 1.22: ;; o Allowed both 'swipl' and 'pl' as names for the SWI Prolog ;; interpreter. -;; o Atoms that start a line are not blindly coloured as +;; o Atoms that start a line are not blindly colored as ;; predicates. Instead we check that they are followed by ( or ;; :- first. Patch suggested by Guy Wiener. ;; Version 1.21: === modified file 'lisp/progmodes/verilog-mode.el' --- lisp/progmodes/verilog-mode.el 2011-11-15 00:54:19 +0000 +++ lisp/progmodes/verilog-mode.el 2011-11-15 07:55:13 +0000 @@ -1847,7 +1847,7 @@ )) (defconst verilog-auto-end-comment-lines-re - ;; Matches to names in this list cause auto-end-commentation + ;; Matches to names in this list cause auto-end-commenting (concat "\\(" verilog-directive-re "\\)\\|\\(" (eval-when-compile === modified file 'lisp/speedbar.el' --- lisp/speedbar.el 2011-11-14 06:27:12 +0000 +++ lisp/speedbar.el 2011-11-15 07:55:13 +0000 @@ -632,7 +632,7 @@ (setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist)))) (setq extlist (cdr extlist))) ;; concat all the sub-exressions together, making sure all types - ;; of parts exist during concatination. + ;; of parts exist during concatenation. (concat "\\(" (if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "") (if (and regex1 regex2) "\\|" "") @@ -2219,7 +2219,7 @@ ;; Go through all our bins Stick singles into our ;; junk-list, everything else as sublsts in work-list. ;; If two neighboring lists are both small, make a grouped - ;; group combinding those two sub-lists. + ;; group combining those two sub-lists. (setq diff-idx 0) (while (> 256 diff-idx) ;; The bins contents are currently in forward order. @@ -3327,7 +3327,7 @@ (speedbar-find-file-in-frame (concat cdd text)) (speedbar-stealthy-updates) (run-hooks 'speedbar-visiting-file-hook) - ;; Reset the timer with a new timeout when cliking a file + ;; Reset the timer with a new timeout when clicking a file ;; in case the user was navigating directories, we can cancel ;; that other timer. (speedbar-set-timer dframe-update-speed)) @@ -3447,7 +3447,7 @@ (select-frame f)) (speedbar-find-file-in-frame file) (save-excursion (speedbar-stealthy-updates)) - ;; Reset the timer with a new timeout when cliking a file + ;; Reset the timer with a new timeout when clicking a file ;; in case the user was navigating directories, we can cancel ;; that other timer. (speedbar-set-timer dframe-update-speed) === modified file 'lisp/term/internal.el' --- lisp/term/internal.el 2011-01-26 08:36:39 +0000 +++ lisp/term/internal.el 2011-11-15 07:55:13 +0000 @@ -68,7 +68,7 @@ ;; MULE charset, Emacs can display a single MULE charset with the ;; glyphs of the current codepage. When Emacs starts on DOS, it ;; automatically sets its default coding systems for file I/O and -;; terminal output according to the currend DOS codepage, given by +;; terminal output according to the current DOS codepage, given by ;; the `dos-codepage' variable. ;; ;; This leaves us with the problem of displaying character sets === modified file 'lisp/textmodes/flyspell.el' --- lisp/textmodes/flyspell.el 2011-10-29 04:37:29 +0000 +++ lisp/textmodes/flyspell.el 2011-11-15 07:55:13 +0000 @@ -1446,7 +1446,7 @@ ;; is used, string is a TeX command ;; (char before beginning of word is ;; backslash) and none of the previous - ;; contitions match + ;; conditions match. (and (not ispell-really-aspell) (save-excursion (goto-char (- (nth 1 found-list) 1)) === modified file 'lisp/textmodes/rst.el' --- lisp/textmodes/rst.el 2011-11-14 23:59:56 +0000 +++ lisp/textmodes/rst.el 2011-11-15 07:55:13 +0000 @@ -2323,7 +2323,7 @@ (indent-rigidly mbeg mend - ;; Find the next tab after the leftmost columnt. + ;; Find the next tab after the leftmost column. (let ((tab (funcall find-next-fun tabs leftmostcol))) (if tab === modified file 'lisp/textmodes/table.el' --- lisp/textmodes/table.el 2011-01-25 04:08:28 +0000 +++ lisp/textmodes/table.el 2011-11-15 07:55:13 +0000 @@ -1482,7 +1482,7 @@ (cons (cons command func-symbol) table-command-remap-alist)))) '(center-line - conter-region + center-region center-paragraph fill-paragraph)) === modified file 'lisp/textmodes/tex-mode.el' --- lisp/textmodes/tex-mode.el 2011-10-20 00:26:14 +0000 +++ lisp/textmodes/tex-mode.el 2011-11-15 07:55:13 +0000 @@ -1871,7 +1871,7 @@ tex-old-error-file-name 2 nil 1 1 (2 compilation-warning-face)) ;; Included files get output as ( ...). - ;; FIXME: there tend to be a crapload of them at the beginning of the + ;; FIXME: there tend to be a boatload of them at the beginning of the ;; output which aren't that interesting. Maybe we should filter out ;; all the file name that start with /usr/share? ;; ("(\\.?/\\([^() \n]+\\)" 1 nil nil 0) === modified file 'lisp/thumbs.el' --- lisp/thumbs.el 2011-05-23 17:57:17 +0000 +++ lisp/thumbs.el 2011-11-15 07:55:13 +0000 @@ -26,7 +26,7 @@ ;; This package create two new modes: thumbs-mode and thumbs-view-image-mode. ;; It is used for basic browsing and viewing of images from within Emacs. ;; Minimal image manipulation functions are also available via external -;; programs. If you want to do more complex tasks like categorise and tag +;; programs. If you want to do more complex tasks like categorize and tag ;; your images, use image-dired.el ;; ;; The 'convert' program from 'ImageMagick' === modified file 'lisp/url/url-dav.el' --- lisp/url/url-dav.el 2011-01-26 08:36:39 +0000 +++ lisp/url/url-dav.el 2011-11-15 07:55:13 +0000 @@ -909,7 +909,7 @@ ;; Only one file and FILE matches it exactly... t) (t - ;; Need to figure out the longest string that they have in commmon + ;; Need to figure out the longest string that they have in common (setq matches (sort matches (lambda (a b) (> (length a) (length b))))) (let ((n (length file)) (searching t) === modified file 'lisp/url/url-http.el' --- lisp/url/url-http.el 2011-11-14 16:09:13 +0000 +++ lisp/url/url-http.el 2011-11-15 07:55:13 +0000 @@ -702,7 +702,7 @@ (not-acceptable ; 406 ;; The resource identified by the request is only capable of ;; generating response entities which have content - ;; characteristics nota cceptable according to the accept + ;; characteristics not acceptable according to the accept ;; headers sent in the request. (setq success t)) (proxy-authentication-required ; 407 @@ -1092,7 +1092,7 @@ (url-http-activate-callback))) ((string= "CONNECT" url-http-method) ;; A CONNECT request is finished, but we cannot stick this - ;; back on the free connectin list + ;; back on the free connection list (url-http-debug "CONNECT request must have headers only.") (when (url-http-parse-headers) (url-http-activate-callback))) === modified file 'lisp/url/url.el' --- lisp/url/url.el 2011-01-25 04:08:28 +0000 +++ lisp/url/url.el 2011-11-15 07:55:13 +0000 @@ -252,7 +252,7 @@ ;; interrupt it before it got a chance to handle process input. ;; `sleep-for' was tried but it lead to other forms of ;; hanging. --Stef - (unless (or (with-local-quit + (unless (or (with-local-quit (accept-process-output proc)) (null proc)) ;; accept-process-output returned nil, maybe because the process @@ -290,7 +290,7 @@ ;; These requires could advantageously be moved to url-mm-callback or ;; turned into autoloads, but I suspect that it would introduce some bugs ;; because loading those files from a process sentinel or filter may - ;; result in some undesirable carner cases. + ;; result in some undesirable corner cases. (require 'mm-decode) (require 'mm-view) (url-retrieve url 'url-mm-callback nil)) === modified file 'lisp/vc/ediff-ptch.el' --- lisp/vc/ediff-ptch.el 2011-02-12 23:40:43 +0000 +++ lisp/vc/ediff-ptch.el 2011-11-15 07:55:13 +0000 @@ -635,7 +635,7 @@ ;; Traditional patch has weird return codes. ;; GNU and Posix return 1 if some hanks failed and 2 in case of trouble. ;; 0 is a good code in all cases. -;; We'll do the concervative thing. +;; We'll do the conservative thing. (defun ediff-patch-return-code-ok (code) (eq code 0)) ;;; (if (eq (ediff-test-patch-utility) 'traditional) === modified file 'lisp/vc/vc-hooks.el' --- lisp/vc/vc-hooks.el 2011-10-23 03:38:23 +0000 +++ lisp/vc/vc-hooks.el 2011-11-15 07:55:13 +0000 @@ -72,7 +72,7 @@ :group 'vc) ;; Note: we don't actually have a darcs back end yet. -;; Also, Meta-CVS (corresponsding to MCVS) is unsupported. +;; Also, Meta-CVS (corresponding to MCVS) is unsupported. (defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS" ".svn" ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch}")) @@ -456,8 +456,8 @@ 'edited The working file has been edited by the user. If locking is used for the file, this state means that the current version is locked by the calling user. - This status should *not* be reported for files - which have a changed mtime but the same content + This status should *not* be reported for files + which have a changed mtime but the same content as the repo copy. USER The current version of the working file is locked by === modified file 'lisp/vc/vc-svn.el' --- lisp/vc/vc-svn.el 2011-11-10 02:36:48 +0000 +++ lisp/vc/vc-svn.el 2011-11-15 07:55:13 +0000 @@ -706,7 +706,7 @@ (vc-svn-command buf 'async file "annotate" (if rev (concat "-r" rev)))) (defun vc-svn-annotate-time-of-rev (rev) - ;; Arbitrarily assume 10 commmits per day. + ;; Arbitrarily assume 10 commits per day. (/ (string-to-number rev) 10.0)) (defvar vc-annotate-parent-rev) === modified file 'lisp/whitespace.el' --- lisp/whitespace.el 2011-11-14 23:59:56 +0000 +++ lisp/whitespace.el 2011-11-15 07:55:13 +0000 @@ -525,7 +525,7 @@ One reason for not visualize spaces via faces (if `face' is not included in `whitespace-style') is to use exclusively for -cleanning up a buffer. See `whitespace-cleanup' and +cleaning up a buffer. See `whitespace-cleanup' and `whitespace-cleanup-region' for documentation. See also `whitespace-display-mappings' for documentation." === modified file 'lisp/wid-edit.el' --- lisp/wid-edit.el 2011-06-20 16:02:31 +0000 +++ lisp/wid-edit.el 2011-11-15 07:55:13 +0000 @@ -2363,7 +2363,7 @@ result)) (defun widget-checklist-validate (widget) - ;; Ticked chilren must be valid. + ;; Ticked children must be valid. (let ((children (widget-get widget :children)) child button found) (while (and children (not found)) === modified file 'lisp/x-dnd.el' --- lisp/x-dnd.el 2011-06-20 20:49:12 +0000 +++ lisp/x-dnd.el 2011-11-15 07:55:13 +0000 @@ -410,7 +410,7 @@ "Return the x/y coordinates to be sent in a XDndStatus message. Coordinates are required to be absolute. FRAME is the frame and W is the window where the drop happened. -If W is a window, return its absolute corrdinates, +If W is a window, return its absolute coordinates, otherwise return the frame coordinates." (let* ((frame-left (frame-parameter frame 'left)) ;; If the frame is outside the display, frame-left looks like @@ -444,7 +444,7 @@ (if (consp flags) (logand (cdr flags) 1) (logand flags 1))) - + (defun x-dnd-handle-xdnd (event frame window message _format data) "Receive one XDND event (client message) and send the appropriate reply. EVENT is the client message. FRAME is where the mouse is now. === modified file 'src/ChangeLog.7' --- src/ChangeLog.7 2011-11-14 21:00:24 +0000 +++ src/ChangeLog.7 2011-11-15 07:55:13 +0000 @@ -5943,7 +5943,7 @@ Vauto_file_coding_system. (syms_of_fileio): Adjusted for the above change. Doc change. (Finsert_file_contents): The argument for Vset_auto_coding is a - concatination of the heading 1K-byte and the tailing 3K-byte. + concatenation of the heading 1K-byte and the tailing 3K-byte. * cmds.c (internal_self_insert): Only set TARGET_CLM when C2 is tab. When multibyte characters are disabled, === modified file 'src/buffer.c' --- src/buffer.c 2011-10-07 13:08:47 +0000 +++ src/buffer.c 2011-11-15 07:55:13 +0000 @@ -4431,7 +4431,7 @@ is currently mapped. Used to prevent overwriting an existing memory mapping. - Default is to conservativly assume the address range is occupied by + Default is to conservatively assume the address range is occupied by something else. This can be overridden by system configuration files if system-specific means to determine this exists. */ === modified file 'src/character.c' --- src/character.c 2011-11-14 20:23:26 +0000 +++ src/character.c 2011-11-15 07:55:13 +0000 @@ -588,7 +588,7 @@ } /* Arrange unibyte text at STR of NBYTES bytes as a multibyte text. - It actually converts only such 8-bit characters that don't contruct + It actually converts only such 8-bit characters that don't construct a multibyte sequence to multibyte forms of Latin-1 characters. If NCHARS is nonzero, set *NCHARS to the number of characters in the text. It is assured that we can use LEN bytes at STR as a work === modified file 'src/composite.h' --- src/composite.h 2011-08-05 02:15:35 +0000 +++ src/composite.h 2011-11-15 07:55:13 +0000 @@ -41,7 +41,7 @@ COMPOSITION_NO }; -/* Maximum number of compoments a single composition can have. */ +/* Maximum number of components a single composition can have. */ #define MAX_COMPOSITION_COMPONENTS 16 /* These macros access information about a composition that === modified file 'src/font.h' --- src/font.h 2011-06-20 05:51:47 +0000 +++ src/font.h 2011-11-15 07:55:13 +0000 @@ -599,7 +599,7 @@ /* Optional. Store bitmap data for glyph-code CODE of FONT in BITMAP. It is - intended that this method is callled from the other font-driver + intended that this method is called from the other font-driver for actual drawing. */ int (*get_bitmap) (struct font *font, unsigned code, struct font_bitmap *bitmap, === modified file 'src/fontset.c' --- src/fontset.c 2011-11-14 21:00:24 +0000 +++ src/fontset.c 2011-11-15 07:55:13 +0000 @@ -1088,7 +1088,7 @@ nescs++; } - /* If PATTERN is not full XLFD we conert "*" to ".*". Otherwise + /* If PATTERN is not full XLFD we convert "*" to ".*". Otherwise we convert "*" to "[^-]*" which is much faster in regular expression matching. */ if (ndashes < 14) === modified file 'src/frame.h' --- src/frame.h 2011-10-29 15:50:30 +0000 +++ src/frame.h 2011-11-15 07:55:13 +0000 @@ -371,7 +371,7 @@ if greater than 1, then the frame is obscured - we still consider it to be "visible" as seen from lisp, but we don't bother updating it. We must take care to garbage the frame when it - ceaces to be obscured though. + ceases to be obscured though. iconified is nonzero if the frame is currently iconified. === modified file 'src/gtkutil.c' --- src/gtkutil.c 2011-11-04 18:18:05 +0000 +++ src/gtkutil.c 2011-11-15 07:55:13 +0000 @@ -891,7 +891,7 @@ } } -/* Resize the outer window of frame F after chainging the height. +/* Resize the outer window of frame F after changing the height. COLUMNS/ROWS is the size the edit area shall have after the resize. */ void === modified file 'src/indent.h' --- src/indent.h 2011-01-25 04:08:28 +0000 +++ src/indent.h 2011-11-15 07:55:13 +0000 @@ -19,7 +19,7 @@ /* We introduce new member `tab_offset'. We need it because of the existence of wide-column characters. There is a case that the line-break occurs at a wide-column character and the number of - colums of the line gets less than width. + columns of the line gets less than width. Example (where W_ stands for a wide-column character): ---------- @@ -73,5 +73,3 @@ /* Recompute BUF's width table, using the display table DISPTAB. */ void recompute_width_table (struct buffer *buf, struct Lisp_Char_Table *disptab); - - === modified file 'src/nsterm.m' --- src/nsterm.m 2011-11-14 23:59:56 +0000 +++ src/nsterm.m 2011-11-15 07:55:13 +0000 @@ -4503,7 +4503,7 @@ //ns_app_active=YES; ns_update_auto_hide_menu_bar (); - // No constrining takes place when the application is not active. + // No constraining takes place when the application is not active. ns_constrain_all_frames (); } - (void)applicationDidResignActive: (NSNotification *)notification === modified file 'src/process.c' --- src/process.c 2011-11-07 01:57:07 +0000 +++ src/process.c 2011-11-15 07:55:13 +0000 @@ -5377,8 +5377,8 @@ sending a multibyte text, thus we must encode it by the original coding system specified for the current process. - Another reason we comming here is that the coding system - was just complemented and new one was returned by + Another reason we come here is that the coding system + was just complemented and a new one was returned by complement_process_encoding_system. */ setup_coding_system (p->encode_coding_system, coding); Vlast_coding_system_used = p->encode_coding_system; === modified file 'src/syssignal.h' --- src/syssignal.h 2011-08-04 17:04:39 +0000 +++ src/syssignal.h 2011-11-15 07:55:13 +0000 @@ -39,7 +39,7 @@ /* POSIX pretty much destroys any possibility of writing sigmask as a macro in standard C. We always define our own version because the - predefined macro in Glibc 2.1 is only provided for compatility for old + predefined macro in Glibc 2.1 is only provided for compatibility for old programs that use int as signal mask type. */ #undef sigmask #ifdef __GNUC__ === modified file 'src/xdisp.c' --- src/xdisp.c 2011-11-14 20:23:26 +0000 +++ src/xdisp.c 2011-11-15 07:55:13 +0000 @@ -28447,7 +28447,7 @@ DEFVAR_INT ("overline-margin", overline_margin, doc: /* *Space between overline and text, in pixels. The default value is 2: the height of the overline (1 pixel) plus 1 pixel -margin to the caracter height. */); +margin to the character height. */); overline_margin = 2; DEFVAR_INT ("underline-minimum-offset", === modified file 'src/xfaces.c' --- src/xfaces.c 2011-11-11 23:17:16 +0000 +++ src/xfaces.c 2011-11-15 07:55:13 +0000 @@ -4189,12 +4189,12 @@ static int color_distance (XColor *x, XColor *y) { - /* This formula is from a paper title `Colour metric' by Thiadmer Riemersma. + /* This formula is from a paper titled `Colour metric' by Thiadmer Riemersma. Quoting from that paper: This formula has results that are very close to L*u*v* (with the modified lightness curve) and, more importantly, it is a more even - algorithm: it does not have a range of colours where it suddenly + algorithm: it does not have a range of colors where it suddenly gives far from optimal results. See for more info. */ === modified file 'src/xselect.c' --- src/xselect.c 2011-09-16 17:49:29 +0000 +++ src/xselect.c 2011-11-15 07:55:13 +0000 @@ -2355,7 +2355,7 @@ F is the frame to be used to look up X atoms if the TYPE is XA_ATOM. DATA is a C array of values to be converted. TYPE is the type of the data. Only XA_ATOM is special, it converts - each number in DATA to its corresponfing X atom as a symbol. + each number in DATA to its corresponding X atom as a symbol. FORMAT is 8, 16 or 32 and gives the size in bits for each C value to be stored in RET. SIZE is the number of elements in DATA. === modified file 'src/xsettings.c' --- src/xsettings.c 2011-09-09 01:06:52 +0000 +++ src/xsettings.c 2011-11-15 07:55:13 +0000 @@ -121,7 +121,7 @@ } #endif /* HAVE_XFT */ -/* Map TOOL_BAR_STYLE from a string to its correspinding Lisp value. +/* Map TOOL_BAR_STYLE from a string to its corresponding Lisp value. Return Qnil if TOOL_BAR_STYLE is not known. */ static Lisp_Object === modified file 'src/xsmfns.c' --- src/xsmfns.c 2011-08-05 02:15:35 +0000 +++ src/xsmfns.c 2011-11-15 07:55:13 +0000 @@ -462,7 +462,7 @@ Vx_session_id = build_string (client_id); #ifdef USE_GTK - /* GTK creats a leader window by itself, but we need to tell + /* GTK creates a leader window by itself, but we need to tell it about our client_id. */ gdk_x11_set_sm_client_id (client_id); #else === modified file 'test/cedet/semantic-tests.el' --- test/cedet/semantic-tests.el 2011-01-25 04:08:28 +0000 +++ test/cedet/semantic-tests.el 2011-11-15 07:55:13 +0000 @@ -54,7 +54,7 @@ (y-or-n-p "New database created. Reload system databases? ") (y-or-n-p "Load in all system databases? ")) (semanticdb-load-ebrowse-caches))) - ;; Ok, databases were creatd. Lets try some searching. + ;; Ok, databases were created. Let's try some searching. (when (not (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))) (error "Please make your default buffer be a C or C++ file, then @@ -387,4 +387,3 @@ (let ((semantic-gcc-test-strings (list (semantic-gcc-query "gcc" "-v")))) (semantic-gcc-test-output-parser)) ) -