Commit ca2ddd8e authored by Sam Steingold's avatar Sam Steingold
Browse files

(lisp-mode-shared-map): Bind `backspace' to `backward-delete-char-untabify'.

parent b30623be
2001-01-12 Sam Steingold <sds@gnu.org>
* emacs-lisp/lisp-mode.el (lisp-mode-shared-map): Bind `backspace'
to `backward-delete-char-untabify'.
2001-01-12 Dave Love <fx@gnu.org> 2001-01-12 Dave Love <fx@gnu.org>
   
* cus-edit.el (customize-menu-create): Fix the :filter following * cus-edit.el (customize-menu-create): Fix the :filter following
...@@ -64,7 +69,7 @@ ...@@ -64,7 +69,7 @@
   
2001-01-11 Richard M. Stallman <rms@gnu.org> 2001-01-11 Richard M. Stallman <rms@gnu.org>
   
* isearch.el (isearch-lazy-highlight-update): * isearch.el (isearch-lazy-highlight-update):
Don't look for more potential matches once maximum is exceeded. Don't look for more potential matches once maximum is exceeded.
Use overlays-in to check correctly for overlap with current match. Use overlays-in to check correctly for overlap with current match.
Ignore empty matches. Ignore empty matches.
...@@ -315,7 +320,7 @@ ...@@ -315,7 +320,7 @@
   
2001-01-08 Andre Spiegel <spiegel@gnu.org> 2001-01-08 Andre Spiegel <spiegel@gnu.org>
   
* vc.el (vc-default-latest-on-branch-p): New function, replaces * vc.el (vc-default-latest-on-branch-p): New function, replaces
constant implementations in backends. constant implementations in backends.
   
* vc-cvs.el (vc-cvs-latest-on-branch-p): Removed. * vc-cvs.el (vc-cvs-latest-on-branch-p): Removed.
...@@ -358,7 +363,7 @@ ...@@ -358,7 +363,7 @@
recognized.) Embed Window Manager name into name of the generated recognized.) Embed Window Manager name into name of the generated
EDT Emulation initialization file since the initialization file is EDT Emulation initialization file since the initialization file is
Window Manager specific. Add Commentary section to file header. Window Manager specific. Add Commentary section to file header.
2001-01-07 Eli Zaretskii <eliz@is.elta.co.il> 2001-01-07 Eli Zaretskii <eliz@is.elta.co.il>
   
* mail/sendmail.el (mail-mode): Doc fix. * mail/sendmail.el (mail-mode): Doc fix.
...@@ -412,7 +417,7 @@ ...@@ -412,7 +417,7 @@
   
2001-01-04 Gerd Moellmann <gerd@gnu.org> 2001-01-04 Gerd Moellmann <gerd@gnu.org>
   
* tooltip.el (tooltip-cancel-delayed-tip) * tooltip.el (tooltip-cancel-delayed-tip)
(tooltip-start-delayed-tip): Renamed from tooltip-disable-timeout (tooltip-start-delayed-tip): Renamed from tooltip-disable-timeout
and tooltip-add-timeout. and tooltip-add-timeout.
(tooltip-show): Set border color from faces's foreground. (tooltip-show): Set border color from faces's foreground.
...@@ -535,7 +540,7 @@ ...@@ -535,7 +540,7 @@
(ps-setup, ps-prologue-file, ps-begin-job, ps-begin-page) (ps-setup, ps-prologue-file, ps-begin-job, ps-begin-page)
(ps-next-line, ps-continue-line, ps-plot-region) (ps-next-line, ps-continue-line, ps-plot-region)
(ps-generate-postscript-with-faces, ps-end-job): Code fix. (ps-generate-postscript-with-faces, ps-end-job): Code fix.
2000-12-29 Kenichi Handa <handa@etl.go.jp> 2000-12-29 Kenichi Handa <handa@etl.go.jp>
   
* international/fontset.el (x-complement-fontset-spec): Resolve * international/fontset.el (x-complement-fontset-spec): Resolve
...@@ -551,7 +556,7 @@ ...@@ -551,7 +556,7 @@
   
