comparison lisp/view.el @ 2443:fa26210d3028

(view-exit): Use local map view-old-local-map, not (current-local-map).
author Roland McGrath <roland@gnu.org>
date Wed, 31 Mar 1993 23:12:07 +0000
parents d98c49df2acd
children 5a563f113d6a
comparison
equal deleted inserted replaced
2442:f692546797f9 2443:fa26210d3028
266 (interactive) 266 (interactive)
267 (setq mode-line-buffer-identification 267 (setq mode-line-buffer-identification
268 view-old-mode-line-buffer-identification) 268 view-old-mode-line-buffer-identification)
269 (setq major-mode view-old-major-mode) 269 (setq major-mode view-old-major-mode)
270 (setq mode-name view-old-mode-name) 270 (setq mode-name view-old-mode-name)
271 (use-local-map (current-local-map)) 271 (use-local-map view-old-local-map)
272 (setq buffer-read-only view-old-buffer-read-only) 272 (setq buffer-read-only view-old-buffer-read-only)
273 273
274 (goto-char view-exit-position) 274 (goto-char view-exit-position)
275 (set-marker view-exit-position nil) 275 (set-marker view-exit-position nil)
276 276