diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-27 13:52:27 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-27 13:52:27 +0000 |
| commit | 94318c8a1f10a32eed7dc58fe03c09ff0daccd97 (patch) | |
| tree | df30dfa955b4df6b7313387c1e8f9b3ae9b93720 /lisp/help.el | |
| parent | 5949f09808a55c9f910d897c83f518556cada595 (diff) | |
| download | emacs-94318c8a1f10a32eed7dc58fe03c09ff0daccd97.tar.gz | |
(describe-minor-mode-completion-table-for-indicator,
lookup-minor-mode-from-indicator): "?\ " -> "?\s".
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 08899d61415..8c0f92f48ff 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -887,7 +887,7 @@ appeared on the mode-line." (cond ((= 0 (length i)) nil) - ((eq (aref i 0) ?\ ) + ((eq (aref i 0) ?\s) (substring i 1)) (t i)))) @@ -909,7 +909,7 @@ is currently activated with completion." "Return a minor mode symbol from its indicator on the modeline." ;; remove first space if existed (if (and (< 0 (length indicator)) - (eq (aref indicator 0) ?\ )) + (eq (aref indicator 0) ?\s)) (setq indicator (substring indicator 1))) (let ((minor-modes minor-mode-alist) result) @@ -920,7 +920,7 @@ is currently activated with completion." ;; remove first space if existed (if (and (stringp anindicator) (> (length anindicator) 0) - (eq (aref anindicator 0) ?\ )) + (eq (aref anindicator 0) ?\s)) (setq anindicator (substring anindicator 1))) (if (equal indicator anindicator) (setq result minor-mode |