2000-12-28 Richard M. Stallman <rms@gnu.org> 2000-12-28 Richard M. Stallman <rms@gnu.org>
   
* dired-x.el (dired-guess-shell-alist-default): * dired-x.el (dired-guess-shell-alist-default):
Use xpdf instead of acroread. Use xpdf instead of acroread.
   
2000-12-28 Kenichi Handa <handa@etl.go.jp> 2000-12-28 Kenichi Handa <handa@etl.go.jp>
...@@ -571,7 +576,7 @@ ...@@ -571,7 +576,7 @@
* ls-lisp.el: Better support for the Mac and MS-Windows. * ls-lisp.el: Better support for the Mac and MS-Windows.
(ls-lisp): New defgroup. (ls-lisp): New defgroup.
(ls-lisp-emulation, ls-lisp-ignore-case, ls-lisp-dirs-first) (ls-lisp-emulation, ls-lisp-ignore-case, ls-lisp-dirs-first)
(ls-lisp-verbosity, ls-lisp-use-insert-directory-program) (ls-lisp-verbosity, ls-lisp-use-insert-directory-program)
(ls-lisp-support-shell-wildcards): New defcustoms. (ls-lisp-support-shell-wildcards): New defcustoms.
(ls-lisp-parse-symlink): New function. (ls-lisp-parse-symlink): New function.
(insert-directory): Code to convert switches to a list and set up (insert-directory): Code to convert switches to a list and set up
...@@ -579,7 +584,7 @@ ...@@ -579,7 +584,7 @@
(ls-lisp-insert-directory): New argument TIME-INDEX. Add support (ls-lisp-insert-directory): New argument TIME-INDEX. Add support
for -C and -R switches. for -C and -R switches.
(ls-lisp-column-format): New function. (ls-lisp-column-format): New function.
(ls-lisp-delete-matching, ls-lisp-handle-switches) (ls-lisp-delete-matching, ls-lisp-handle-switches)
(ls-lisp-format-time): Add doc strings. (ls-lisp-format-time): Add doc strings.
(ls-lisp-handle-switches): Handle -U, -S, -X, and -F switches. (ls-lisp-handle-switches): Handle -U, -S, -X, and -F switches.
Support ls-lisp-dirs-first. Support ls-lisp-dirs-first.
...@@ -611,19 +616,19 @@ ...@@ -611,19 +616,19 @@
characters to 'term-send-raw in term-raw-map. characters to 'term-send-raw in term-raw-map.
   
2000-12-25 Michael Kifer <kifer@cs.sunysb.edu> 2000-12-25 Michael Kifer <kifer@cs.sunysb.edu>
* viper-init (viper-restore-cursor-type): Added condition-case * viper-init (viper-restore-cursor-type): Added condition-case
guard. guard.
* ediff-init.el (ediff-quit-hook,ediff-suspend-hook): Changed * ediff-init.el (ediff-quit-hook,ediff-suspend-hook): Changed
initialization; use add-hook. initialization; use add-hook.
(ediff-file-remote-p): Use file-local-copy. (ediff-file-remote-p): Use file-local-copy.
* ediff-ptch.el (ediff-prompt-for-patch-buffer): Improved defaults. * ediff-ptch.el (ediff-prompt-for-patch-buffer): Improved defaults.
* ediff.el (ediff-patch-buffer): Bug fix. * ediff.el (ediff-patch-buffer): Bug fix.
(ediff-revision): Allow selection of the file at the prompt. (ediff-revision): Allow selection of the file at the prompt.
2000-12-23 Stefan Monnier <monnier@cs.yale.edu> 2000-12-23 Stefan Monnier <monnier@cs.yale.edu>
   
* subr.el (combine-run-hooks): Remove. * subr.el (combine-run-hooks): Remove.
...@@ -697,7 +702,7 @@ ...@@ -697,7 +702,7 @@
2000-12-21 Dave Pearson <davep@davep.org> 2000-12-21 Dave Pearson <davep@davep.org>
   
