Skip to content

Commit

Permalink
Fix Emacs21 issue with muse-insert-tag.
Browse files Browse the repository at this point in the history
* lisp/muse-mode.el (muse-insert-tag): Pass a list of lists to
  completing-read to appease older Emacsen.
git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-110
  • Loading branch information
mwolson committed Jul 8, 2005
1 parent 1a17c25 commit c6d4620
Show file tree
Hide file tree
Showing 2 changed files with 16 additions and 2 deletions.
14 changes: 14 additions & 0 deletions ChangeLog
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,20 @@
# arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0
#

2005-07-08 22:57:55 GMT Michael Olson <mwolson@gnu.org> patch-110

Summary:
Fix Emacs21 issue with muse-insert-tag.
Revision:
muse--main--1.0--patch-110

* lisp/muse-mode.el (muse-insert-tag): Pass a list of lists to
completing-read to appease older Emacsen.

modified files:
ChangeLog lisp/muse-mode.el


2005-07-08 22:55:20 GMT Michael Olson <mwolson@gnu.org> patch-109

Summary:
Expand Down
4 changes: 2 additions & 2 deletions lisp/muse-mode.el
Original file line number Diff line number Diff line change
Expand Up @@ -475,8 +475,8 @@ function, you might want to set this manually.")
(concat "Tag: "
(when muse-tag-history
(concat "(default: " (car muse-tag-history) ") ")))
(nconc (mapcar 'car muse-publish-markup-tags)
muse-custom-tags)
(mapcar 'list (nconc (mapcar 'car muse-publish-markup-tags)
muse-custom-tags))
nil nil nil 'muse-tag-history
(car muse-tag-history))))
(when (equal tag "")
Expand Down

0 comments on commit c6d4620

Please sign in to comment.