Package: emacs-goodies-el
Version: 24.10-1
Severity: normal
from dict.el:
(defsubst dict-default-dict-entry ()
"Make a guess at a default dict entry.
This guess is based on the text surrounding the cursor."
(let (word)
(save-excursion
(setq word (current-word))
(if (string-match "[._]+$" word)
(setq word (substring word 0 (match-beginning 0))))
word)))
`current-word' can return nil, which causes this function to
error out in the `string-match'. Also, `save-excursion' doesn't
do anything here.
This should be written as:
(defsubst dict-default-dict-entry ()
"Make a guess at the default dict entry.
This guess is based on the text surrounding the cursor."
(let ((word (or (current-word)
"")))
(if (string-match "[._]+$" word)
(substring word 0 (match-beginning 0))
word)))
Greetings,
-- Jorgen
-- System Information:
Debian Release: 3.1
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.10-1-k7
Locale: LANG=en_US, LC_CTYPE=de_DE.utf8 (charmap=UTF-8)
Versions of packages emacs-goodies-el depends on:
ii bash 3.0-14 The GNU Bourne Again SHell
ii emacs21 [emacsen] 21.4a-1 The GNU Emacs editor
ii emacscvs [emacsen] 1.0-1 The GNU Emacs editor, CVS wrapper
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