* quickurl.el: Commentry change, I've moved my web site. * quickurl.el: Commentry change, I've moved my web site.
2000-12-21 Vinicius Jose Latorre <vinicius@cpqd.com.br> 2000-12-21 Vinicius Jose Latorre <vinicius@cpqd.com.br>
   
* ebnf2ps.el: Fix a problem with skip-chars-forward: it doesn't accept * ebnf2ps.el: Fix a problem with skip-chars-forward: it doesn't accept
...@@ -723,12 +728,12 @@ ...@@ -723,12 +728,12 @@
entry. Doc fix. entry. Doc fix.
(ebnf-yac-skip-code): Code fix. (ebnf-yac-skip-code): Code fix.
(ebnf-yac-comment-chars): Const fix. (ebnf-yac-comment-chars): Const fix.
2000-12-21 Eli Zaretskii <eliz@is.elta.co.il> 2000-12-21 Eli Zaretskii <eliz@is.elta.co.il>
   
* files.el (insert-directory-safely): New function. * files.el (insert-directory-safely): New function.
(recover-file): Use it instead of insert-directory. From Markus (recover-file): Use it instead of insert-directory. From Markus
Rost <markus.rost@mathematik.uni-regensburg.de> Rost <markus.rost@mathematik.uni-regensburg.de>
   
2000-12-21 Kenichi Handa <handa@etl.go.jp> 2000-12-21 Kenichi Handa <handa@etl.go.jp>
   
...@@ -839,7 +844,7 @@ ...@@ -839,7 +844,7 @@
   
* image-file.el (image-file-name-extensions): Add "pgm" and "ppm". * image-file.el (image-file-name-extensions): Add "pgm" and "ppm".
   
* textmodes/artist.el (artist-replace-chars, artist-replace-char): * textmodes/artist.el (artist-replace-chars, artist-replace-char):
Check that emacs-major-version is `=' to 20, not `>='. Check that emacs-major-version is `=' to 20, not `>='.
(artist-replace-chars): Use `make-string' instead of a loop. (artist-replace-chars): Use `make-string' instead of a loop.
   
...@@ -915,7 +920,7 @@ ...@@ -915,7 +920,7 @@
notation, and at least will yield a better error message). notation, and at least will yield a better error message).
   
* window.el (mode-line-window-height-fudge): Function removed. * window.el (mode-line-window-height-fudge): Function removed.
(height-affecting-face-attributes, mode-line-window-height-fudge): (height-affecting-face-attributes, mode-line-window-height-fudge):
Variables removed. Variables removed.
* textmodes/ispell.el (ispell-overlay-window): Ensure that the new * textmodes/ispell.el (ispell-overlay-window): Ensure that the new
window is really the right size. Use vertical-motion window is really the right size. Use vertical-motion
...@@ -925,7 +930,7 @@ ...@@ -925,7 +930,7 @@
ispell-choices-win-default-height, rather than the function. ispell-choices-win-default-height, rather than the function.
(ispell-choices-win-default-height): Function removed. (ispell-choices-win-default-height): Function removed.
(ispell-mode-line-window-height-fudge): Function removed. (ispell-mode-line-window-height-fudge): Function removed.
2000-12-14 Stefan Monnier <monnier@cs.yale.edu> 2000-12-14 Stefan Monnier <monnier@cs.yale.edu>
   
* add-log.el (add-change-log-entry): Only expand-file-name if non-nil. * add-log.el (add-change-log-entry): Only expand-file-name if non-nil.
...@@ -973,7 +978,7 @@ ...@@ -973,7 +978,7 @@
* tooltip.el (tooltip-show): If an error is signaled in * tooltip.el (tooltip-show): If an error is signaled in
x-show-tip, display that error, and display the help in the x-show-tip, display that error, and display the help in the
echo area. echo area.
2000-12-14 Kenichi Handa <handa@etl.go.jp> 2000-12-14 Kenichi Handa <handa@etl.go.jp>
   
