diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-10-11 11:20:29 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-10-11 11:20:29 -0700 |
| commit | a108eaa13c8f2af4d7de9fc788d1b780a5571cd6 (patch) | |
| tree | e7ad65c946e558866c520e9dced530118bd61292 /lisp/registry.el | |
| parent | ce8b4584a3c69e5c4abad8a0a9c3781ce8c0c1f8 (diff) | |
| download | emacs-a108eaa13c8f2af4d7de9fc788d1b780a5571cd6.tar.gz emacs-a108eaa13c8f2af4d7de9fc788d1b780a5571cd6.tar.bz2 emacs-a108eaa13c8f2af4d7de9fc788d1b780a5571cd6.zip | |
Fix bug with precious entries in Gnus registry
* lisp/registry.el (registry-collect-prune-candidates): This `cdr' was
an error: it meant that the last key in the precious list, would be
considered a nil. Since the precious list only contains the symbol
'mark by default, marks were never considered precious.
* doc/misc/gnus.texi (Store arbitrary data): Fix typo: "marks" should
be "mark".
Diffstat (limited to 'lisp/registry.el')
| -rw-r--r-- | lisp/registry.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/registry.el b/lisp/registry.el index 95097a4f1b7..04f3e7b974c 100644 --- a/lisp/registry.el +++ b/lisp/registry.el @@ -358,7 +358,7 @@ return LIMIT such candidates. If SORTFUNC is provided, sort entries first and return candidates from beginning of list." (let* ((precious (oref db precious)) (precious-p (lambda (entry-key) - (cdr (memq (car entry-key) precious)))) + (memq (car entry-key) precious))) (data (oref db data)) (candidates (cl-loop for k being the hash-keys of data using (hash-values v) |