diff options
| -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." | |||
| 887 | (cond | 887 | (cond |
| 888 | ((= 0 (length i)) | 888 | ((= 0 (length i)) |
| 889 | nil) | 889 | nil) |
| 890 | ((eq (aref i 0) ?\ ) | 890 | ((eq (aref i 0) ?\s) |
| 891 | (substring i 1)) | 891 | (substring i 1)) |
| 892 | (t | 892 | (t |
| 893 | i)))) | 893 | i)))) |
| @@ -909,7 +909,7 @@ is currently activated with completion." | |||
| 909 | "Return a minor mode symbol from its indicator on the modeline." | 909 | "Return a minor mode symbol from its indicator on the modeline." |
| 910 | ;; remove first space if existed | 910 | ;; remove first space if existed |
| 911 | (if (and (< 0 (length indicator)) | 911 | (if (and (< 0 (length indicator)) |
| 912 | (eq (aref indicator 0) ?\ )) | 912 | (eq (aref indicator 0) ?\s)) |
| 913 | (setq indicator (substring indicator 1))) | 913 | (setq indicator (substring indicator 1))) |
| 914 | (let ((minor-modes minor-mode-alist) | 914 | (let ((minor-modes minor-mode-alist) |
| 915 | result) | 915 | result) |
| @@ -920,7 +920,7 @@ is currently activated with completion." | |||
| 920 | ;; remove first space if existed | 920 | ;; remove first space if existed |
| 921 | (if (and (stringp anindicator) | 921 | (if (and (stringp anindicator) |
| 922 | (> (length anindicator) 0) | 922 | (> (length anindicator) 0) |
| 923 | (eq (aref anindicator 0) ?\ )) | 923 | (eq (aref anindicator 0) ?\s)) |
| 924 | (setq anindicator (substring anindicator 1))) | 924 | (setq anindicator (substring anindicator 1))) |
| 925 | (if (equal indicator anindicator) | 925 | (if (equal indicator anindicator) |
| 926 | (setq result minor-mode | 926 | (setq result minor-mode |