aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-02-05 11:51:30 +0000
committerJuanma Barranquero2008-02-05 11:51:30 +0000
commit9b9a412286efca8257d18175941b6370115445d6 (patch)
treea0e0d4c08cab2e11fb06defb4d98601e071641f0
parenta7d51a21fbd78c6947e05f703ef2720bef556dee (diff)
downloademacs-9b9a412286efca8257d18175941b6370115445d6.tar.gz
emacs-9b9a412286efca8257d18175941b6370115445d6.zip
*** empty log message ***
-rw-r--r--lisp/emacs-lisp/byte-run.el2
-rw-r--r--lisp/ffap.el2
-rw-r--r--lisp/follow.el2
-rw-r--r--lisp/isearch.el2
4 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 48760d1e77e..ecf2ed57dac 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -227,7 +227,7 @@ In interpreted code, this is entirely equivalent to `progn'."
227;; verbose t, nil byte-compile-verbose 227;; verbose t, nil byte-compile-verbose
228;; optimize t, nil, source, byte byte-compile-optimize 228;; optimize t, nil, source, byte byte-compile-optimize
229;; warnings list of warnings byte-compile-warnings 229;; warnings list of warnings byte-compile-warnings
230;; Legal elements: (callargs redefine free-vars unresolved) 230;; Valid elements: (callargs redefine free-vars unresolved)
231;; file-format emacs18, emacs19 byte-compile-compatibility 231;; file-format emacs18, emacs19 byte-compile-compatibility
232;; 232;;
233;; For example, this might appear at the top of a source file: 233;; For example, this might appear at the top of a source file:
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 3e62f2351c6..aaf92ebe306 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -426,7 +426,7 @@ Returned values:
426 ;; (ffap-machine-p "mathcs" 5678 nil 'ping) 426 ;; (ffap-machine-p "mathcs" 5678 nil 'ping)
427 ;; (ffap-machine-p "foo.bonk" nil nil 'ping) 427 ;; (ffap-machine-p "foo.bonk" nil nil 'ping)
428 ;; (ffap-machine-p "foo.bonk.com" nil nil 'ping) 428 ;; (ffap-machine-p "foo.bonk.com" nil nil 'ping)
429 (if (or (string-match "[^-[:alnum:].]" host) ; Illegal chars (?) 429 (if (or (string-match "[^-[:alnum:].]" host) ; Invalid chars (?)
430 (not (string-match "[^0-9]" host))) ; 1: a number? 2: quick reject 430 (not (string-match "[^0-9]" host))) ; 1: a number? 2: quick reject
431 nil 431 nil
432 (let* ((domain 432 (let* ((domain
diff --git a/lisp/follow.el b/lisp/follow.el
index ea5bf960dd9..e251d4c7b3c 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -300,7 +300,7 @@
300;; above for an example of how to bind the keys the way you like. 300;; above for an example of how to bind the keys the way you like.
301;; 301;;
302;; Please note that the keymap is defined the first time this file is 302;; Please note that the keymap is defined the first time this file is
303;; loaded. Also note that the only legal way to manipulate the 303;; loaded. Also note that the only valid way to manipulate the
304;; keymap is to use `define-key'. Don't change it using `setq' or 304;; keymap is to use `define-key'. Don't change it using `setq' or
305;; similar! 305;; similar!
306 306
diff --git a/lisp/isearch.el b/lisp/isearch.el
index e72df62d7f8..131bde71690 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1461,7 +1461,7 @@ to the barrier."
1461 ;; removes all bracket-sets and groups that might be in the way, as 1461 ;; removes all bracket-sets and groups that might be in the way, as
1462 ;; well as partial \{\} constructs that the code below leaves behind. 1462 ;; well as partial \{\} constructs that the code below leaves behind.
1463 ;; Also skip over postfix operators -- though horrid, 1463 ;; Also skip over postfix operators -- though horrid,
1464 ;; 'ab?\{5,6\}+\{1,2\}*' is perfectly legal. 1464 ;; 'ab?\{5,6\}+\{1,2\}*' is perfectly valid.
1465 (while (and previous 1465 (while (and previous
1466 (or (isearch-error-state frame) 1466 (or (isearch-error-state frame)
1467 (let* ((string (isearch-string-state frame)) 1467 (let* ((string (isearch-string-state frame))