wgreenhouse/emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Patch from Valery V. Vorotyntsev in emacs-jabber-general

Browse Source
This commit is contained in:
Evgenii Terechkov 2010-02-26 19:15:21 +07:00
parent ea2b0b32ff
commit adf999c9ee
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
jabber-history.el
View File

@ -199,8 +199,14 @@ of the log file."
(if jabber-use-global-history
(insert-file-contents history-file)
(let* ((lines-collected nil)
(matched-files (directory-files jabber-history-dir t (file-name-nondirectory history-file)))
(matched-files (cons (car matched-files) (sort (cdr matched-files) 'string>-numerical))))
(matched-files
(directory-files jabber-history-dir t
(concat "^"
(regexp-quote (file-name-nondirectory
history-file)))))
(matched-files
(cons (car matched-files)
(sort (cdr matched-files) 'string>-numerical))))
(while (not lines-collected)
(if (null matched-files)
(setq lines-collected t)