diff options
author | Torsten Hilbrich <torsten.hilbrich@gmx.net> | 2004-10-02 08:31:00 +0200 |
---|---|---|
committer | Torsten Hilbrich <torsten@hilbrich.net> | 2011-08-27 20:47:38 +0200 |
commit | 73347f4e6674220348ec2294cde19ae25819986b (patch) | |
tree | c8f1ce6335973f531f22ebcc5146abda628b6211 /dictionary.el | |
parent | 988ccf5d91893fd5624f1ca6a8805a0ed31bd090 (diff) |
Imported version 1.8.7 from tarball
fixed decoding problem when selecting dictionary (problem reported by
Kuno Strassmann)
Diffstat (limited to 'dictionary.el')
-rwxr-xr-x[-rw-r--r--] | dictionary.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/dictionary.el b/dictionary.el index 896b682..3270616 100644..100755 --- a/dictionary.el +++ b/dictionary.el @@ -2,7 +2,7 @@ ;; Author: Torsten Hilbrich <dictionary@myrkr.in-berlin.de> ;; Keywords: interface, dictionary -;; $Id: dictionary.el,v 1.38 2004/03/05 08:08:30 torsten Exp $ +;; $Id: dictionary.el 338 2004-10-02 06:04:54Z torsten $ ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -829,10 +829,12 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." "Display a single dictionary" (let* ((list (dictionary-split-string string)) (dictionary (car list)) - (description (cadr list))) + (description (cadr list)) + (translated (dictionary-decode-charset description dictionary))) (if dictionary (progn - (link-insert-link description 'dictionary-reference-face + (link-insert-link (concat dictionary ": " translated) + 'dictionary-reference-face 'dictionary-set-dictionary (cons dictionary description) "Mouse-2 to select this dictionary") |