diff options
| author | Stefan Kangas | 2019-07-05 20:53:53 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2019-07-13 10:39:42 +0300 |
| commit | 70225ecae1fc3069a59384f2ff3576bbba4e1037 (patch) | |
| tree | 65cf21216065c7ab583e6146afa9d8ad1abfe07c | |
| parent | 3b3e7da601a4d559cde294c537ca5547a387581f (diff) | |
| download | emacs-70225ecae1fc3069a59384f2ff3576bbba4e1037.tar.gz emacs-70225ecae1fc3069a59384f2ff3576bbba4e1037.zip | |
Fix looking up functions like "-e" in cperl-mode
* lisp/progmodes/cperl-mode.el (cperl-perldoc): Handle functions with
leading dash (e.g. "-f"). (Bug#6013)
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 1aa79817916..d5c404c7d2f 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -8382,7 +8382,7 @@ the appropriate statement modifier." | |||
| 8382 | (require 'man) | 8382 | (require 'man) |
| 8383 | (let* ((case-fold-search nil) | 8383 | (let* ((case-fold-search nil) |
| 8384 | (is-func (and | 8384 | (is-func (and |
| 8385 | (string-match "^[a-z]+$" word) | 8385 | (string-match "^\\(-[A-Za-z]\\|[a-z]+\\)$" word) |
| 8386 | (string-match (concat "^" word "\\>") | 8386 | (string-match (concat "^" word "\\>") |
| 8387 | (documentation-property | 8387 | (documentation-property |
| 8388 | 'cperl-short-docs | 8388 | 'cperl-short-docs |