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

Fix typos.

parent c0a8ae95
;; mule-charsets.el -- Generate Mule-orignal charset maps. ;; mule-charsets.el -- Generate Mule-original charset maps.
;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
;; National Institute of Advanced Industrial Science and Technology (AIST) ;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H13PRO009 ;; Registration Number H13PRO009
......
2011-07-14 Juanma Barranquero <lekktu@gmail.com>
* follow.el (follow-debug-message, follow-redisplay):
* jka-cmpr-hook.el (with-auto-compression-mode):
Fix typos in docstrings.
2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* subr.el (with-silent-modifications): Clarify somewhat what the * subr.el (with-silent-modifications): Clarify somewhat what the
......
...@@ -6892,7 +6892,7 @@ ...@@ -6892,7 +6892,7 @@
(find-file-noselect): Use it if new optional argument `rawfile' is (find-file-noselect): Use it if new optional argument `rawfile' is
non-nil. non-nil.
* startup.el (command-line-1): Add option --eval to evalute an * startup.el (command-line-1): Add option --eval to evaluate an
expression on the command line and print the result. expression on the command line and print the result.
1995-08-14 Richard Stallman <rms@mole.gnu.ai.mit.edu> 1995-08-14 Richard Stallman <rms@mole.gnu.ai.mit.edu>
......
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
;; * Use `testcover-mark-all' to add overlay "splotches" to the Lisp file's ;; * Use `testcover-mark-all' to add overlay "splotches" to the Lisp file's
;; buffer to show where coverage is lacking. Normally, a red splotch ;; buffer to show where coverage is lacking. Normally, a red splotch
;; indicates the form was never evaluated; a brown splotch means it always ;; indicates the form was never evaluated; a brown splotch means it always
;; evaluted to the same value. ;; evaluated to the same value.
;; * Use `testcover-next-mark' (bind it to a key!) to jump to the next spot ;; * Use `testcover-next-mark' (bind it to a key!) to jump to the next spot
;; that has a splotch. ;; that has a splotch.
......
...@@ -118,7 +118,7 @@ ...@@ -118,7 +118,7 @@
;; (setq pixel-vertical-clip-threshold 30) ;; (setq pixel-vertical-clip-threshold 30)
;; The correct way to cofigurate Follow mode, or any other mode for ;; The correct way to configurate Follow mode, or any other mode for
;; that matter, is to create one or more functions that do ;; that matter, is to create one or more functions that do
;; whatever you would like to do. These functions are then added to ;; whatever you would like to do. These functions are then added to
;; a hook. ;; a hook.
...@@ -189,7 +189,7 @@ ...@@ -189,7 +189,7 @@
;; positions in the text? Here are two simple methods to use: ;; positions in the text? Here are two simple methods to use:
;; ;;
;; 1) Use multiple frames; `follow' mode only affects windows displayed ;; 1) Use multiple frames; `follow' mode only affects windows displayed
;; in the same frame. (My apoligies to you who can't use frames.) ;; in the same frame. (My apologies to you who can't use frames.)
;; ;;
;; 2) Bind `follow-mode' to key so you can turn it off whenever ;; 2) Bind `follow-mode' to key so you can turn it off whenever
;; you want to view two locations. Of course, `follow' mode can ;; you want to view two locations. Of course, `follow' mode can
...@@ -209,15 +209,15 @@ ...@@ -209,15 +209,15 @@
;; ;;
;; Follow mode does this in three places: ;; Follow mode does this in three places:
;; 1) After each user command. ;; 1) After each user command.
;; 2) After a process output has been perfomed. ;; 2) After a process output has been performed.
;; 3) When a scrollbar has been moved. ;; 3) When a scrollbar has been moved.
;; ;;
;; This will cover most situations. (Let me know if there are other ;; This will cover most situations. (Let me know if there are other
;; situations that should be covered.) ;; situations that should be covered.)
;; ;;
;; Note that only the selected window is checked, for the reason of ;; Note that only the selected window is checked, for the reason of
;; efficiency and code complexity. (I.e. it is possible to make a ;; efficiency and code complexity. (I.e. it is possible to make a
;; non-selected windows unaligned. It will, however, pop right back ;; non-selected window unaligned. It will, however, pop right back
;; when it is selected.) ;; when it is selected.)
;;}}} ;;}}}
...@@ -244,7 +244,7 @@ ...@@ -244,7 +244,7 @@
;; (funcall (symbol-function 'set) 'bar ...) ;; (funcall (symbol-function 'set) 'bar ...)
;; ;;
;; Note: When this file is interpreted, `eval-when-compile' is ;; Note: When this file is interpreted, `eval-when-compile' is
;; evaluted. Since it doesn't hurt to evaluate it, but it is a bit ;; evaluated. Since it doesn't hurt to evaluate it, but it is a bit
;; annoying, we test if the byte-compiler has been loaded. This can, ;; annoying, we test if the byte-compiler has been loaded. This can,
;; of course, lead to some occasional unintended evaluation... ;; of course, lead to some occasional unintended evaluation...
;; ;;
...@@ -456,7 +456,7 @@ Used by `follow-window-size-change'.") ...@@ -456,7 +456,7 @@ Used by `follow-window-size-change'.")
;; the variable is not set. ;; the variable is not set.
(defsubst follow-debug-message (&rest args) (defsubst follow-debug-message (&rest args)
"Like message, but only active when `follow-debug' is non-nil." "Like `message', but only active when `follow-debug' is non-nil."
(if (and (boundp 'follow-debug) follow-debug) (if (and (boundp 'follow-debug) follow-debug)
(apply 'message args))) (apply 'message args)))
...@@ -1000,7 +1000,7 @@ Note that this handles the case when the cache has been set to nil." ...@@ -1000,7 +1000,7 @@ Note that this handles the case when the cache has been set to nil."
res)) res))
;; Make sure WIN always starts at the beginning of an whole screen ;; Make sure WIN always starts at the beginning of a whole screen
;; line. If WIN is not aligned the start is updated which probably ;; line. If WIN is not aligned the start is updated which probably
;; will lead to a redisplay of the screen later on. ;; will lead to a redisplay of the screen later on.
;; ;;
...@@ -1057,8 +1057,8 @@ Return the selected window." ...@@ -1057,8 +1057,8 @@ Return the selected window."
win)) win))
;; Lets select a window showing the end. Make sure we only select it if it ;; Lets select a window showing the end. Make sure we only select it if
;; it wasn't just moved here. (i.e. M-> shall not unconditionally place ;; it wasn't just moved here. (I.e. M-> shall not unconditionally place
;; the point in the selected window.) ;; the point in the selected window.)
;; ;;
;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max'; ;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max';
...@@ -1134,7 +1134,7 @@ Otherwise, return nil." ...@@ -1134,7 +1134,7 @@ Otherwise, return nil."
"Reposition the WINDOWS around WIN. "Reposition the WINDOWS around WIN.
Should the point be too close to the roof we redisplay everything Should the point be too close to the roof we redisplay everything
from the top. WINDOWS should contain a list of windows to from the top. WINDOWS should contain a list of windows to
redisplay, it is assumed that WIN is a member of the list. redisplay; it is assumed that WIN is a member of the list.
Should WINDOWS be nil, the windows displaying the Should WINDOWS be nil, the windows displaying the
same buffer as WIN, in the current frame, are used. same buffer as WIN, in the current frame, are used.
Should WIN be nil, the selected window is used. Should WIN be nil, the selected window is used.
...@@ -1231,7 +1231,7 @@ should be a member of WINDOWS, starts at position START." ...@@ -1231,7 +1231,7 @@ should be a member of WINDOWS, starts at position START."
(setq done t res (point))) (setq done t res (point)))
((= win-start start) ; Perfect match, use this value ((= win-start start) ; Perfect match, use this value
(setq done t res (point))) (setq done t res (point)))
((< win-start start) ; Walked to far, use preious result ((< win-start start) ; Walked to far, use previous result
(setq done t)) (setq done t))
(t ; Store result for next iteration (t ; Store result for next iteration
(setq res (point)))))) (setq res (point))))))
...@@ -1241,12 +1241,12 @@ should be a member of WINDOWS, starts at position START." ...@@ -1241,12 +1241,12 @@ should be a member of WINDOWS, starts at position START."
;;{{{ Avoid tail recenter ;;{{{ Avoid tail recenter
;; This sets the window internal flag `force_start'. The effect is that ;; This sets the window internal flag `force_start'. The effect is that
;; windows only displaying the tail isn't recentered. ;; windows only displaying the tail aren't recentered.
;; Has to be called before every redisplay... (Great isn't it?) ;; Has to be called before every redisplay... (Great isn't it?)
;; ;;
;; XEmacs doesn't recenter the tail, GOOD! ;; XEmacs doesn't recenter the tail, GOOD!
;; ;;
;; A window displaying only the tail, is a windows whose ;; A window displaying only the tail, is a window whose
;; window-start position is equal to (point-max) of the buffer it ;; window-start position is equal to (point-max) of the buffer it
;; displays. ;; displays.
;; ;;
...@@ -1487,12 +1487,12 @@ non-first windows in Follow mode." ...@@ -1487,12 +1487,12 @@ non-first windows in Follow mode."
;;;; Scroll-bar support code. ;;;; Scroll-bar support code.
;; Why is it needed? Well, if the selected window is in follow mode, ;; Why is it needed? Well, if the selected window is in follow mode,
;; all its follower stick to it blindly. If one of them is scrolled, ;; all its followers stick to it blindly. If one of them is scrolled,
;; it immediately returns to the original position when the mouse is ;; it immediately returns to the original position when the mouse is
;; released. If the selected window is not a follower of the dragged ;; released. If the selected window is not a follower of the dragged
;; window the windows will be unaligned. ;; window the windows will be unaligned.
;; The advices doesn't get compiled. Aestetically, this might be a ;; The advices don't get compiled. Aesthetically, this might be a
;; problem but in practical life it isn't. ;; problem but in practical life it isn't.
;; Discussion: Now when the other windows in the chain follow the ;; Discussion: Now when the other windows in the chain follow the
...@@ -1700,8 +1700,8 @@ magic stuff before the real process filter is called." ...@@ -1700,8 +1700,8 @@ magic stuff before the real process filter is called."
;;}}} ;;}}}
;;{{{ Start/stop interception of processes. ;;{{{ Start/stop interception of processes.
;; Normally, all new processed are intercepted by our `set-process-filter'. ;; Normally, all new processes are intercepted by our `set-process-filter'.
;; This is needed to intercept old processed that were started before we were ;; This is needed to intercept old processes that were started before we were
;; loaded, and processes we have forgotten by calling ;; loaded, and processes we have forgotten by calling
;; `follow-stop-intercept-process-output'. ;; `follow-stop-intercept-process-output'.
...@@ -1749,7 +1749,7 @@ report this using the `report-emacs-bug' function." ...@@ -1749,7 +1749,7 @@ report this using the `report-emacs-bug' function."
;; The following section is a naive method to make buffers with ;; The following section is a naive method to make buffers with
;; process output to work with Follow mode. Whenever the start of the ;; process output to work with Follow mode. Whenever the start of the
;; window displaying the buffer is moved, we moves it back to its ;; window displaying the buffer is moved, we move it back to its
;; original position and try to select a new window. (If we fail, ;; original position and try to select a new window. (If we fail,
;; the normal redisplay functions of Emacs will scroll it right ;; the normal redisplay functions of Emacs will scroll it right
;; back!) ;; back!)
...@@ -1767,7 +1767,7 @@ report this using the `report-emacs-bug' function." ...@@ -1767,7 +1767,7 @@ report this using the `report-emacs-bug' function."
;; If input is pending, the `sit-for' below won't redraw the ;; If input is pending, the `sit-for' below won't redraw the
;; display. In that case, calling `follow-avoid-tail-recenter' may ;; display. In that case, calling `follow-avoid-tail-recenter' may
;; provoke the process hadnling code to sceduling a redisplay. ;; provoke the process handling code to schedule a redisplay.
;(or (input-pending-p) ;(or (input-pending-p)
; (follow-avoid-tail-recenter)) ; (follow-avoid-tail-recenter))
...@@ -1788,7 +1788,7 @@ report this using the `report-emacs-bug' function." ...@@ -1788,7 +1788,7 @@ report this using the `report-emacs-bug' function."
(inhibit-read-only t)) (inhibit-read-only t))
(save-excursion (save-excursion
(goto-char (process-mark proc)) (goto-char (process-mark proc))
;; `insert-before-markers' just in case the users next ;; `insert-before-markers' just in case the user's next
;; command is M-y. ;; command is M-y.
(insert-before-markers output) (insert-before-markers output)
(set-marker (process-mark proc) (point))) (set-marker (process-mark proc) (point)))
...@@ -1848,7 +1848,7 @@ report this using the `report-emacs-bug' function." ...@@ -1848,7 +1848,7 @@ report this using the `report-emacs-bug' function."
(t (t
(follow-debug-message "filter: nothing"))) (follow-debug-message "filter: nothing")))
;; Here we have slected a window. Make sure the ;; Here we have selected a window. Make sure the
;; windows are aligned and the point is visible ;; windows are aligned and the point is visible
;; in the selected window. ;; in the selected window.
(if (and (not (follow-pos-visible (if (and (not (follow-pos-visible
...@@ -1866,7 +1866,7 @@ report this using the `report-emacs-bug' function." ...@@ -1866,7 +1866,7 @@ report this using the `report-emacs-bug' function."
;; return to the original window. ;; return to the original window.
(if return-to-orig-win (if return-to-orig-win
(select-window orig-win)) (select-window orig-win))
;; Restore the orignal buffer, unless the filter explicitly ;; Restore the original buffer, unless the filter explicitly
;; changed buffer or killed the old buffer. ;; changed buffer or killed the old buffer.
(if (and (eq buf (current-buffer)) (if (and (eq buf (current-buffer))
(buffer-name old-buffer)) (buffer-name old-buffer))
......
...@@ -9243,7 +9243,7 @@ ...@@ -9243,7 +9243,7 @@
(nnmaildir--with-nntp-buffer, nnmaildir--with-work-buffer, (nnmaildir--with-nntp-buffer, nnmaildir--with-work-buffer,
nnmaildir--with-nov-buffer, nnmaildir--with-move-buffer, nnmaildir--with-nov-buffer, nnmaildir--with-move-buffer,
nnmaildir--group-ls): New macros/functions. Use them. nnmaildir--group-ls): New macros/functions. Use them.
(nnmaildir--unlink): Evalutate argument only once. (nnmaildir--unlink): Evaluate argument only once.
   
2002-03-27 Jesper Harder <harder@ifa.au.dk> 2002-03-27 Jesper Harder <harder@ifa.au.dk>
   
......
...@@ -340,7 +340,7 @@ Return the new status of auto compression (non-nil means on)." ...@@ -340,7 +340,7 @@ Return the new status of auto compression (non-nil means on)."
(t (jka-compr-uninstall))))) (t (jka-compr-uninstall)))))
(defmacro with-auto-compression-mode (&rest body) (defmacro with-auto-compression-mode (&rest body)
"Evalute BODY with automatic file compression and uncompression enabled." "Evaluate BODY with automatic file compression and uncompression enabled."
(declare (indent 0)) (declare (indent 0))
(let ((already-installed (make-symbol "already-installed"))) (let ((already-installed (make-symbol "already-installed")))
`(let ((,already-installed (jka-compr-installed-p))) `(let ((,already-installed (jka-compr-installed-p)))
......
...@@ -145,7 +145,7 @@ You may want to include buffer names such as *Help*, *Apropos*, ...@@ -145,7 +145,7 @@ You may want to include buffer names such as *Help*, *Apropos*,
;;; Saved configurations ;;; Saved configurations
;; This variable contains the window cofiguration rings. ;; This variable contains the window configuration rings.
;; The key in this alist is the frame. ;; The key in this alist is the frame.
(defvar winner-ring-alist nil) (defvar winner-ring-alist nil)
......
...@@ -4599,7 +4599,7 @@ ...@@ -4599,7 +4599,7 @@
1995-08-14 Erik Naggum <erik@naggum.no> 1995-08-14 Erik Naggum <erik@naggum.no>
* emacs.c (standard_args): Add option --eval to evalute an * emacs.c (standard_args): Add option --eval to evaluate an
expression on the command line and print the result. expression on the command line and print the result.
1995-08-14 Richard Stallman <rms@mole.gnu.ai.mit.edu> 1995-08-14 Richard Stallman <rms@mole.gnu.ai.mit.edu>
......
...@@ -396,7 +396,7 @@ ...@@ -396,7 +396,7 @@
(eshell-command-result-p "+ ${+ 1 2} 3" "6\n")) (eshell-command-result-p "+ ${+ 1 2} 3" "6\n"))
(eshell-deftest var interp-lisp (eshell-deftest var interp-lisp
"Interpolate Lisp form evalution" "Interpolate Lisp form evaluation"
(eshell-command-result-p "+ $(+ 1 2) 3" "6\n")) (eshell-command-result-p "+ $(+ 1 2) 3" "6\n"))
(eshell-deftest var interp-concat (eshell-deftest var interp-concat
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment