Commit bd21bf41 authored by Juri Linkov's avatar Juri Linkov
Browse files

Misc small fixes.

* doc/lispref/searching.texi (String Search): Incremental word search fixes.

* lisp/sort.el (delete-duplicate-lines): Remove `:weakness 'key'
from `make-hash-table'.

* lisp/textmodes/ispell.el (ispell-init-process): Change message format
to be consistent with other messages.
parent 579d49fa
...@@ -235,7 +235,7 @@ Move backward one word (@code{backward-word}). ...@@ -235,7 +235,7 @@ Move backward one word (@code{backward-word}).
@kindex C-LEFT @kindex C-LEFT
@kindex M-LEFT @kindex M-LEFT
@findex left-word @findex left-word
This command (@code{left-word}) behaves like @kbd{M-f}, except it This command (@code{left-word}) behaves like @kbd{M-b}, except it
moves @emph{forward} by one word if the current paragraph is moves @emph{forward} by one word if the current paragraph is
right-to-left. @xref{Bidirectional Editing}. right-to-left. @xref{Bidirectional Editing}.
......
2014-01-31 Juri Linkov <juri@jurta.org>
* searching.texi (String Search): Incremental word search fixes.
2014-01-28 Glenn Morris <rgm@gnu.org> 2014-01-28 Glenn Morris <rgm@gnu.org>
* text.texi (Indent Tabs): Update related to tab-stops. * text.texi (Indent Tabs): Update related to tab-stops.
......
...@@ -137,7 +137,7 @@ the ball boy!" ...@@ -137,7 +137,7 @@ the ball boy!"
@group @group
(word-search-forward "Please find the ball, boy.") (word-search-forward "Please find the ball, boy.")
@result{} 36 @result{} 39
---------- Buffer: foo ---------- ---------- Buffer: foo ----------
He said "Please! Find He said "Please! Find
...@@ -160,16 +160,17 @@ If @var{repeat} is non-@code{nil}, then the search is repeated that many ...@@ -160,16 +160,17 @@ If @var{repeat} is non-@code{nil}, then the search is repeated that many
times. Point is positioned at the end of the last match. times. Point is positioned at the end of the last match.
@findex word-search-regexp @findex word-search-regexp
Internal, @code{word-search-forward} and related functions use the Internally, @code{word-search-forward} and related functions use the
function @code{word-search-regexp} to convert @var{string} to a function @code{word-search-regexp} to convert @var{string} to a
regular expression that ignores punctuation. regular expression that ignores punctuation.
@end deffn @end deffn
@deffn Command word-search-forward-lax string &optional limit noerror repeat @deffn Command word-search-forward-lax string &optional limit noerror repeat
This command is identical to @code{word-search-forward}, except that This command is identical to @code{word-search-forward}, except that
the end of @var{string} need not match a word boundary, unless @var{string} ends the beginning or the end of @var{string} need not match a word
in whitespace. For instance, searching for @samp{ball boy} matches boundary, unless @var{string} begins or ends in whitespace.
@samp{ball boyee}, but does not match @samp{aball boy}. For instance, searching for @samp{ball boy} matches @samp{ball boyee},
but does not match @samp{balls boy}.
@end deffn @end deffn
@deffn Command word-search-backward string &optional limit noerror repeat @deffn Command word-search-backward string &optional limit noerror repeat
...@@ -181,8 +182,8 @@ beginning of the match. ...@@ -181,8 +182,8 @@ beginning of the match.
@deffn Command word-search-backward-lax string &optional limit noerror repeat @deffn Command word-search-backward-lax string &optional limit noerror repeat
This command is identical to @code{word-search-backward}, except that This command is identical to @code{word-search-backward}, except that
the end of @var{string} need not match a word boundary, unless @var{string} ends the beginning or the end of @var{string} need not match a word
in whitespace. boundary, unless @var{string} begins or ends in whitespace.
@end deffn @end deffn
@node Searching and Case @node Searching and Case
......
...@@ -244,11 +244,11 @@ and this variable has been marked obsolete. ...@@ -244,11 +244,11 @@ and this variable has been marked obsolete.
** `emacs-bzr-version' has been renamed to `emacs-repository-version', ** `emacs-bzr-version' has been renamed to `emacs-repository-version',
and works for git too, if you fetch the repository notes. and works for git too, if you fetch the repository notes.
** `read-regexp-defaults-function' defines a function to read regexps, ** `read-regexp-defaults-function' defines a function to provide default
used by commands like `rgrep', `lgrep' `occur', `highlight-regexp', etc. values for reading regexps by commands like `rgrep', `lgrep' `occur',
You can customize this to specify a function that provides a default `highlight-regexp', etc. You can customize this to specify a function
value from the regexp last history element, or from the symbol found that provides a default value from the regexp last history element,
at point. or from the symbol found at point.
+++ +++
** New option `load-prefer-newer' affects how the `load' function chooses ** New option `load-prefer-newer' affects how the `load' function chooses
......
...@@ -72,13 +72,18 @@ Grep finished (matches found) at Thu Jul 21 15:02:15 ...@@ -72,13 +72,18 @@ Grep finished (matches found) at Thu Jul 21 15:02:15
agrep -n "INFO tree" ../info/* agrep -n "INFO tree" ../info/*
../info/dir: 6: File: dir Node: Top This is the top of the INFO tree ../info/dir: 6: File: dir Node: Top This is the top of the INFO tree
* bzr grep with Bazaar plugin [grep]
bzr grep --color=always -in "org-element-map"
lisp/org/org.el:21047: (org-element-map
* git-grep * git-grep
with `[diff "el"] xfuncname = "^(\\(.*)$"' in .gitconfig with `[diff "el"] xfuncname = "^(\\(.*)$"' in .gitconfig
and `*.el diff=el' in .gitattributes and `*.el diff=el' in .gitattributes
git grep -inH -p -e "org-element-map" git --no-pager grep -inH -p -e "org-element-map"
lisp/org/org.el=20969=(defun org-fill-paragraph (&optional justify) lisp/org/org.el=20969=(defun org-fill-paragraph (&optional justify)
lisp/org/org.el:21047: (org-element-map lisp/org/org.el:21047: (org-element-map
* unknown greps * unknown greps
......
2014-01-31 Juri Linkov <juri@jurta.org>
* sort.el (delete-duplicate-lines): Remove `:weakness 'key'
from `make-hash-table'.
* textmodes/ispell.el (ispell-init-process): Change message format
to be consistent with other messages.
2014-01-31 Glenn Morris <rgm@gnu.org> 2014-01-31 Glenn Morris <rgm@gnu.org>
* delsel.el (delete-selection-mode): Doc fix. * delsel.el (delete-selection-mode): Doc fix.
......
...@@ -595,7 +595,7 @@ is non-nil, it also prints a message describing the number of deletions." ...@@ -595,7 +595,7 @@ is non-nil, it also prints a message describing the number of deletions."
(equal current-prefix-arg '(16)) (equal current-prefix-arg '(16))
(equal current-prefix-arg '(64)) (equal current-prefix-arg '(64))
t))) t)))
(let ((lines (unless adjacent (make-hash-table :weakness 'key :test 'equal))) (let ((lines (unless adjacent (make-hash-table :test 'equal)))
line prev-line line prev-line
(count 0) (count 0)
(beg (copy-marker beg)) (beg (copy-marker beg))
......
...@@ -3025,7 +3025,7 @@ Keeps argument list for future Ispell invocations for no async support." ...@@ -3025,7 +3025,7 @@ Keeps argument list for future Ispell invocations for no async support."
(setq ispell-filter nil ispell-filter-continue nil) (setq ispell-filter nil ispell-filter-continue nil)
;; may need to restart to select new personal dictionary. ;; may need to restart to select new personal dictionary.
(ispell-kill-ispell t) (ispell-kill-ispell t)
(message "Starting new Ispell process [%s::%s] ..." (message "Starting new Ispell process %s with %s dictionary..."
ispell-program-name ispell-program-name
(or ispell-local-dictionary ispell-dictionary "default")) (or ispell-local-dictionary ispell-dictionary "default"))
(sit-for 0) (sit-for 0)
......
...@@ -308,7 +308,7 @@ invoke it. If KEYS is omitted or nil, the return value of ...@@ -308,7 +308,7 @@ invoke it. If KEYS is omitted or nil, the return value of
specs = Qnil; specs = Qnil;
string = 0; string = 0;
/* The idea of FILTER_SPECS is to provide away to /* The idea of FILTER_SPECS is to provide a way to
specify how to represent the arguments in command history. specify how to represent the arguments in command history.
The feature is not fully implemented. */ The feature is not fully implemented. */
filter_specs = Qnil; filter_specs = Qnil;
......
...@@ -2365,7 +2365,7 @@ usage: (<= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS) */) ...@@ -2365,7 +2365,7 @@ usage: (<= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS) */)
DEFUN (">=", Fgeq, Sgeq, 1, MANY, 0, DEFUN (">=", Fgeq, Sgeq, 1, MANY, 0,
doc: /* Return t if each arg is greater than or equal to the next arg. doc: /* Return t if each arg is greater than or equal to the next arg.
All must be numbers or markers. All must be numbers or markers.
usage: (= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS) */) usage: (>= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS) */)
(ptrdiff_t nargs, Lisp_Object *args) (ptrdiff_t nargs, Lisp_Object *args)
{ {
return arithcompare_driver (nargs, args, ARITH_GRTR_OR_EQUAL); return arithcompare_driver (nargs, args, ARITH_GRTR_OR_EQUAL);
......
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