Mercurial > emacs

comparison lisp/emulation/tpu-edt.el @ 14227:04dba88947bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-load-xkeys): Use `convert-standard-filename' to set the name of the key mapping file.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 Jan 1996 22:43:41 +0000
parents 83f275dcd93a
children 1e97bcb05a16
comparison
equal deleted inserted replaced
14226:ad275aca6fc5 14227:04dba88947bc
2365 (cond (file 2365 (cond (file
2366 (setq file (expand-file-name file))) 2366 (setq file (expand-file-name file)))
2367 (tpu-xkeys-file 2367 (tpu-xkeys-file
2368 (setq file (expand-file-name tpu-xkeys-file))) 2368 (setq file (expand-file-name tpu-xkeys-file)))
2369 (tpu-lucid-emacs19-p 2369 (tpu-lucid-emacs19-p
2370 (setq file (expand-file-name "~/.tpu-lucid-keys"))) 2370 (setq file (convert-standard-filename
2371 (expand-file-name "~/.tpu-lucid-keys"))))
2371 (tpu-emacs19-p 2372 (tpu-emacs19-p
2372 (setq file (expand-file-name "~/.tpu-keys")) 2373 (setq file (convert-standard-filename
2374 (expand-file-name "~/.tpu-keys")))
2373 (and (not (file-exists-p file)) 2375 (and (not (file-exists-p file))
2374 (file-exists-p (expand-file-name "~/.tpu-gnu-keys")) 2376 (file-exists-p
2375 (tpu-copy-keyfile (expand-file-name "~/.tpu-gnu-keys") file)))) 2377 (convert-standard-filename
2378 (expand-file-name "~/.tpu-gnu-keys")))
2379 (tpu-copy-keyfile
2380 (convert-standard-filename
2381 (expand-file-name "~/.tpu-gnu-keys") file)))))
2376 (cond ((file-readable-p file) 2382 (cond ((file-readable-p file)
2377 (load-file file)) 2383 (load-file file))
2378 (t 2384 (t
2379 (switch-to-buffer "*scratch*") 2385 (switch-to-buffer "*scratch*")
2380 (erase-buffer) 2386 (erase-buffer)