diff options
| -rw-r--r-- | doc/misc/calc.texi | 18 | ||||
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 | ||||
| -rw-r--r-- | src/emacs-module.c | 6 | ||||
| -rw-r--r-- | test/automated/character-fold-tests.el | 2 |
4 files changed, 9 insertions, 19 deletions
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi index 8579d0f16f5..02f94469c71 100644 --- a/doc/misc/calc.texi +++ b/doc/misc/calc.texi | |||
| @@ -12597,7 +12597,6 @@ in this mode. Explicit simplification commands, such as @kbd{=} or | |||
| 12597 | @xref{Algebraic Definitions}, for a sample use of | 12597 | @xref{Algebraic Definitions}, for a sample use of |
| 12598 | No-Simplification mode. | 12598 | No-Simplification mode. |
| 12599 | 12599 | ||
| 12600 | |||
| 12601 | @kindex m N | 12600 | @kindex m N |
| 12602 | @pindex calc-num-simplify-mode | 12601 | @pindex calc-num-simplify-mode |
| 12603 | The @kbd{m N} (@code{calc-num-simplify-mode}) command turns off simplification | 12602 | The @kbd{m N} (@code{calc-num-simplify-mode}) command turns off simplification |
| @@ -22463,7 +22462,6 @@ Hyperbolic prefix @kbd{H} can be used similarly; the @kbd{H a s} will | |||
| 22463 | replace any hyperbolic functions in the formula with the appropriate | 22462 | replace any hyperbolic functions in the formula with the appropriate |
| 22464 | combinations of @samp{sinh}s and @samp{cosh}s before simplifying. | 22463 | combinations of @samp{sinh}s and @samp{cosh}s before simplifying. |
| 22465 | 22464 | ||
| 22466 | |||
| 22467 | @menu | 22465 | @menu |
| 22468 | * Basic Simplifications:: | 22466 | * Basic Simplifications:: |
| 22469 | * Algebraic Simplifications:: | 22467 | * Algebraic Simplifications:: |
| @@ -28032,7 +28030,7 @@ column of the Units Table. | |||
| 28032 | @noindent | 28030 | @noindent |
| 28033 | The definitions of many units have changed over the years. For example, | 28031 | The definitions of many units have changed over the years. For example, |
| 28034 | the meter was originally defined in 1791 as one ten-millionth of the | 28032 | the meter was originally defined in 1791 as one ten-millionth of the |
| 28035 | distance from the equator to the north pole. In order to be more | 28033 | distance from the Equator to the North Pole. In order to be more |
| 28036 | precise, the definition was adjusted several times, and now a meter is | 28034 | precise, the definition was adjusted several times, and now a meter is |
| 28037 | defined as the distance that light will travel in a vacuum in | 28035 | defined as the distance that light will travel in a vacuum in |
| 28038 | 1/299792458 of a second; consequently, the speed of light in a | 28036 | 1/299792458 of a second; consequently, the speed of light in a |
| @@ -28071,13 +28069,8 @@ of the various temperature scales. | |||
| 28071 | The unit of volume ``liters'' can be referred to by either the lower-case | 28069 | The unit of volume ``liters'' can be referred to by either the lower-case |
| 28072 | @code{l} or the upper-case @code{L}. | 28070 | @code{l} or the upper-case @code{L}. |
| 28073 | 28071 | ||
| 28074 | The unit @code{A} stands for Amperes; the name @code{Ang} is used | 28072 | The unit @code{A} stands for amperes; the name @code{Ang} is used |
| 28075 | @tex | 28073 | for angstroms. |
| 28076 | for \AA ngstroms. | ||
| 28077 | @end tex | ||
| 28078 | @ifnottex | ||
| 28079 | for Angstroms. | ||
| 28080 | @end ifnottex | ||
| 28081 | 28074 | ||
| 28082 | The unit @code{pt} stands for pints; the name @code{point} stands for | 28075 | The unit @code{pt} stands for pints; the name @code{point} stands for |
| 28083 | a typographical point, defined by @samp{72 point = 1 in}. This is | 28076 | a typographical point, defined by @samp{72 point = 1 in}. This is |
| @@ -28099,7 +28092,6 @@ use the @samp{tex} prefix; the unit name for a @TeX{} point will be | |||
| 28099 | the unit names for pint and parsec will simply be @samp{pint} and | 28092 | the unit names for pint and parsec will simply be @samp{pint} and |
| 28100 | @samp{parsec} instead of @samp{pt} and @samp{pc}. | 28093 | @samp{parsec} instead of @samp{pt} and @samp{pc}. |
| 28101 | 28094 | ||
| 28102 | |||
| 28103 | The unit @code{e} stands for the elementary (electron) unit of charge; | 28095 | The unit @code{e} stands for the elementary (electron) unit of charge; |
| 28104 | because algebra command could mistake this for the special constant | 28096 | because algebra command could mistake this for the special constant |
| 28105 | @expr{e}, Calc provides the alternate unit name @code{ech} which is | 28097 | @expr{e}, Calc provides the alternate unit name @code{ech} which is |
| @@ -28496,7 +28488,6 @@ a frequency or a midi number to scientific pitch notation. For | |||
| 28496 | example, @code{500 Hz} gets converted to | 28488 | example, @code{500 Hz} gets converted to |
| 28497 | @code{B_4 + 21.3094853649 cents} and @code{84} to @code{C_6}. | 28489 | @code{B_4 + 21.3094853649 cents} and @code{84} to @code{C_6}. |
| 28498 | 28490 | ||
| 28499 | |||
| 28500 | @kindex l m | 28491 | @kindex l m |
| 28501 | @pindex calc-midi | 28492 | @pindex calc-midi |
| 28502 | @tindex midi | 28493 | @tindex midi |
| @@ -28527,7 +28518,6 @@ notation @code{B_3 + 99.9962592773 cents}; with the default value of | |||
| 28527 | @code{1}, Calc converts @code{261.625 Hz} to @code{C_4}. | 28518 | @code{1}, Calc converts @code{261.625 Hz} to @code{C_4}. |
| 28528 | 28519 | ||
| 28529 | 28520 | ||
| 28530 | |||
| 28531 | @node Store and Recall, Graphics, Units, Top | 28521 | @node Store and Recall, Graphics, Units, Top |
| 28532 | @chapter Storing and Recalling | 28522 | @chapter Storing and Recalling |
| 28533 | 28523 | ||
| @@ -29907,7 +29897,7 @@ The @kbd{C-y} command can be given a prefix, which will interpret the | |||
| 29907 | text being yanked with a different radix. If the text being yanked can be | 29897 | text being yanked with a different radix. If the text being yanked can be |
| 29908 | interpreted as a binary, octal, hexadecimal, or decimal number, then a | 29898 | interpreted as a binary, octal, hexadecimal, or decimal number, then a |
| 29909 | prefix of @kbd{2}, @kbd{8}, @kbd{6} or @kbd{0} will have Calc | 29899 | prefix of @kbd{2}, @kbd{8}, @kbd{6} or @kbd{0} will have Calc |
| 29910 | interpret the yanked text as a number in the appropriate base. For example, | 29900 | interpret the yanked text as a number in the appropriate base. For example, |
| 29911 | if @samp{111} has just been killed and is yanked into Calc with a command | 29901 | if @samp{111} has just been killed and is yanked into Calc with a command |
| 29912 | of @kbd{C-2 C-y}, then the number @samp{7} will be put on the stack. | 29902 | of @kbd{C-2 C-y}, then the number @samp{7} will be put on the stack. |
| 29913 | If you use the plain prefix @kbd{C-u}, then you will be prompted for a | 29903 | If you use the plain prefix @kbd{C-u}, then you will be prompted for a |
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index a75b23bbc15..470fd493661 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -515,7 +515,7 @@ Returns nil if they are." | |||
| 515 | for xi = (ert--explain-equal-rec ai bi) | 515 | for xi = (ert--explain-equal-rec ai bi) |
| 516 | do (when xi (cl-return `(array-elt ,i ,xi))) | 516 | do (when xi (cl-return `(array-elt ,i ,xi))) |
| 517 | finally (cl-assert (equal a b) t)))) | 517 | finally (cl-assert (equal a b) t)))) |
| 518 | ((pred atomp) | 518 | ((pred atom) |
| 519 | (if (not (equal a b)) | 519 | (if (not (equal a b)) |
| 520 | (if (and (symbolp a) (symbolp b) (string= a b)) | 520 | (if (and (symbolp a) (symbolp b) (string= a b)) |
| 521 | `(different-symbols-with-the-same-name ,a ,b) | 521 | `(different-symbols-with-the-same-name ,a ,b) |
diff --git a/src/emacs-module.c b/src/emacs-module.c index 9967fc49afe..620df930a44 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -906,7 +906,7 @@ value_to_lisp (emacs_value v) | |||
| 906 | 906 | ||
| 907 | /* Attempt to convert O to an emacs_value. Do not do any checking or | 907 | /* Attempt to convert O to an emacs_value. Do not do any checking or |
| 908 | or allocate any storage; the caller should prevent or detect | 908 | or allocate any storage; the caller should prevent or detect |
| 909 | any resulting bitpattern that is not a valid emacs_value. */ | 909 | any resulting bit pattern that is not a valid emacs_value. */ |
| 910 | static emacs_value | 910 | static emacs_value |
| 911 | lisp_to_value_bits (Lisp_Object o) | 911 | lisp_to_value_bits (Lisp_Object o) |
| 912 | { | 912 | { |
| @@ -932,7 +932,7 @@ lisp_to_value (Lisp_Object o) | |||
| 932 | 932 | ||
| 933 | if (! EQ (o, value_to_lisp_bits (v))) | 933 | if (! EQ (o, value_to_lisp_bits (v))) |
| 934 | { | 934 | { |
| 935 | /* Package the uncompressible object pointer inside a pair | 935 | /* Package the incompressible object pointer inside a pair |
| 936 | that is compressible. */ | 936 | that is compressible. */ |
| 937 | Lisp_Object pair = Fcons (o, ltv_mark); | 937 | Lisp_Object pair = Fcons (o, ltv_mark); |
| 938 | 938 | ||
| @@ -944,7 +944,7 @@ lisp_to_value (Lisp_Object o) | |||
| 944 | pair = Fcons (o, pair); | 944 | pair = Fcons (o, pair); |
| 945 | 945 | ||
| 946 | /* Plant the mark. The garbage collector will eventually | 946 | /* Plant the mark. The garbage collector will eventually |
| 947 | reclaim any just-allocated uncompressible pairs. */ | 947 | reclaim any just-allocated incompressible pairs. */ |
| 948 | XSETCDR (pair, ltv_mark); | 948 | XSETCDR (pair, ltv_mark); |
| 949 | } | 949 | } |
| 950 | 950 | ||
diff --git a/test/automated/character-fold-tests.el b/test/automated/character-fold-tests.el index 4e8761e6f7b..c0568625649 100644 --- a/test/automated/character-fold-tests.el +++ b/test/automated/character-fold-tests.el | |||
| @@ -113,7 +113,7 @@ | |||
| 113 | ;; Our initial implementation of case-folding in char-folding | 113 | ;; Our initial implementation of case-folding in char-folding |
| 114 | ;; created a lot of redundant paths in the regexp. Because of | 114 | ;; created a lot of redundant paths in the regexp. Because of |
| 115 | ;; that, if a really long string "almost" matches, the regexp | 115 | ;; that, if a really long string "almost" matches, the regexp |
| 116 | ;; engine took a long time to realise that it doesn't match. | 116 | ;; engine took a long time to realize that it doesn't match. |
| 117 | (should-not (character-fold-search-forward (concat string "c") nil 'noerror)) | 117 | (should-not (character-fold-search-forward (concat string "c") nil 'noerror)) |
| 118 | ;; Ensure it took less than a second. | 118 | ;; Ensure it took less than a second. |
| 119 | (should (< (- (time-to-seconds (current-time)) | 119 | (should (< (- (time-to-seconds (current-time)) |