* international/ja-dic-cnv.el (skkdic-set-okuri-nasi): Show * international/ja-dic-cnv.el (skkdic-set-okuri-nasi): Show
...@@ -1064,7 +1069,7 @@ ...@@ -1064,7 +1069,7 @@
* obsolete/c-mode.el: Moved from lisp/progmodes. * obsolete/c-mode.el: Moved from lisp/progmodes.
* obsolete/auto-show.el: Moved from lisp. * obsolete/auto-show.el: Moved from lisp.
* obsolete/ooutline.el: Moved from lisp/textmodes. * obsolete/ooutline.el: Moved from lisp/textmodes.
2000-12-11 Carsten Dominik <dominik@strw.leidenuniv.nl> 2000-12-11 Carsten Dominik <dominik@strw.leidenuniv.nl>
   
* progmodes/idlwave.el: Updated to IDLWAVE version 4.7. Too many * progmodes/idlwave.el: Updated to IDLWAVE version 4.7. Too many
...@@ -1083,7 +1088,7 @@ ...@@ -1083,7 +1088,7 @@
* simple.el (kill-new): Don't try to setcar kill-ring if it is * simple.el (kill-new): Don't try to setcar kill-ring if it is
nil. nil.
   
* cus-edit.el (custom-save-variables, custom-save-faces): * cus-edit.el (custom-save-variables, custom-save-faces):
Comment fix. Comment fix.
   
