diff options
| author | Juanma Barranquero | 2011-11-15 01:54:19 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2011-11-15 01:54:19 +0100 |
| commit | 0d26e0b62b7d01e3cb6eb57943269b8f25e53cd6 (patch) | |
| tree | 784b0f664bd50cf4bc244141190d8b9c92973835 | |
| parent | 947cd66b9611a5c4c4eb60238022e72fe51e2e46 (diff) | |
| download | emacs-0d26e0b62b7d01e3cb6eb57943269b8f25e53cd6.tar.gz emacs-0d26e0b62b7d01e3cb6eb57943269b8f25e53cd6.zip | |
Fix typos.
| -rw-r--r-- | doc/misc/ChangeLog | 4 | ||||
| -rw-r--r-- | doc/misc/ede.texi | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/ChangeLog.11 | 2 | ||||
| -rw-r--r-- | lisp/allout.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/cedet/ede/project-am.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/mode-local.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 2 | ||||
| -rw-r--r-- | lisp/epg.el | 22 | ||||
| -rw-r--r-- | lisp/erc/ChangeLog.01 | 2 | ||||
| -rw-r--r-- | lisp/erc/ChangeLog.02 | 4 | ||||
| -rw-r--r-- | lisp/erc/ChangeLog.03 | 5 | ||||
| -rw-r--r-- | lisp/erc/ChangeLog.04 | 2 | ||||
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/shr-color.el | 13 | ||||
| -rw-r--r-- | lisp/mh-e/ChangeLog.1 | 10 | ||||
| -rw-r--r-- | lisp/progmodes/cc-awk.el | 26 | ||||
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 8 | ||||
| -rw-r--r-- | lisp/progmodes/cc-mode.el | 8 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 4 | ||||
| -rw-r--r-- | src/ChangeLog.8 | 2 | ||||
| -rw-r--r-- | src/ralloc.c | 16 | ||||
| -rw-r--r-- | src/xterm.h | 2 |
25 files changed, 91 insertions, 68 deletions
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index ec12b77e826..10e62b7d25f 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * ede.texi (project-am-texinfo): Fix typo. | ||
| 4 | |||
| 1 | 2011-11-14 Juanma Barranquero <lekktu@gmail.com> | 5 | 2011-11-14 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * ediff.texi (Hooks): | 7 | * ediff.texi (Hooks): |
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi index 13b640a09fe..fc85f325a54 100644 --- a/doc/misc/ede.texi +++ b/doc/misc/ede.texi | |||
| @@ -3273,7 +3273,7 @@ Return the default macro to 'edit' for this object type. | |||
| 3273 | @end deffn | 3273 | @end deffn |
| 3274 | 3274 | ||
| 3275 | @deffn Method project-compile-target-command :AFTER this | 3275 | @deffn Method project-compile-target-command :AFTER this |
| 3276 | Default target t- use when compling a texinfo file. | 3276 | Default target t- use when compiling a texinfo file. |
| 3277 | @end deffn | 3277 | @end deffn |
| 3278 | 3278 | ||
| 3279 | @deffn Method ede-documentation :AFTER this | 3279 | @deffn Method ede-documentation :AFTER this |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dcd72b8a5fb..c6f5f3bfd4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * epg.el (epg-start-decrypt, epg-start-verify, epg-start-sign) | ||
| 4 | (epg-start-encrypt, epg-start-export-keys, epg-start-import-keys) | ||
| 5 | (epg-start-receive-keys, epg-start-delete-keys, epg-start-sign-keys) | ||
| 6 | (epg-start-generate-key, epg-context-set-progress-callback): Fix typos. | ||
| 7 | |||
| 1 | 2011-11-15 Glenn Morris <rgm@gnu.org> | 8 | 2011-11-15 Glenn Morris <rgm@gnu.org> |
| 2 | 9 | ||
| 3 | * simple.el (mark-whole-buffer): Doc fix. (Bug#10023) | 10 | * simple.el (mark-whole-buffer): Doc fix. (Bug#10023) |
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index 76bac50c4b8..08bd70926b4 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 | |||
| @@ -5283,7 +5283,7 @@ | |||
| 5283 | (disabled-command-function): Function renamed from | 5283 | (disabled-command-function): Function renamed from |
| 5284 | `disabled-command-hook'. Adapt code to name change of the variable. | 5284 | `disabled-command-hook'. Adapt code to name change of the variable. |
| 5285 | 5285 | ||
| 5286 | 2004-08-07 Satyaki Das <satyaki@theforce.stanford.edu> (tiny change) | 5286 | 2004-08-07 Satyaki Das <satyaki@theforce.stanford.edu> |
| 5287 | 5287 | ||
| 5288 | * simple.el (completion-root-regexp): New defvar. | 5288 | * simple.el (completion-root-regexp): New defvar. |
| 5289 | (completion-setup-function): Use it instead of a literal string. | 5289 | (completion-setup-function): Use it instead of a literal string. |
diff --git a/lisp/allout.el b/lisp/allout.el index 9eeddb207ff..df2a21ffb2c 100644 --- a/lisp/allout.el +++ b/lisp/allout.el | |||
| @@ -2525,7 +2525,7 @@ Outermost is first." | |||
| 2525 | (defun allout-mark-active-p () | 2525 | (defun allout-mark-active-p () |
| 2526 | "True if the mark is currently or always active." | 2526 | "True if the mark is currently or always active." |
| 2527 | ;; `(cond (boundp...))' (or `(if ...)') invokes special byte-compiler | 2527 | ;; `(cond (boundp...))' (or `(if ...)') invokes special byte-compiler |
| 2528 | ;; provisions, at least in fsf emacs to prevent warnings about lack of, | 2528 | ;; provisions, at least in GNU Emacs to prevent warnings about lack of, |
| 2529 | ;; eg, region-active-p. | 2529 | ;; eg, region-active-p. |
| 2530 | (cond ((boundp 'mark-active) | 2530 | (cond ((boundp 'mark-active) |
| 2531 | mark-active) | 2531 | mark-active) |
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 0d621ad640a..7d70e83200d 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * ede/project-am.el (project-compile-target-command): Fix typo. | ||
| 4 | |||
| 1 | 2011-11-14 Juanma Barranquero <lekktu@gmail.com> | 5 | 2011-11-14 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * ede/auto.el (ede-project-autoload): | 7 | * ede/auto.el (ede-project-autoload): |
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index ec54d8151bc..c1e656e8459 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el | |||
| @@ -836,7 +836,7 @@ nil means that this buffer belongs to no-one." | |||
| 836 | (oref this :name)) | 836 | (oref this :name)) |
| 837 | 837 | ||
| 838 | (defmethod project-compile-target-command ((this project-am-texinfo)) | 838 | (defmethod project-compile-target-command ((this project-am-texinfo)) |
| 839 | "Default target t- use when compling a texinfo file." | 839 | "Default target t- use when compiling a texinfo file." |
| 840 | (let ((n (oref this :name))) | 840 | (let ((n (oref this :name))) |
| 841 | (if (string-match "\\.texi?\\(nfo\\)?" n) | 841 | (if (string-match "\\.texi?\\(nfo\\)?" n) |
| 842 | (setq n (replace-match ".info" t t n))) | 842 | (setq n (replace-match ".info" t t n))) |
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 52bfaab5d25..0e7657642c2 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el | |||
| @@ -637,7 +637,7 @@ SYMBOL is a function that can be overridden." | |||
| 637 | 637 | ||
| 638 | (defun mode-local-print-bindings (table) | 638 | (defun mode-local-print-bindings (table) |
| 639 | "Print bindings in TABLE." | 639 | "Print bindings in TABLE." |
| 640 | (let (us ;; List of unpecified symbols | 640 | (let (us ;; List of unspecified symbols |
| 641 | mc ;; List of mode local constants | 641 | mc ;; List of mode local constants |
| 642 | mv ;; List of mode local variables | 642 | mv ;; List of mode local variables |
| 643 | ov ;; List of overloaded functions | 643 | ov ;; List of overloaded functions |
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index c80dd31a8f0..fcab8b57c1e 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -871,7 +871,7 @@ Otherwise return the normal value." | |||
| 871 | (abbreviate-file-name file))) | 871 | (abbreviate-file-name file))) |
| 872 | 872 | ||
| 873 | ;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg | 873 | ;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg |
| 874 | ;; in sit-for, so this function smoothes out the differences. | 874 | ;; in sit-for, so this function smooths out the differences. |
| 875 | (defsubst viper-sit-for-short (val &optional nodisp) | 875 | (defsubst viper-sit-for-short (val &optional nodisp) |
| 876 | (sit-for (/ val 1000.0) nodisp)) | 876 | (sit-for (/ val 1000.0) nodisp)) |
| 877 | 877 | ||
diff --git a/lisp/epg.el b/lisp/epg.el index 9ca07e213b4..00c00f9c9d3 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -356,7 +356,7 @@ query by itself and Emacs can intercept them." | |||
| 356 | PROGRESS-CALLBACK is either a function, or a cons-cell whose | 356 | PROGRESS-CALLBACK is either a function, or a cons-cell whose |
| 357 | car is a function and cdr is a callback data. | 357 | car is a function and cdr is a callback data. |
| 358 | 358 | ||
| 359 | The function gets five arguments: the context, the operation | 359 | The function gets six arguments: the context, the operation |
| 360 | description, the character to display a progress unit, the | 360 | description, the character to display a progress unit, the |
| 361 | current amount done, the total amount to be done, and the | 361 | current amount done, the total amount to be done, and the |
| 362 | callback data (if any)." | 362 | callback data (if any)." |
| @@ -2031,7 +2031,7 @@ CIPHER must be a file data object. | |||
| 2031 | 2031 | ||
| 2032 | If you use this function, you will need to wait for the completion of | 2032 | If you use this function, you will need to wait for the completion of |
| 2033 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2033 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2034 | `epg-reset' to clear a temporaly output file. | 2034 | `epg-reset' to clear a temporary output file. |
| 2035 | If you are unsure, use synchronous version of this function | 2035 | If you are unsure, use synchronous version of this function |
| 2036 | `epg-decrypt-file' or `epg-decrypt-string' instead." | 2036 | `epg-decrypt-file' or `epg-decrypt-string' instead." |
| 2037 | (unless (epg-data-file cipher) | 2037 | (unless (epg-data-file cipher) |
| @@ -2097,7 +2097,7 @@ For a normal or a cleartext signature, SIGNED-TEXT should be nil. | |||
| 2097 | 2097 | ||
| 2098 | If you use this function, you will need to wait for the completion of | 2098 | If you use this function, you will need to wait for the completion of |
| 2099 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2099 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2100 | `epg-reset' to clear a temporaly output file. | 2100 | `epg-reset' to clear a temporary output file. |
| 2101 | If you are unsure, use synchronous version of this function | 2101 | If you are unsure, use synchronous version of this function |
| 2102 | `epg-verify-file' or `epg-verify-string' instead." | 2102 | `epg-verify-file' or `epg-verify-string' instead." |
| 2103 | (epg-context-set-operation context 'verify) | 2103 | (epg-context-set-operation context 'verify) |
| @@ -2195,7 +2195,7 @@ Otherwise, it makes a cleartext signature. | |||
| 2195 | 2195 | ||
| 2196 | If you use this function, you will need to wait for the completion of | 2196 | If you use this function, you will need to wait for the completion of |
| 2197 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2197 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2198 | `epg-reset' to clear a temporaly output file. | 2198 | `epg-reset' to clear a temporary output file. |
| 2199 | If you are unsure, use synchronous version of this function | 2199 | If you are unsure, use synchronous version of this function |
| 2200 | `epg-sign-file' or `epg-sign-string' instead." | 2200 | `epg-sign-file' or `epg-sign-string' instead." |
| 2201 | (epg-context-set-operation context 'sign) | 2201 | (epg-context-set-operation context 'sign) |
| @@ -2299,7 +2299,7 @@ If RECIPIENTS is nil, it performs symmetric encryption. | |||
| 2299 | 2299 | ||
| 2300 | If you use this function, you will need to wait for the completion of | 2300 | If you use this function, you will need to wait for the completion of |
| 2301 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2301 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2302 | `epg-reset' to clear a temporaly output file. | 2302 | `epg-reset' to clear a temporary output file. |
| 2303 | If you are unsure, use synchronous version of this function | 2303 | If you are unsure, use synchronous version of this function |
| 2304 | `epg-encrypt-file' or `epg-encrypt-string' instead." | 2304 | `epg-encrypt-file' or `epg-encrypt-string' instead." |
| 2305 | (epg-context-set-operation context 'encrypt) | 2305 | (epg-context-set-operation context 'encrypt) |
| @@ -2414,7 +2414,7 @@ If RECIPIENTS is nil, it performs symmetric encryption." | |||
| 2414 | 2414 | ||
| 2415 | If you use this function, you will need to wait for the completion of | 2415 | If you use this function, you will need to wait for the completion of |
| 2416 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2416 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2417 | `epg-reset' to clear a temporaly output file. | 2417 | `epg-reset' to clear a temporary output file. |
| 2418 | If you are unsure, use synchronous version of this function | 2418 | If you are unsure, use synchronous version of this function |
| 2419 | `epg-export-keys-to-file' or `epg-export-keys-to-string' instead." | 2419 | `epg-export-keys-to-file' or `epg-export-keys-to-string' instead." |
| 2420 | (epg-context-set-operation context 'export-keys) | 2420 | (epg-context-set-operation context 'export-keys) |
| @@ -2457,7 +2457,7 @@ KEYS is a data object. | |||
| 2457 | 2457 | ||
| 2458 | If you use this function, you will need to wait for the completion of | 2458 | If you use this function, you will need to wait for the completion of |
| 2459 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2459 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2460 | `epg-reset' to clear a temporaly output file. | 2460 | `epg-reset' to clear a temporary output file. |
| 2461 | If you are unsure, use synchronous version of this function | 2461 | If you are unsure, use synchronous version of this function |
| 2462 | `epg-import-keys-from-file' or `epg-import-keys-from-string' instead." | 2462 | `epg-import-keys-from-file' or `epg-import-keys-from-string' instead." |
| 2463 | (epg-context-set-operation context 'import-keys) | 2463 | (epg-context-set-operation context 'import-keys) |
| @@ -2498,7 +2498,7 @@ KEY-ID-LIST is a list of key IDs. | |||
| 2498 | 2498 | ||
| 2499 | If you use this function, you will need to wait for the completion of | 2499 | If you use this function, you will need to wait for the completion of |
| 2500 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2500 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2501 | `epg-reset' to clear a temporaly output file. | 2501 | `epg-reset' to clear a temporary output file. |
| 2502 | If you are unsure, use synchronous version of this function | 2502 | If you are unsure, use synchronous version of this function |
| 2503 | `epg-receive-keys' instead." | 2503 | `epg-receive-keys' instead." |
| 2504 | (epg-context-set-operation context 'receive-keys) | 2504 | (epg-context-set-operation context 'receive-keys) |
| @@ -2526,7 +2526,7 @@ KEYS is a list of key IDs" | |||
| 2526 | 2526 | ||
| 2527 | If you use this function, you will need to wait for the completion of | 2527 | If you use this function, you will need to wait for the completion of |
| 2528 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2528 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2529 | `epg-reset' to clear a temporaly output file. | 2529 | `epg-reset' to clear a temporary output file. |
| 2530 | If you are unsure, use synchronous version of this function | 2530 | If you are unsure, use synchronous version of this function |
| 2531 | `epg-delete-keys' instead." | 2531 | `epg-delete-keys' instead." |
| 2532 | (epg-context-set-operation context 'delete-keys) | 2532 | (epg-context-set-operation context 'delete-keys) |
| @@ -2558,7 +2558,7 @@ If you are unsure, use synchronous version of this function | |||
| 2558 | 2558 | ||
| 2559 | If you use this function, you will need to wait for the completion of | 2559 | If you use this function, you will need to wait for the completion of |
| 2560 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2560 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2561 | `epg-reset' to clear a temporaly output file. | 2561 | `epg-reset' to clear a temporary output file. |
| 2562 | If you are unsure, use synchronous version of this function | 2562 | If you are unsure, use synchronous version of this function |
| 2563 | `epg-sign-keys' instead." | 2563 | `epg-sign-keys' instead." |
| 2564 | (epg-context-set-operation context 'sign-keys) | 2564 | (epg-context-set-operation context 'sign-keys) |
| @@ -2593,7 +2593,7 @@ PARAMETERS specifies parameters for the key. | |||
| 2593 | 2593 | ||
| 2594 | If you use this function, you will need to wait for the completion of | 2594 | If you use this function, you will need to wait for the completion of |
| 2595 | `epg-gpg-program' by using `epg-wait-for-completion' and call | 2595 | `epg-gpg-program' by using `epg-wait-for-completion' and call |
| 2596 | `epg-reset' to clear a temporaly output file. | 2596 | `epg-reset' to clear a temporary output file. |
| 2597 | If you are unsure, use synchronous version of this function | 2597 | If you are unsure, use synchronous version of this function |
| 2598 | `epg-generate-key-from-file' or `epg-generate-key-from-string' instead." | 2598 | `epg-generate-key-from-file' or `epg-generate-key-from-string' instead." |
| 2599 | (epg-context-set-operation context 'generate-key) | 2599 | (epg-context-set-operation context 'generate-key) |
diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01 index f73d2af949c..1e90b33a23b 100644 --- a/lisp/erc/ChangeLog.01 +++ b/lisp/erc/ChangeLog.01 | |||
| @@ -826,7 +826,7 @@ | |||
| 826 | * (erc-complete-nick): Add ": " only if one completes directly after the erc-prompt, otherwise, add just one space | 826 | * (erc-complete-nick): Add ": " only if one completes directly after the erc-prompt, otherwise, add just one space |
| 827 | 827 | ||
| 828 | * erc.el: | 828 | * erc.el: |
| 829 | * Changed menu-definition to use easymenu (hopefully this now works under Xemacs) | 829 | * Changed menu-definition to use easymenu (hopefully this now works under XEmacs) |
| 830 | * Fix for custom problem with :must-match on XEmacs (thanks shapr) | 830 | * Fix for custom problem with :must-match on XEmacs (thanks shapr) |
| 831 | * Added /COUNTRY command using (what-domain) from package mail-extr (shapr) | 831 | * Added /COUNTRY command using (what-domain) from package mail-extr (shapr) |
| 832 | * Fix for case-sensitivity problem with pals (they are now all downcased) | 832 | * Fix for case-sensitivity problem with pals (they are now all downcased) |
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02 index 09ab1cb3796..d1b05a23140 100644 --- a/lisp/erc/ChangeLog.02 +++ b/lisp/erc/ChangeLog.02 | |||
| @@ -1373,7 +1373,7 @@ | |||
| 1373 | 1373 | ||
| 1374 | * erc-menu.el: | 1374 | * erc-menu.el: |
| 1375 | * changed how we check if we should activate "Track hidden channels" and | 1375 | * changed how we check if we should activate "Track hidden channels" and |
| 1376 | whether it should be selected - fixes a bug Xemacs where whole menu bar | 1376 | whether it should be selected - fixes a bug XEmacs where whole menu bar |
| 1377 | does not work if menu is loaded | 1377 | does not work if menu is loaded |
| 1378 | 1378 | ||
| 1379 | * erc-menu.el: | 1379 | * erc-menu.el: |
| @@ -1545,7 +1545,7 @@ | |||
| 1545 | 1545 | ||
| 1546 | * added s461 to english catalog | 1546 | * added s461 to english catalog |
| 1547 | 1547 | ||
| 1548 | * fixed bug where Xemacs would not quit if erc-quit-reason was | 1548 | * fixed bug where XEmacs would not quit if erc-quit-reason was |
| 1549 | set to erc-quit-reason-various and assoc-default was not defined | 1549 | set to erc-quit-reason-various and assoc-default was not defined |
| 1550 | 1550 | ||
| 1551 | 2002-06-04 Andreas Fuchs <asf@void.at> | 1551 | 2002-06-04 Andreas Fuchs <asf@void.at> |
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index 74f2ab442b9..43d0247bce6 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 | |||
| @@ -1600,7 +1600,8 @@ | |||
| 1600 | 1600 | ||
| 1601 | * erc-dcc.el: * erc-dcc-ipv4-regexp: New constant | 1601 | * erc-dcc.el: * erc-dcc-ipv4-regexp: New constant |
| 1602 | * (erc-ip-to-decimal): Use it. | 1602 | * (erc-ip-to-decimal): Use it. |
| 1603 | * erc-dcc-host:valid-regexp erc-dcc-ipv4-regexp: * erc-dcc-host: :type | 1603 | * erc-dcc-host:valid-regexp erc-dcc-ipv4-regexp: |
| 1604 | * erc-dcc-host: :type | ||
| 1604 | * (pcomplete/erc-mode/DCC): Add completion for GET and CLOSE. | 1605 | * (pcomplete/erc-mode/DCC): Add completion for GET and CLOSE. |
| 1605 | * Some docstring/comment fixes. | 1606 | * Some docstring/comment fixes. |
| 1606 | 1607 | ||
| @@ -1610,7 +1611,7 @@ | |||
| 1610 | 1611 | ||
| 1611 | * erc-dcc.el: | 1612 | * erc-dcc.el: |
| 1612 | * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil), | 1613 | * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil), |
| 1613 | and saves correctly (tried with 21.3.50). Thanks to Eli for suggesting it! | 1614 | and saves correctly (tried with 21.3.50)). Thanks to Eli for suggesting it! |
| 1614 | * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time. | 1615 | * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time. |
| 1615 | * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...) | 1616 | * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...) |
| 1616 | 1617 | ||
diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04 index 7db040fd23f..ff47372b8e3 100644 --- a/lisp/erc/ChangeLog.04 +++ b/lisp/erc/ChangeLog.04 | |||
| @@ -136,7 +136,7 @@ | |||
| 136 | 2004-12-14 Diane Murray <disumu@x3y2z1.net> | 136 | 2004-12-14 Diane Murray <disumu@x3y2z1.net> |
| 137 | 137 | ||
| 138 | * erc.el: The last change to `erc-mode-line-format' introduced a | 138 | * erc.el: The last change to `erc-mode-line-format' introduced a |
| 139 | bug in Xemacs - it can't handle the #(" "...) strings at all. The | 139 | bug in XEmacs - it can't handle the #(" "...) strings at all. The |
| 140 | following changes fix the bug and simplify the mode-line handling | 140 | following changes fix the bug and simplify the mode-line handling |
| 141 | considerably. (erc-mode-line-format): Now defined as a string | 141 | considerably. (erc-mode-line-format): Now defined as a string |
| 142 | which will be formatted using `format-spec' and take the place of | 142 | which will be formatted using `format-spec' and take the place of |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0a6e3a426a1..77f2235e790 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * shr-color.el (shr-color-visible-distance-min) | ||
| 4 | (shr-color-relative-to-absolute, set-minimum-interval) | ||
| 5 | (shr-color-visible): Fix typos. | ||
| 6 | |||
| 1 | 2011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> | 7 | 2011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 8 | ||
| 3 | * gnus-sum.el (gnus-articles-to-read): Change wording in prompt to be | 9 | * gnus-sum.el (gnus-articles-to-read): Change wording in prompt to be |
diff --git a/lisp/gnus/shr-color.el b/lisp/gnus/shr-color.el index 36dd65f4a2d..4fd35659e08 100644 --- a/lisp/gnus/shr-color.el +++ b/lisp/gnus/shr-color.el | |||
| @@ -41,7 +41,7 @@ Must be between 0 and 100." | |||
| 41 | 41 | ||
| 42 | (defcustom shr-color-visible-distance-min 5 | 42 | (defcustom shr-color-visible-distance-min 5 |
| 43 | "Minimum color distance between two colors to be considered visible. | 43 | "Minimum color distance between two colors to be considered visible. |
| 44 | This value is used to compare result for `ciede2000'. Its an | 44 | This value is used to compare result for `ciede2000'. It's an |
| 45 | absolute value without any unit." | 45 | absolute value without any unit." |
| 46 | :group 'shr | 46 | :group 'shr |
| 47 | :type 'integer) | 47 | :type 'integer) |
| @@ -198,7 +198,8 @@ absolute value without any unit." | |||
| 198 | Each entry should have the form (COLOR-NAME . HEXADECIMAL-COLOR).") | 198 | Each entry should have the form (COLOR-NAME . HEXADECIMAL-COLOR).") |
| 199 | 199 | ||
| 200 | (defun shr-color-relative-to-absolute (number) | 200 | (defun shr-color-relative-to-absolute (number) |
| 201 | "Convert a relative NUMBER to absolute. If NUMBER is absolute, return NUMBER. | 201 | "Convert a relative NUMBER to absolute. |
| 202 | If NUMBER is absolute, return NUMBER. | ||
| 202 | This will convert \"80 %\" to 204, \"100 %\" to 255 but \"123\" to \"123\"." | 203 | This will convert \"80 %\" to 204, \"100 %\" to 255 but \"123\" to \"123\"." |
| 203 | (let ((string-length (- (length number) 1))) | 204 | (let ((string-length (- (length number) 1))) |
| 204 | ;; Is this a number with %? | 205 | ;; Is this a number with %? |
| @@ -269,7 +270,7 @@ Like rgb() or hsl()." | |||
| 269 | (defun set-minimum-interval (val1 val2 min max interval &optional fixed) | 270 | (defun set-minimum-interval (val1 val2 min max interval &optional fixed) |
| 270 | "Set minimum interval between VAL1 and VAL2 to INTERVAL. | 271 | "Set minimum interval between VAL1 and VAL2 to INTERVAL. |
| 271 | The values are bound by MIN and MAX. | 272 | The values are bound by MIN and MAX. |
| 272 | If FIXED is t, then val1 will not be touched." | 273 | If FIXED is t, then VAL1 will not be touched." |
| 273 | (let ((diff (abs (- val1 val2)))) | 274 | (let ((diff (abs (- val1 val2)))) |
| 274 | (unless (>= diff interval) | 275 | (unless (>= diff interval) |
| 275 | (if fixed | 276 | (if fixed |
| @@ -319,10 +320,10 @@ If FIXED is t, then val1 will not be touched." | |||
| 319 | 320 | ||
| 320 | (defun shr-color-visible (bg fg &optional fixed-background) | 321 | (defun shr-color-visible (bg fg &optional fixed-background) |
| 321 | "Check that BG and FG colors are visible if they are drawn on each other. | 322 | "Check that BG and FG colors are visible if they are drawn on each other. |
| 322 | Return (bg fg) if they are. If they are too similar, two new | 323 | Return (bg fg) if they are. If they are too similar, two new |
| 323 | colors are returned instead. | 324 | colors are returned instead. |
| 324 | If FIXED-BACKGROUND is set, and if the color are not visible, a | 325 | If FIXED-BACKGROUND is set, and if the color are not visible, a |
| 325 | new background color will not be computed. Only the foreground | 326 | new background color will not be computed. Only the foreground |
| 326 | color will be adapted to be visible on BG." | 327 | color will be adapted to be visible on BG." |
| 327 | ;; Convert fg and bg to CIE Lab | 328 | ;; Convert fg and bg to CIE Lab |
| 328 | (let ((fg-norm (color-name-to-rgb fg)) | 329 | (let ((fg-norm (color-name-to-rgb fg)) |
| @@ -334,7 +335,7 @@ color will be adapted to be visible on BG." | |||
| 334 | (bg-lab (apply 'color-srgb-to-lab bg-norm)) | 335 | (bg-lab (apply 'color-srgb-to-lab bg-norm)) |
| 335 | ;; Compute color distance using CIE DE 2000 | 336 | ;; Compute color distance using CIE DE 2000 |
| 336 | (fg-bg-distance (color-cie-de2000 fg-lab bg-lab)) | 337 | (fg-bg-distance (color-cie-de2000 fg-lab bg-lab)) |
| 337 | ;; Compute luminance distance (substract L component) | 338 | ;; Compute luminance distance (subtract L component) |
| 338 | (luminance-distance (abs (- (car fg-lab) (car bg-lab))))) | 339 | (luminance-distance (abs (- (car fg-lab) (car bg-lab))))) |
| 339 | (if (and (>= fg-bg-distance shr-color-visible-distance-min) | 340 | (if (and (>= fg-bg-distance shr-color-visible-distance-min) |
| 340 | (>= luminance-distance shr-color-visible-luminance-min)) | 341 | (>= luminance-distance shr-color-visible-luminance-min)) |
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index 827ce047591..4ba5e847981 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -3289,7 +3289,7 @@ | |||
| 3289 | (mh-tick-add-overlay, mh-tick-remove-overlay, mh-notate-tick): | 3289 | (mh-tick-add-overlay, mh-tick-remove-overlay, mh-notate-tick): |
| 3290 | These functions aren't needed any more, since overlays aren't used | 3290 | These functions aren't needed any more, since overlays aren't used |
| 3291 | any more. Also overlays aren't portable to XEmacs, so nasty | 3291 | any more. Also overlays aren't portable to XEmacs, so nasty |
| 3292 | conditional code that used overlays in Emacs and extents in Xemacs | 3292 | conditional code that used overlays in Emacs and extents in XEmacs |
| 3293 | have been eliminated. | 3293 | have been eliminated. |
| 3294 | (mh-toggle-tick): Generalize it to work on a range of messages | 3294 | (mh-toggle-tick): Generalize it to work on a range of messages |
| 3295 | like the other interactive messages. | 3295 | like the other interactive messages. |
| @@ -9445,7 +9445,7 @@ | |||
| 9445 | Non-fatal depencencies on the mm-decode, mm-uu and mm-view | 9445 | Non-fatal depencencies on the mm-decode, mm-uu and mm-view |
| 9446 | libraries. | 9446 | libraries. |
| 9447 | 9447 | ||
| 9448 | 2002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> | 9448 | 2002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> |
| 9449 | 9449 | ||
| 9450 | * mh-utils.el (mh-require, mh-autoload): Remove these macros. | 9450 | * mh-utils.el (mh-require, mh-autoload): Remove these macros. |
| 9451 | (mh-decode-mime): Initialized to t iff the mm-decode library is | 9451 | (mh-decode-mime): Initialized to t iff the mm-decode library is |
| @@ -9455,8 +9455,8 @@ | |||
| 9455 | 2002-07-15 Mark D Baushke <mdb@gnu.org> | 9455 | 2002-07-15 Mark D Baushke <mdb@gnu.org> |
| 9456 | 9456 | ||
| 9457 | * mh-utils.el (mh-update-scan-format): Rewrite for compatibility | 9457 | * mh-utils.el (mh-update-scan-format): Rewrite for compatibility |
| 9458 | with Xemacs as replace-match appears not to have identical | 9458 | with XEmacs as replace-match appears not to have identical |
| 9459 | functionality with FSF emacs. | 9459 | functionality with GNU Emacs. |
| 9460 | (mh-scan-msg-format-regexp): Deleted. This regexp is now hardcoded | 9460 | (mh-scan-msg-format-regexp): Deleted. This regexp is now hardcoded |
| 9461 | into the mh-update-scan-format function. | 9461 | into the mh-update-scan-format function. |
| 9462 | 9462 | ||
| @@ -10337,7 +10337,7 @@ | |||
| 10337 | arguments in XEmacs. | 10337 | arguments in XEmacs. |
| 10338 | (mh-send-letter): sendmail-coding-system not bound in XEmacs. | 10338 | (mh-send-letter): sendmail-coding-system not bound in XEmacs. |
| 10339 | (mh-send-letter): default-buffer-file-coding-system not bound in | 10339 | (mh-send-letter): default-buffer-file-coding-system not bound in |
| 10340 | Xemacs. | 10340 | XEmacs. |
| 10341 | 10341 | ||
| 10342 | * mh-e.el (mh-delete-msg, mh-refile-msg, mh-undo): | 10342 | * mh-e.el (mh-delete-msg, mh-refile-msg, mh-undo): |
| 10343 | transient-mark-mode not bound in XEmacs. The feature of | 10343 | transient-mark-mode not bound in XEmacs. The feature of |
diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index d19ba47aa3f..d55e5ce23b4 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el | |||
| @@ -71,7 +71,7 @@ | |||
| 71 | ;; / can delimit regexes or be a division operator. By default we assume | 71 | ;; / can delimit regexes or be a division operator. By default we assume |
| 72 | ;; that it is a division sign, and fix the regexp operator cases with | 72 | ;; that it is a division sign, and fix the regexp operator cases with |
| 73 | ;; `font-lock-syntactic-keywords'. | 73 | ;; `font-lock-syntactic-keywords'. |
| 74 | (modify-syntax-entry ?/ "." st) ; ACM 2002/4/27. | 74 | (modify-syntax-entry ?/ "." st) ; ACM 2002/4/27. |
| 75 | (modify-syntax-entry ?* "." st) | 75 | (modify-syntax-entry ?* "." st) |
| 76 | (modify-syntax-entry ?+ "." st) | 76 | (modify-syntax-entry ?+ "." st) |
| 77 | (modify-syntax-entry ?- "." st) | 77 | (modify-syntax-entry ?- "." st) |
| @@ -195,7 +195,7 @@ | |||
| 195 | ;; Matches the inside of an AWK regexp (i.e. without the enclosing /s) | 195 | ;; Matches the inside of an AWK regexp (i.e. without the enclosing /s) |
| 196 | (defconst c-awk-regexp-without-end-re | 196 | (defconst c-awk-regexp-without-end-re |
| 197 | (concat "/" c-awk-regexp-innards-re)) | 197 | (concat "/" c-awk-regexp-innards-re)) |
| 198 | ;; Matches an AWK regexp up to, but not including, any terminating /. | 198 | ;; Matches an AWK regexp up to, but not including, any terminating /. |
| 199 | (defconst c-awk-one-line-possibly-open-regexp-re | 199 | (defconst c-awk-one-line-possibly-open-regexp-re |
| 200 | (concat "/\\(" c-awk-non-eol-esc-pair-re | 200 | (concat "/\\(" c-awk-non-eol-esc-pair-re |
| 201 | "\\|" c-awk-regexp-one-line-possibly-open-char-list-re | 201 | "\\|" c-awk-regexp-one-line-possibly-open-char-list-re |
| @@ -256,7 +256,7 @@ | |||
| 256 | 256 | ||
| 257 | 257 | ||
| 258 | ;; ACM, 2002/5/29: | 258 | ;; ACM, 2002/5/29: |
| 259 | ;; | 259 | ;; |
| 260 | ;; The next section of code is about determining whether or not an AWK | 260 | ;; The next section of code is about determining whether or not an AWK |
| 261 | ;; statement is complete or not. We use this to indent the following line. | 261 | ;; statement is complete or not. We use this to indent the following line. |
| 262 | ;; The determination is pretty straightforward in C, where a statement ends | 262 | ;; The determination is pretty straightforward in C, where a statement ends |
| @@ -382,7 +382,7 @@ | |||
| 382 | ;; Kludge: If c-backward-syntactic-ws gets stuck at a BOL, it is likely | 382 | ;; Kludge: If c-backward-syntactic-ws gets stuck at a BOL, it is likely |
| 383 | ;; that the previous line contains an unterminated string (without \). In | 383 | ;; that the previous line contains an unterminated string (without \). In |
| 384 | ;; this case, assume that the previous line's c-awk-NL-prop is a $. | 384 | ;; this case, assume that the previous line's c-awk-NL-prop is a $. |
| 385 | ;; | 385 | ;; |
| 386 | ;; POINT MUST BE AT THE START OF A LINE when calling this function. This | 386 | ;; POINT MUST BE AT THE START OF A LINE when calling this function. This |
| 387 | ;; is to ensure that the various backward-comment functions will work | 387 | ;; is to ensure that the various backward-comment functions will work |
| 388 | ;; properly. | 388 | ;; properly. |
| @@ -425,13 +425,13 @@ | |||
| 425 | ;; Calculate and set the value of the c-awk-NL-prop on the immediately | 425 | ;; Calculate and set the value of the c-awk-NL-prop on the immediately |
| 426 | ;; preceding EOL. This may also involve doing the same for several | 426 | ;; preceding EOL. This may also involve doing the same for several |
| 427 | ;; preceding EOLs. | 427 | ;; preceding EOLs. |
| 428 | ;; | 428 | ;; |
| 429 | ;; NOTE that if the property was already set, we return it without | 429 | ;; NOTE that if the property was already set, we return it without |
| 430 | ;; recalculation. (This is by accident rather than design.) | 430 | ;; recalculation. (This is by accident rather than design.) |
| 431 | ;; | 431 | ;; |
| 432 | ;; Return the property which got set (or was already set) on the previous | 432 | ;; Return the property which got set (or was already set) on the previous |
| 433 | ;; line. Return nil if we hit BOB. | 433 | ;; line. Return nil if we hit BOB. |
| 434 | ;; | 434 | ;; |
| 435 | ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. | 435 | ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. |
| 436 | ;; | 436 | ;; |
| 437 | ;; This function might do hidden buffer changes. | 437 | ;; This function might do hidden buffer changes. |
| @@ -492,7 +492,7 @@ | |||
| 492 | ;; if necessary. (As a special case, the property doesn't get set on an | 492 | ;; if necessary. (As a special case, the property doesn't get set on an |
| 493 | ;; empty line at EOB (there's no position to set the property on), but the | 493 | ;; empty line at EOB (there's no position to set the property on), but the |
| 494 | ;; function returns the property value an EOL would have got.) | 494 | ;; function returns the property value an EOL would have got.) |
| 495 | ;; | 495 | ;; |
| 496 | ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. | 496 | ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. |
| 497 | ;; | 497 | ;; |
| 498 | ;; This function might do hidden buffer changes. | 498 | ;; This function might do hidden buffer changes. |
| @@ -566,7 +566,7 @@ | |||
| 566 | ;; this, a new newline inserted after an old newline (e.g. by C-j) would | 566 | ;; this, a new newline inserted after an old newline (e.g. by C-j) would |
| 567 | ;; inherit any c-awk-NL-prop from the old newline. This would be a Bad | 567 | ;; inherit any c-awk-NL-prop from the old newline. This would be a Bad |
| 568 | ;; Thing. This function's action is required by c-put-char-property. | 568 | ;; Thing. This function's action is required by c-put-char-property. |
| 569 | (if (and (boundp 'text-property-default-nonsticky) ; doesn't exist in Xemacs | 569 | (if (and (boundp 'text-property-default-nonsticky) ; doesn't exist in XEmacs |
| 570 | (not (assoc 'c-awk-NL-prop text-property-default-nonsticky))) | 570 | (not (assoc 'c-awk-NL-prop text-property-default-nonsticky))) |
| 571 | (setq text-property-default-nonsticky | 571 | (setq text-property-default-nonsticky |
| 572 | (cons '(c-awk-NL-prop . t) text-property-default-nonsticky)))) | 572 | (cons '(c-awk-NL-prop . t) text-property-default-nonsticky)))) |
| @@ -611,7 +611,7 @@ | |||
| 611 | ;; Go back to the start of the (apparent) current line (or the start of the | 611 | ;; Go back to the start of the (apparent) current line (or the start of the |
| 612 | ;; line containing POS), returning the buffer position of that point. I.e., | 612 | ;; line containing POS), returning the buffer position of that point. I.e., |
| 613 | ;; go back to the last line which doesn't have an escaped EOL before it. | 613 | ;; go back to the last line which doesn't have an escaped EOL before it. |
| 614 | ;; | 614 | ;; |
| 615 | ;; This is guaranteed to be "safe" for syntactic analysis, i.e. outwith any | 615 | ;; This is guaranteed to be "safe" for syntactic analysis, i.e. outwith any |
| 616 | ;; comment, string or regexp. IT MAY WELL BE that this function should not be | 616 | ;; comment, string or regexp. IT MAY WELL BE that this function should not be |
| 617 | ;; executed on a narrowed buffer. | 617 | ;; executed on a narrowed buffer. |
| @@ -823,14 +823,14 @@ | |||
| 823 | ;; Don't overlook the possibility of the buffer change being the "recapturing" | 823 | ;; Don't overlook the possibility of the buffer change being the "recapturing" |
| 824 | ;; of a previously escaped newline. | 824 | ;; of a previously escaped newline. |
| 825 | 825 | ||
| 826 | ;; ACM 2008-02-05: | 826 | ;; ACM 2008-02-05: |
| 827 | (defun c-awk-extend-and-syntax-tablify-region (beg end old-len) | 827 | (defun c-awk-extend-and-syntax-tablify-region (beg end old-len) |
| 828 | ;; Expand the region (BEG END) as needed to (c-new-BEG c-new-END) then put | 828 | ;; Expand the region (BEG END) as needed to (c-new-BEG c-new-END) then put |
| 829 | ;; `syntax-table' properties on this region. | 829 | ;; `syntax-table' properties on this region. |
| 830 | ;; | 830 | ;; |
| 831 | ;; This function is called from an after-change function, BEG END and | 831 | ;; This function is called from an after-change function, BEG END and |
| 832 | ;; OLD-LEN being the standard parameters. | 832 | ;; OLD-LEN being the standard parameters. |
| 833 | ;; | 833 | ;; |
| 834 | ;; Point is undefined both before and after this function call, the buffer | 834 | ;; Point is undefined both before and after this function call, the buffer |
| 835 | ;; has been widened, and match-data saved. The return value is ignored. | 835 | ;; has been widened, and match-data saved. The return value is ignored. |
| 836 | ;; | 836 | ;; |
| @@ -848,7 +848,7 @@ | |||
| 848 | ;; Awk regexps written with help from Peter Galbraith | 848 | ;; Awk regexps written with help from Peter Galbraith |
| 849 | ;; <galbraith@mixing.qc.dfo.ca>. | 849 | ;; <galbraith@mixing.qc.dfo.ca>. |
| 850 | ;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work | 850 | ;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work |
| 851 | ;; in Xemacs 21.4.4. acm 2002/9/19. | 851 | ;; in XEmacs 21.4.4. acm 2002/9/19. |
| 852 | (defconst awk-font-lock-keywords | 852 | (defconst awk-font-lock-keywords |
| 853 | (eval-when-compile | 853 | (eval-when-compile |
| 854 | (list | 854 | (list |
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index fd32e5e956c..81d1c0d2f32 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -2032,7 +2032,7 @@ comment at the start of cc-engine.el for more info." | |||
| 2032 | (defconst c-state-cache-too-far 5000) | 2032 | (defconst c-state-cache-too-far 5000) |
| 2033 | ;; A maximum comfortable scanning distance, e.g. between | 2033 | ;; A maximum comfortable scanning distance, e.g. between |
| 2034 | ;; `c-state-cache-good-pos' and "HERE" (where we call c-parse-state). When | 2034 | ;; `c-state-cache-good-pos' and "HERE" (where we call c-parse-state). When |
| 2035 | ;; this distance is exceeded, we take "emergency meausures", e.g. by clearing | 2035 | ;; this distance is exceeded, we take "emergency measures", e.g. by clearing |
| 2036 | ;; the cache and starting again from point-min or a beginning of defun. This | 2036 | ;; the cache and starting again from point-min or a beginning of defun. This |
| 2037 | ;; value can be tuned for efficiency or set to a lower value for testing. | 2037 | ;; value can be tuned for efficiency or set to a lower value for testing. |
| 2038 | 2038 | ||
| @@ -4219,9 +4219,9 @@ comment at the start of cc-engine.el for more info." | |||
| 4219 | ;; complicated anyway. In this case, lim is only used to detect | 4219 | ;; complicated anyway. In this case, lim is only used to detect |
| 4220 | ;; cpp directives. | 4220 | ;; cpp directives. |
| 4221 | ;; | 4221 | ;; |
| 4222 | ;; Note that there is a bug in Xemacs's buffer-syntactic-context when used in | 4222 | ;; Note that there is a bug in XEmacs's buffer-syntactic-context when used in |
| 4223 | ;; conjunction with syntax-table-properties. The bug is present in, e.g., | 4223 | ;; conjunction with syntax-table-properties. The bug is present in, e.g., |
| 4224 | ;; Xemacs 21.4.4. It manifested itself thus: | 4224 | ;; XEmacs 21.4.4. It manifested itself thus: |
| 4225 | ;; | 4225 | ;; |
| 4226 | ;; Starting with an empty AWK Mode buffer, type | 4226 | ;; Starting with an empty AWK Mode buffer, type |
| 4227 | ;; /regexp/ {<C-j> | 4227 | ;; /regexp/ {<C-j> |
| @@ -4235,7 +4235,7 @@ comment at the start of cc-engine.el for more info." | |||
| 4235 | ;; | 4235 | ;; |
| 4236 | ;; The workaround for this is for the AWK Mode initialisation to switch the | 4236 | ;; The workaround for this is for the AWK Mode initialisation to switch the |
| 4237 | ;; defalias for c-in-literal to c-slow-in-literal. This will slow down other | 4237 | ;; defalias for c-in-literal to c-slow-in-literal. This will slow down other |
| 4238 | ;; cc-modes in Xemacs whenever an awk-buffer has been initialised. | 4238 | ;; cc-modes in XEmacs whenever an awk-buffer has been initialised. |
| 4239 | ;; | 4239 | ;; |
| 4240 | ;; (Alan Mackenzie, 2003/4/30). | 4240 | ;; (Alan Mackenzie, 2003/4/30). |
| 4241 | 4241 | ||
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index a6bf241f0db..d93d174047b 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el | |||
| @@ -484,7 +484,7 @@ that requires a literal mode spec at compile time." | |||
| 484 | (make-local-variable 'comment-start) | 484 | (make-local-variable 'comment-start) |
| 485 | (make-local-variable 'comment-end) | 485 | (make-local-variable 'comment-end) |
| 486 | (make-local-variable 'comment-start-skip) | 486 | (make-local-variable 'comment-start-skip) |
| 487 | 487 | ||
| 488 | (make-local-variable 'paragraph-start) | 488 | (make-local-variable 'paragraph-start) |
| 489 | (make-local-variable 'paragraph-separate) | 489 | (make-local-variable 'paragraph-separate) |
| 490 | (make-local-variable 'paragraph-ignore-fill-prefix) | 490 | (make-local-variable 'paragraph-ignore-fill-prefix) |
| @@ -660,7 +660,7 @@ compatible with old code; callers should always specify it." | |||
| 660 | (when (eq (car elt) 'c-file-style) | 660 | (when (eq (car elt) 'c-file-style) |
| 661 | (setq cownt (1+ cownt)))) | 661 | (setq cownt (1+ cownt)))) |
| 662 | cownt)) | 662 | cownt)) |
| 663 | 663 | ||
| 664 | (defun c-before-hack-hook () | 664 | (defun c-before-hack-hook () |
| 665 | "Set the CC Mode style and \"offsets\" when in the buffer's local variables. | 665 | "Set the CC Mode style and \"offsets\" when in the buffer's local variables. |
| 666 | They are set only when, respectively, the pseudo variables | 666 | They are set only when, respectively, the pseudo variables |
| @@ -860,7 +860,7 @@ Note that the style variables are always made local to the buffer." | |||
| 860 | ;; (i) Extend the font lock region to cover all changed preprocessor | 860 | ;; (i) Extend the font lock region to cover all changed preprocessor |
| 861 | ;; regions; it does this by setting the variables `c-new-BEG' and | 861 | ;; regions; it does this by setting the variables `c-new-BEG' and |
| 862 | ;; `c-new-END' to the new boundaries. | 862 | ;; `c-new-END' to the new boundaries. |
| 863 | ;; | 863 | ;; |
| 864 | ;; (ii) "Neutralize" every preprocessor line wholly or partially in the | 864 | ;; (ii) "Neutralize" every preprocessor line wholly or partially in the |
| 865 | ;; extended changed region. "Restore" lines which were CPP lines before the | 865 | ;; extended changed region. "Restore" lines which were CPP lines before the |
| 866 | ;; change and are no longer so; these can be located from the Buffer local | 866 | ;; change and are no longer so; these can be located from the Buffer local |
| @@ -1562,7 +1562,7 @@ Key bindings: | |||
| 1562 | (c-common-init 'awk-mode) | 1562 | (c-common-init 'awk-mode) |
| 1563 | (c-awk-unstick-NL-prop) | 1563 | (c-awk-unstick-NL-prop) |
| 1564 | 1564 | ||
| 1565 | ;; Prevent Xemacs's buffer-syntactic-context being used. See the comment | 1565 | ;; Prevent XEmacs's buffer-syntactic-context being used. See the comment |
| 1566 | ;; in cc-engine.el, just before (defun c-fast-in-literal ... | 1566 | ;; in cc-engine.el, just before (defun c-fast-in-literal ... |
| 1567 | (defalias 'c-in-literal 'c-slow-in-literal) | 1567 | (defalias 'c-in-literal 'c-slow-in-literal) |
| 1568 | 1568 | ||
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 0556741b65b..13858ad0da1 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1512,7 +1512,7 @@ the last)." | |||
| 1512 | (defvar cperl-font-locking nil) | 1512 | (defvar cperl-font-locking nil) |
| 1513 | 1513 | ||
| 1514 | ;; NB as it stands the code in cperl-mode assumes this only has one | 1514 | ;; NB as it stands the code in cperl-mode assumes this only has one |
| 1515 | ;; element. If Xemacs 19 support were dropped, this could all be simplified. | 1515 | ;; element. If XEmacs 19 support were dropped, this could all be simplified. |
| 1516 | (defvar cperl-compilation-error-regexp-alist | 1516 | (defvar cperl-compilation-error-regexp-alist |
| 1517 | ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS). | 1517 | ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS). |
| 1518 | '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]" | 1518 | '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]" |
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index ecd3b4af360..00466b8b1e7 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -292,7 +292,7 @@ STRING should be given if the last search was by `string-match' on STRING." | |||
| 292 | "Filter `easy-menu-define' MENU to support new features." | 292 | "Filter `easy-menu-define' MENU to support new features." |
| 293 | (cond ((not (featurep 'xemacs)) | 293 | (cond ((not (featurep 'xemacs)) |
| 294 | menu) ;; GNU Emacs - passthru | 294 | menu) ;; GNU Emacs - passthru |
| 295 | ;; Xemacs doesn't support :help. Strip it. | 295 | ;; XEmacs doesn't support :help. Strip it. |
| 296 | ;; Recursively filter the a submenu | 296 | ;; Recursively filter the a submenu |
| 297 | ((listp menu) | 297 | ((listp menu) |
| 298 | (mapcar 'verilog-easy-menu-filter menu)) | 298 | (mapcar 'verilog-easy-menu-filter menu)) |
| @@ -737,7 +737,7 @@ See `compilation-error-regexp-alist' for the formatting. For Emacs 22+.") | |||
| 737 | (defvar verilog-error-regexp-xemacs-alist | 737 | (defvar verilog-error-regexp-xemacs-alist |
| 738 | ;; Emacs form is '((v-tool "re" 1 2) ...) | 738 | ;; Emacs form is '((v-tool "re" 1 2) ...) |
| 739 | ;; XEmacs form is '(verilog ("re" 1 2) ...) | 739 | ;; XEmacs form is '(verilog ("re" 1 2) ...) |
| 740 | ;; So we can just map from Emacs to Xemacs | 740 | ;; So we can just map from Emacs to XEmacs |
| 741 | (cons 'verilog (mapcar 'cdr verilog-error-regexp-emacs-alist)) | 741 | (cons 'verilog (mapcar 'cdr verilog-error-regexp-emacs-alist)) |
| 742 | "List of regexps for Verilog compilers. | 742 | "List of regexps for Verilog compilers. |
| 743 | See `compilation-error-regexp-alist-alist' for the formatting. For XEmacs.") | 743 | See `compilation-error-regexp-alist-alist' for the formatting. For XEmacs.") |
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8 index 0bb96b55c30..00e4a1f62c8 100644 --- a/src/ChangeLog.8 +++ b/src/ChangeLog.8 | |||
| @@ -2196,7 +2196,7 @@ | |||
| 2196 | 2196 | ||
| 2197 | 1999-09-14 Gerd Moellmann <gerd@gnu.org> | 2197 | 1999-09-14 Gerd Moellmann <gerd@gnu.org> |
| 2198 | 2198 | ||
| 2199 | * sound.c (Fplay_sound): Remove usused variables. | 2199 | * sound.c (Fplay_sound): Remove unused variables. |
| 2200 | (be2hs): Put in #if 0 because it's currently not used. | 2200 | (be2hs): Put in #if 0 because it's currently not used. |
| 2201 | 2201 | ||
| 2202 | 1999-09-14 Ken Raeburn <raeburn@gnu.org> | 2202 | 1999-09-14 Ken Raeburn <raeburn@gnu.org> |
diff --git a/src/ralloc.c b/src/ralloc.c index 50d322523c1..62189ad8fc7 100644 --- a/src/ralloc.c +++ b/src/ralloc.c | |||
| @@ -219,13 +219,13 @@ find_heap (POINTER address) | |||
| 219 | If enough space is not presently available in our reserve, this means | 219 | If enough space is not presently available in our reserve, this means |
| 220 | getting more page-aligned space from the system. If the returned space | 220 | getting more page-aligned space from the system. If the returned space |
| 221 | is not contiguous to the last heap, allocate a new heap, and append it | 221 | is not contiguous to the last heap, allocate a new heap, and append it |
| 222 | to the heap list. | ||
| 222 | 223 | ||
| 223 | obtain does not try to keep track of whether space is in use | 224 | obtain does not try to keep track of whether space is in use or not |
| 224 | or not in use. It just returns the address of SIZE bytes that | 225 | in use. It just returns the address of SIZE bytes that fall within a |
| 225 | fall within a single heap. If you call obtain twice in a row | 226 | single heap. If you call obtain twice in a row with the same arguments, |
| 226 | with the same arguments, you typically get the same value. | 227 | you typically get the same value. It's the caller's responsibility to |
| 227 | to the heap list. It's the caller's responsibility to keep | 228 | keep track of what space is in use. |
| 228 | track of what space is in use. | ||
| 229 | 229 | ||
| 230 | Return the address of the space if all went well, or zero if we couldn't | 230 | Return the address of the space if all went well, or zero if we couldn't |
| 231 | allocate the memory. */ | 231 | allocate the memory. */ |
| @@ -389,7 +389,7 @@ find_bloc (POINTER *ptr) | |||
| 389 | while (p != NIL_BLOC) | 389 | while (p != NIL_BLOC) |
| 390 | { | 390 | { |
| 391 | /* Consistency check. Don't return inconsistent blocs. | 391 | /* Consistency check. Don't return inconsistent blocs. |
| 392 | Don't abort here, as callers might be expecting this, but | 392 | Don't abort here, as callers might be expecting this, but |
| 393 | callers that always expect a bloc to be returned should abort | 393 | callers that always expect a bloc to be returned should abort |
| 394 | if one isn't to avoid a memory corruption bug that is | 394 | if one isn't to avoid a memory corruption bug that is |
| 395 | difficult to track down. */ | 395 | difficult to track down. */ |
| @@ -1180,7 +1180,7 @@ r_alloc_reset_variable (POINTER *old, POINTER *new) | |||
| 1180 | 1180 | ||
| 1181 | /* Find the bloc that corresponds to the data pointed to by pointer. | 1181 | /* Find the bloc that corresponds to the data pointed to by pointer. |
| 1182 | find_bloc cannot be used, as it has internal consistency checks | 1182 | find_bloc cannot be used, as it has internal consistency checks |
| 1183 | which fail when the variable needs reseting. */ | 1183 | which fail when the variable needs resetting. */ |
| 1184 | while (bloc != NIL_BLOC) | 1184 | while (bloc != NIL_BLOC) |
| 1185 | { | 1185 | { |
| 1186 | if (bloc->data == *new) | 1186 | if (bloc->data == *new) |
diff --git a/src/xterm.h b/src/xterm.h index e10a6bc34f0..1d2ce9a2d3c 100644 --- a/src/xterm.h +++ b/src/xterm.h | |||
| @@ -330,7 +330,7 @@ struct x_display_info | |||
| 330 | ptrdiff_t x_dnd_atoms_length; | 330 | ptrdiff_t x_dnd_atoms_length; |
| 331 | 331 | ||
| 332 | /* Extended window manager hints, Atoms supported by the window manager and | 332 | /* Extended window manager hints, Atoms supported by the window manager and |
| 333 | atoms for settig the window type. */ | 333 | atoms for setting the window type. */ |
| 334 | Atom Xatom_net_supported, Xatom_net_supporting_wm_check; | 334 | Atom Xatom_net_supported, Xatom_net_supporting_wm_check; |
| 335 | Atom *net_supported_atoms; | 335 | Atom *net_supported_atoms; |
| 336 | int nr_net_supported_atoms; | 336 | int nr_net_supported_atoms; |