summaryrefslogtreecommitdiff
path: root/dictionary.el
diff options
context:
space:
mode:
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")