Commit 98c0aefe authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Removed unused local variable.

parent 55529e91
2002-02-24 Joel Rosdahl <joel@lysator.liu.se>
* utilities.el (lyskom-find-text-by-date): Removed unused local
variable.
2002-02-24 David Byers <davby@sen2.ida.liu.se> 2002-02-24 David Byers <davby@sen2.ida.liu.se>
* utilities.el (lyskom-find-text-by-date): Fixed assignment to * utilities.el (lyskom-find-text-by-date): Fixed assignment to
...@@ -4972,5 +4977,5 @@ Sun Oct 12 00:39:47 1997 David Byers <davby@litefix.ida.liu.se> ...@@ -4972,5 +4977,5 @@ Sun Oct 12 00:39:47 1997 David Byers <davby@litefix.ida.liu.se>
Local Variables: Local Variables:
outline-regexp:"M\\|T\\|W\\|F\\|S\\|\t\\\*" outline-regexp:"M\\|T\\|W\\|F\\|S\\|\t\\\*"
eval: (ispell-change-dictionary "british") eval: (ispell-change-dictionary "british")
eval: (set-language-environment 'Latin-1) eval: (if (boundp 'set-language-environment) (set-language-environment 'Latin-1))
End: End:
...@@ -1267,8 +1267,7 @@ Returns a cons of (LOCAL . GLOBAL)" ...@@ -1267,8 +1267,7 @@ Returns a cons of (LOCAL . GLOBAL)"
(highest (+ lowest (conf-stat->no-of-texts conf-stat))) (highest (+ lowest (conf-stat->no-of-texts conf-stat)))
(result nil) (result nil)
(index (+ lowest (/ (- highest lowest) 2))) (index (+ lowest (/ (- highest lowest) 2)))
(last-index (1- index)) (last-index (1- index)))
(ix 0))
(while (/= last-index index) (while (/= last-index index)
(let* ((map (blocking-do 'local-to-global (let* ((map (blocking-do 'local-to-global
(conf-stat->conf-no conf-stat) (conf-stat->conf-no conf-stat)
......
Supports Markdown
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