Mercurial > emacs
comparison lisp/info.el @ 11580:7f357fe2cda5
(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:28:58 +0000 |
| parents | 7956811d4d9a |
| children | 51816af03215 |
comparison
equal
deleted
inserted
replaced
| 11579:28e4495a9e8f | 11580:7f357fe2cda5 |
|---|---|
| 1559 (use-local-map Info-edit-map) | 1559 (use-local-map Info-edit-map) |
| 1560 (setq major-mode 'Info-edit-mode) | 1560 (setq major-mode 'Info-edit-mode) |
| 1561 (setq mode-name "Info Edit") | 1561 (setq mode-name "Info Edit") |
| 1562 (kill-local-variable 'mode-line-buffer-identification) | 1562 (kill-local-variable 'mode-line-buffer-identification) |
| 1563 (setq buffer-read-only nil) | 1563 (setq buffer-read-only nil) |
| 1564 ;; Make mode line update. | 1564 (force-mode-line-update) |
| 1565 (set-buffer-modified-p (buffer-modified-p)) | |
| 1566 (buffer-enable-undo (current-buffer)) | 1565 (buffer-enable-undo (current-buffer)) |
| 1567 (run-hooks 'Info-edit-mode-hook)) | 1566 (run-hooks 'Info-edit-mode-hook)) |
| 1568 | 1567 |
| 1569 (defun Info-edit () | 1568 (defun Info-edit () |
| 1570 "Edit the contents of this Info node. | 1569 "Edit the contents of this Info node. |
| 1586 (use-local-map Info-mode-map) | 1585 (use-local-map Info-mode-map) |
| 1587 (setq major-mode 'Info-mode) | 1586 (setq major-mode 'Info-mode) |
| 1588 (setq mode-name "Info") | 1587 (setq mode-name "Info") |
| 1589 (Info-set-mode-line) | 1588 (Info-set-mode-line) |
| 1590 (setq buffer-read-only t) | 1589 (setq buffer-read-only t) |
| 1591 ;; Make mode line update. | 1590 (force-mode-line-update) |
| 1592 (set-buffer-modified-p (buffer-modified-p)) | |
| 1593 (and (marker-position Info-tag-table-marker) | 1591 (and (marker-position Info-tag-table-marker) |
| 1594 (buffer-modified-p) | 1592 (buffer-modified-p) |
| 1595 (message "Tags may have changed. Use Info-tagify if necessary"))) | 1593 (message "Tags may have changed. Use Info-tagify if necessary"))) |
| 1596 | 1594 |
| 1597 (defun Info-find-emacs-command-nodes (command) | 1595 (defun Info-find-emacs-command-nodes (command) |