Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
1372 "-----" 1372 "-----"
1373 ["%_Edit Init (.emacs) File" 1373 ["%_Edit Init (.emacs) File"
1374 ;; #### there should be something that holds the name that the init 1374 ;; #### there should be something that holds the name that the init
1375 ;; file should be created as, when it's not present. 1375 ;; file should be created as, when it's not present.
1376 (progn (find-file (or user-init-file "~/.emacs")) 1376 (progn (find-file (or user-init-file "~/.emacs"))
1377 (emacs-lisp-mode))] 1377 (or (eq major-mode 'emacs-lisp-mode)
1378 (emacs-lisp-mode)))]
1378 ["%_Save Options to .emacs File" customize-save-customized] 1379 ["%_Save Options to .emacs File" customize-save-customized]
1379 ) 1380 )
1380 1381
1381 ("%_Buffers" 1382 ("%_Buffers"
1382 :filter buffers-menu-filter 1383 :filter buffers-menu-filter
1864 ;; included it first 1865 ;; included it first
1865 (not (string= (car lang) 1866 (not (string= (car lang)
1866 current-language-environment)) 1867 current-language-environment))
1867 `([,(car lang) 1868 `([,(car lang)
1868 (help-with-tutorial nil ,(cdr tut))])))) 1869 (help-with-tutorial nil ,(cdr tut))]))))
1869 language-info-alist)) 1870 language-info-alist)
1870 ;; Non mule tutorials. 1871 ;; Non mule tutorials.
1871 (mapcar #'(lambda (lang) 1872 (mapcar #'(lambda (lang)
1872 `[,(car lang) 1873 `[,(car lang)
1873 (help-with-tutorial ,(format "TUTORIAL.%s" 1874 (help-with-tutorial ,(format "TUTORIAL.%s"
1874 (cadr lang)))]) 1875 (cadr lang)))])
1875 tutorial-supported-languages)))) 1876 tutorial-supported-languages)))))
1876 1877
1877 1878
1878 (set-menubar default-menubar) 1879 (set-menubar default-menubar)
1879 1880
1880 1881