Mercurial > emacs

comparison lisp/emacs-lisp/lmenu.el @ 7699:87513c7850f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace cleanup.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 May 1994 05:55:15 +0000
parents d50e5481aae2
children 2b0419458768
comparison
equal deleted inserted replaced
7698:3d3717bb5405 7699:87513c7850f9
306 (or menu 306 (or menu
307 (let ((rest2 so-far)) 307 (let ((rest2 so-far))
308 (while (and (cdr rest2) (car (cdr rest2))) 308 (while (and (cdr rest2) (car (cdr rest2)))
309 (setq rest2 (cdr rest2))) 309 (setq rest2 (cdr rest2)))
310 (setcdr rest2 310 (setcdr rest2
311 (nconc (list (setq menu (list (car rest)))) 311 (nconc (list (setq menu (list (car rest))))
312 (cdr rest2))))) 312 (cdr rest2)))))
313 (setq so-far menu) 313 (setq so-far menu)
314 (setq rest (cdr rest))))) 314 (setq rest (cdr rest)))))
315 (or menu (setq menu menubar)) 315 (or menu (setq menu menubar))
316 (if item 316 (if item
317 nil ; it's already there 317 nil ; it's already there