xemacs-beta: etc/sample.init.el comparison

comparison etc/sample.init.el @ 464:5aa1854ad537 r21-2-47

Import from CVS: tag r21-2-47

author	cvs
date	Mon, 13 Aug 2007 11:45:51 +0200
parents	0784d089fdc9
children	52626a2f02ef

comparison

equal deleted inserted replaced

-:a158004111cd
+:5aa1854ad537
 ;; I considered having this retain the current column after killing
 ;; the line, but that messes up the common idiom `f8 move-cursor f4'.
 (defun Init-kill-entire-line (&optional arg)
+"Kill the entire line.
+With prefix argument, kill that many lines from point.  Negative
+arguments kill lines backward.
+When calling from a program, nil means \"no arg\",
+a number counts as a prefix arg."
 (interactive "*P")
 (let ((kill-whole-line t))
 (beginning-of-line)
 (call-interactively 'kill-line)))
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Useful programming-related keystrokes.
 (defun describe-foo-at-point ()
+"Show the documentation of the Elisp function and variable near point.
+This checks in turn:
+-- for a function name where point is
+-- for a variable name where point is
+-- for a surrounding function call
+"
 (interactive)
 (let (sym)
 ;; sigh, function-at-point is too clever.  we want only the first half.
 (cond ((setq sym (ignore-errors
 		       (with-syntax-table emacs-lisp-mode-syntax-table
 (define-key list-mode-map 'kp-subtract 'kill-current-buffer)
 (define-key list-mode-map '(shift kp-subtract)
 'kill-current-buffer-and-window)
 (defun kill-current-buffer ()
+"Kill the current buffer (prompting if it is modified)."
 (interactive)
 (kill-buffer (current-buffer)))
 (defun kill-current-buffer-and-window ()
+"Kill the current buffer (prompting if it is modified) and its window."
 (interactive)
 (kill-buffer (current-buffer))
 (delete-window))
-(defun grep-c-files ()
+(defvar grep-all-files-history nil)
-(interactive)
+(defvar grep-all-files-omitted-expressions
+'("*~" "#*" ".#*" ",*" "*.elc" "*.obj" "*.o" "*.exe" "*.dll" "*.lib" "*.a"
+"*.dvi" "*.class" "*.bin")
+"List of expressions matching files to be omitted in `grep-all-files-...'.
+Each entry should be a simple name or a shell wildcard expression.")
+(defvar grep-all-files-omitted-directories '("CVS" "RCS" "SCCS")
+"List of directories not to recurse into in `grep-all-files-...'.
+Each entry should be a simple name or a shell wildcard expression.")
+(defun construct-grep-all-files-command (find-segment grep-segment)
+(let ((omit-annoying
+	 (mapconcat #'(lambda (wildcard)
+			(concat "-name '" wildcard "' -or "))
+		    grep-all-files-omitted-expressions
+		    "")))
+(cond ((eq grep-find-use-xargs 'gnu)
+	   (format "find . %s %s -type f -print0 | xargs -0 -e %s"
+		   find-segment omit-annoying grep-segment))
+	  (grep-find-use-xargs
+	   (format "find . %s %s -type f -print | xargs %s"
+		   find-segment omit-annoying grep-segment))
+	  (t
+	   (format "find . %s %s -type f -exec %s {} /dev/null \\;"
+		   find-segment omit-annoying grep-segment)))))
+(defun grep-all-files-in-current-directory (command)
+"Run `grep' in all non-annoying files in the current directory.
+`Non-annoying' excludes backup files, autosave files, CVS merge files, etc.
+More specifically, this is controlled by `grep-all-files-omitted-expressions'.
+This function does not recurse into subdirectories.  If you want this,
+use \\[grep-all-files-in-current-directory-and-below]."
+(interactive
+(progn
+(require 'compile)
+(list (read-shell-command "Run grep (like this): "
+			       grep-command 'grep-all-files-history))))
 (require 'compile)
-(let ((grep-command
+(grep (construct-grep-all-files-command
-	 (cons (concat grep-command " *.[chCH]"
+	 "-name . -or -type d -prune -or" command)))
-					; i wanted to also use *.cc and *.hh.
-					; see long comment below under Perl.
+(defun grep-all-files-in-current-directory-and-below ()
-		       )
+"Run `grep' in all non-annoying files in the current directory and below.
-	       (length grep-command))))
+`Non-annoying' excludes backup files, autosave files, CVS merge files, etc.
-(call-interactively 'grep)))
+More specifically, this is controlled by `grep-all-files-omitted-expressions'.
-(defun grep-lisp-files ()
+This function recurses into subdirectories.  If you do not want this,
-(interactive)
+use \\[grep-all-files-in-current-directory]."
+(interactive
+(progn
+(require 'compile)
+(list (read-shell-command "Run grep (like this): "
+			       grep-command 'grep-all-files-history))))
 (require 'compile)
-(let ((grep-command
+(grep (construct-grep-all-files-command
-	 (cons (concat grep-command " *.el"
+	 ;; prune all specified directories.
-					; i wanted to also use *.cc and *.hh.
+	 (mapconcat #'(lambda (wildcard)
-					; see long comment below under Perl.
+			(concat "-name '" wildcard "' -prune -or "))
-		       )
+		    grep-all-files-omitted-directories
-	       (length grep-command))))
+		    "")
-(call-interactively 'grep)))
+	 command)))
-;; This repeatedly selects larger and larger balanced expressions
-;; around the cursor.  Once you have such an expression marked, you
-;; can expand to the end of the following expression with C-M-SPC and
-;; to the beginning of the previous with M-left.
 (defun clear-select ()
+"Repeatedly select ever larger balanced expressions around the cursor.
+Once you have such an expression marked, you can expand to the end of
+the following expression with \\[mark-sexp] and to the beginning of the
+previous with \\[backward-sexp]."
 (interactive "_") ;this means "preserve the active region after this command"
 (backward-up-list 1)
 (let ((end (save-excursion (forward-sexp) (point))))
 (push-mark end nil t)))
 ;; #### no kp-divide because it doesn't (currently) work on MS Windows
 ;; -- always reports as /. #### this should be fixable.
 (global-set-key 'kp-add 'query-replace)
 (global-set-key '(shift kp-add) 'query-replace-regexp)
-(global-set-key '(control kp-add) 'grep-c-files)
+(global-set-key '(control kp-add) 'grep-all-files-in-current-directory)
-(global-set-key '(meta kp-add) 'grep-lisp-files)
+(global-set-key '(meta kp-add) 'grep-all-files-in-current-directory-and-below)
 (global-set-key 'clear 'clear-select)
 ;; Note that you can use a "lambda" expression (an anonymous function)
 ;; in place of a function name.  This function would be called
 ;; `pop-local-mark' and lets you repeatedly cycle back through recent
 ;; marks (marks are set whenever you begin a selection, begin a
 ;; successful search, are about to jump to the beginning or end of the
 ;; buffer, etc.).
 (global-set-key 'kp-enter (lambda () (interactive) (set-mark-command t)))
 (global-set-key '(shift kp-enter) 'repeat-complex-command)
-(global-set-key 'pause 'repeat-complex-command) ;; useful on Windows-stlye kbds
+(global-set-key 'pause 'repeat-complex-command) ;; useful on Windows-style kbds
 (global-set-key '(control kp-enter) 'eval-expression)
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Misc.
 ;; Substitute your info here.
 ;(setq user-mail-address "ben@xemacs.org")
 ;(setq user-full-name "Ben Wing")
 ;(setq smtpmail-smtp-server "pop.tcsn.uswest.net")
-;; Make Alt+accelerator traverse to the menu in new enough XEmacs
+;; Make Meta+accelerator traverse to the menu in new enough XEmacs
 ;; versions.  Note that this only overrides Meta bindings that would
-;; actually invoke a menu, and that none of the most common commands
+;; actually invoke a menu, and the most common commands that are
-;; are overridden.  You can use ESC+key to access the overridden
+;; overridden have preferred alternative bindings using the arrow
-;; ones if necessary.
+;; keys.  You can always access the overridden ones using
+;; Shift+Meta+Key. (Note that "Alt" and "Meta" normally refer to the
+;; same key, except on some Sun keyboards [where "Meta" is actually
+;; labelled with a diamond] or if you have explicitly made them
+;; different under X Windows using `xmodmap'.)
+;;
+;; More specifically, the following bindings are overridden:
+;;
+;; M-f		(use C-right or Sh-M-f instead)
+;; M-e		(use M-C-right or Sh-M-e instead)
+;; M-v		(use Prior aka PgUp or Sh-M-v instead)
+;; M-m		(use Sh-M-m instead)
+;; M-t		(use Sh-M-t instead)
+;; M-o		(normally undefined)
+;; M-b		(use C-left or Sh-M-b instead)
+;; M-h		(use M-e h or Sh-M-h instead)
+;; in Lisp mode, M-l	(use Sh-M-l instead)
+;; in C mode, M-c	(use Sh-M-c instead)
 (setq menu-accelerator-enabled 'menu-force)
 ;; Make Cygwin `make' work inside a shell buffer.
 (setenv "MAKE_MODE" "UNIX"))

Mercurial > hg > xemacs-beta

comparison etc/sample.init.el @ 464:5aa1854ad537 r21-2-47