aboutsummaryrefslogtreecommitdiff
path: root/dictionary.el
diff options
context:
space:
mode:
authorTorsten Hilbrich <torsten.hilbrich@gmx.net>2004-10-02 08:31:00 +0200
committerTorsten Hilbrich <torsten@hilbrich.net>2011-08-27 20:47:38 +0200
commit73347f4e6674220348ec2294cde19ae25819986b (patch)
treec8f1ce6335973f531f22ebcc5146abda628b6211 /dictionary.el
parent988ccf5d91893fd5624f1ca6a8805a0ed31bd090 (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.el8
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")