Mercurial > emacs

comparison lisp/emulation/viper-macs.el @ 14384:854325337547

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved code around to minimize compiler warnings.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Fri, 26 Jan 1996 23:34:09 +0000
parents ad54c20b5e62
children 20e489e1a0ef
comparison
equal deleted inserted replaced
14383:af281a43a3bb 14384:854325337547
152 (setq message 152 (setq message
153 (format ":map%s %s" 153 (format ":map%s %s"
154 variant (if (> (length key-seq) 0) 154 variant (if (> (length key-seq) 0)
155 (prin1-to-string (vip-display-macro key-seq)) 155 (prin1-to-string (vip-display-macro key-seq))
156 ""))) 156 "")))
157 (message "%s" message) 157 (message message)
158 (setq event (vip-read-key)) 158 (setq event (vip-read-key))
159 ;;(setq event (vip-read-event)) 159 ;;(setq event (vip-read-event))
160 (setq key 160 (setq key
161 (if (vip-mouse-event-p event) 161 (if (vip-mouse-event-p event)
162 (progn 162 (progn
227 (format ":unmap%s %s" 227 (format ":unmap%s %s"
228 variant (if (> (length key-seq) 0) 228 variant (if (> (length key-seq) 0)
229 (prin1-to-string 229 (prin1-to-string
230 (vip-display-macro key-seq)) 230 (vip-display-macro key-seq))
231 ""))) 231 "")))
232 (message "%s" message) 232 (message message)
233 (setq event (vip-read-key)) 233 (setq event (vip-read-key))
234 ;;(setq event (vip-read-event)) 234 ;;(setq event (vip-read-event))
235 (setq key 235 (setq key
236 (if (vip-mouse-event-p event) 236 (if (vip-mouse-event-p event)
237 (progn 237 (progn
407 (format "%S" macro-body) 407 (format "%S" macro-body)
408 macro-body) 408 macro-body)
409 scope) 409 scope)
410 vip-custom-file-name)) 410 vip-custom-file-name))
411 411
412 (message "%s" msg) 412 (message msg)
413 )) 413 ))
414 414
415 (setq new-elt 415 (setq new-elt
416 (cons macro-name 416 (cons macro-name
417 (cond ((eq scope t) (list nil nil (cons t nil))) 417 (cond ((eq scope t) (list nil nil (cons t nil)))