* hscroll.el: Moved to `obsolete' subdir. * hscroll.el: Moved to `obsolete' subdir.
......
...@@ -82,15 +82,15 @@ ...@@ -82,15 +82,15 @@
(defvar lisp-imenu-generic-expression (defvar lisp-imenu-generic-expression
(list (list
(list nil (list nil
(purecopy "^\\s-*(def\\(un\\*?\\|subst\\|macro\\|advice\\|\ (purecopy "^\\s-*(def\\(un\\*?\\|subst\\|macro\\|advice\\|\
ine-skeleton\\|ine-minor-mode\\)\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2) ine-skeleton\\|ine-minor-mode\\)\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2)
(list (purecopy "Variables") (list (purecopy "Variables")
(purecopy "^\\s-*(def\\(var\\|const\\|custom\\)\\s-+\ (purecopy "^\\s-*(def\\(var\\|const\\|custom\\)\\s-+\
\\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2) \\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2)
(list (purecopy "Types") (list (purecopy "Types")
(purecopy "^\\s-*(def\\(group\\|type\\|struct\\|class\\|\ (purecopy "^\\s-*(def\\(group\\|type\\|struct\\|class\\|\
ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)") ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")
2)) 2))
"Imenu generic expression for Lisp mode. See `imenu-generic-expression'.") "Imenu generic expression for Lisp mode. See `imenu-generic-expression'.")
...@@ -153,11 +153,12 @@ ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)") ...@@ -153,11 +153,12 @@ ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")
(looking-at outline-regexp) (looking-at outline-regexp)
(- (match-end 0) (match-beginning 0)))) (- (match-end 0) (match-beginning 0))))
(defvar lisp-mode-shared-map (defvar lisp-mode-shared-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "\e\C-q" 'indent-sexp) (define-key map "\e\C-q" 'indent-sexp)
(define-key map "\177" 'backward-delete-char-untabify) (define-key map "\177" 'backward-delete-char-untabify)
(define-key map [backspace] 'backward-delete-char-untabify)
map) map)
"Keymap for commands shared by all sorts of Lisp modes.") "Keymap for commands shared by all sorts of Lisp modes.")
...@@ -306,7 +307,7 @@ if that value is non-nil.") ...@@ -306,7 +307,7 @@ if that value is non-nil.")
(terpri) (terpri)
(eval-last-sexp t) (eval-last-sexp t)
(terpri))) (terpri)))
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
"Evaluate sexp before point; print value in minibuffer. "Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer." With argument, print output into current buffer."
...@@ -331,7 +332,7 @@ With argument, print output into current buffer." ...@@ -331,7 +332,7 @@ With argument, print output into current buffer."
(forward-char -1) (forward-char -1)
(when (eq (preceding-char) ??) (when (eq (preceding-char) ??)
(forward-char -1))) (forward-char -1)))
;; Skip over `#N='s. ;; Skip over `#N='s.
(when (eq (preceding-char) ?=) (when (eq (preceding-char) ?=)
(let (labeled-p) (let (labeled-p)
...@@ -344,7 +345,7 @@ With argument, print output into current buffer." ...@@ -344,7 +345,7 @@ With argument, print output into current buffer."
(save-restriction (save-restriction
;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
;; `variable' so that the value is returned, not the ;; `variable' so that the value is returned, not the
;; name ;; name
(if (and ignore-quotes (if (and ignore-quotes
(eq (following-char) ?`)) (eq (following-char) ?`))
(forward-char)) (forward-char))
...@@ -381,7 +382,7 @@ With argument, print output into current buffer." ...@@ -381,7 +382,7 @@ With argument, print output into current buffer."
(unless (eq old-value new-value) (unless (eq old-value new-value)
(setq debug-on-error new-value)) (setq debug-on-error new-value))
value))) value)))
(defun eval-defun-1 (form) (defun eval-defun-1 (form)
"Change defvar into defconst within FORM. "Change defvar into defconst within FORM.
Likewise for other constructs as necessary." Likewise for other constructs as necessary."
...@@ -423,7 +424,7 @@ Return the result of evaluation." ...@@ -423,7 +424,7 @@ Return the result of evaluation."
;; variable. Re-written using `apply' to avoid capturing ;; variable. Re-written using `apply' to avoid capturing
;; variables like `end'. ;; variables like `end'.
(apply (apply
#'eval-region #'eval-region
(let ((standard-output t) (let ((standard-output t)
beg end form) beg end form)
;; Read the form from the buffer, and record where it ends. ;; Read the form from the buffer, and record where it ends.
...@@ -475,7 +476,7 @@ the minibuffer." ...@@ -475,7 +476,7 @@ the minibuffer."
(setq debug-on-error new-value)) (setq debug-on-error new-value))
value))))) value)))))
(defun lisp-comment-indent () (defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<") (if (looking-at "\\s<\\s<\\s<")
(current-column) (current-column)
...@@ -733,7 +734,7 @@ is the buffer position of the start of the containing expression." ...@@ -733,7 +734,7 @@ is the buffer position of the start of the containing expression."
(goto-char (car (cdr state))) (goto-char (car (cdr state)))
(+ lisp-body-indent (current-column))))) (+ lisp-body-indent (current-column)))))
;; (put 'progn 'lisp-indent-function 0), say, causes progn to be indented ;; (put 'progn 'lisp-indent-function 0), say, causes progn to be indented
;; like defun if the first form is placed on the next line, otherwise ;; like defun if the first form is placed on the next line, otherwise
;; it is indented like any other form (i.e. forms line up under first). ;; it is indented like any other form (i.e. forms line up under first).
...@@ -876,7 +877,7 @@ ENDPOS is encountered." ...@@ -876,7 +877,7 @@ ENDPOS is encountered."
(lisp-indent-line)) (lisp-indent-line))
(indent-sexp endmark) (indent-sexp endmark)
(set-marker endmark nil)))) (set-marker endmark nil))))
;;;; Lisp paragraph filling commands. ;;;; Lisp paragraph filling commands.
(defun lisp-fill-paragraph (&optional justify) (defun lisp-fill-paragraph (&optional justify)
...@@ -986,7 +987,7 @@ and initial semicolons." ...@@ -986,7 +987,7 @@ and initial semicolons."
(re-search-forward comment-start-skip) (re-search-forward comment-start-skip)
(point)))))))) (point))))))))
t)) t))
(defun indent-code-rigidly (start end arg &optional nochange-regexp) (defun indent-code-rigidly (start end arg &optional nochange-regexp)
"Indent all lines of code, starting in the region, sideways by ARG columns. "Indent all lines of code, starting in the region, sideways by ARG columns.
Does not affect lines starting inside comments or strings, assuming that Does not affect lines starting inside comments or strings, assuming that
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment