diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2012-10-09 19:31:37 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2012-10-09 19:34:14 +0200 |
commit | e2e545269a20e01f4f06960c8b430f459b3d96e3 (patch) | |
tree | 8e35d9e8b10af75ac82c6efd3eefafd2f1d61fcf | |
parent | 975b7f4608d2e5933f92497835beaab57a6e83b0 (diff) | |
download | org-mode-e2e545269a20e01f4f06960c8b430f459b3d96e3.tar.gz |
org-reload: bugfix when first element of features is nil
* lisp/org.el (org-reload): Let-bind features and make sure to use the
result of delq and not just the side-effects. Otherwise a
spurious (nil ...) remains at the beginning of the list and leads to
a spurious warning about a possible reload error.
Thanks to Rainer M. Krug for reporting this.
http://permalink.gmane.org/gmane.emacs.orgmode/61429
-rw-r--r-- | lisp/org.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index 4a60e90..410df69 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20006,16 +20006,18 @@ With prefix arg UNCOMPILED, load the uncompiled versions." (if (featurep 'xemacs) "org-colview" "org-colview-xemacs") "^org$" "^org-infojs$" "^org-loaddefs$" "^org-version$") "\\|")) + (feats features) (lfeat (append (sort - (delq nil (mapcar - (lambda (f) - (let ((feature (symbol-name f))) - (if (and (string-match feature-re feature) - (not (string-match remove-re feature))) - feature nil))) - features)) - 'string-lessp) + (setq feats + (delq nil (mapcar + (lambda (f) + (let ((feat (symbol-name f))) + (if (and (string-match feature-re feat) + (not (string-match remove-re feat))) + feat nil))) + feats))) + 'string-lessp) (list "org-version" "org"))) (load-suffixes (if uncompiled (reverse load-suffixes) load-suffixes)) (load-misses ())) |