diff options
| -rw-r--r-- | lisp/ses.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index 9097bf5d819..bcf8bdb6368 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -2495,7 +2495,7 @@ to are recalculated first." | |||
| 2495 | prefix-length) | 2495 | prefix-length) |
| 2496 | (when (and prefix (null (string= prefix ""))) | 2496 | (when (and prefix (null (string= prefix ""))) |
| 2497 | (setq prefix-length (length prefix)) | 2497 | (setq prefix-length (length prefix)) |
| 2498 | (maphash (lambda (key val) | 2498 | (maphash (lambda (key _val) |
| 2499 | (let ((key-name (symbol-name key))) | 2499 | (let ((key-name (symbol-name key))) |
| 2500 | (when (and (>= (length key-name) prefix-length) | 2500 | (when (and (>= (length key-name) prefix-length) |
| 2501 | (string= prefix (substring key-name 0 prefix-length))) | 2501 | (string= prefix (substring key-name 0 prefix-length))) |
| @@ -2648,7 +2648,7 @@ cells." | |||
| 2648 | prefix-length) | 2648 | prefix-length) |
| 2649 | (when prefix | 2649 | (when prefix |
| 2650 | (setq prefix-length (length prefix)) | 2650 | (setq prefix-length (length prefix)) |
| 2651 | (maphash (lambda (key val) | 2651 | (maphash (lambda (key _val) |
| 2652 | (let ((key-name (symbol-name key))) | 2652 | (let ((key-name (symbol-name key))) |
| 2653 | (when (and (>= (length key-name) prefix-length) | 2653 | (when (and (>= (length key-name) prefix-length) |
| 2654 | (string= prefix (substring key-name 0 prefix-length))) | 2654 | (string= prefix (substring key-name 0 prefix-length))) |