andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(disable-command): Don't add spurious newlines to the init file.

Browse source 
Reported by Dan Jacobson <jidanni@jidanni.org>.
This commit is contained in:
Lute Kamstra 2005-04-27 07:44:15 +00:00
parent a715531f6e
commit b2b46494df
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-04-27 Lute Kamstra <lute@gnu.org>
* novice.el (disable-command): Don't add spurious newlines to the
init file. Reported by Dan Jacobson <jidanni@jidanni.org>.
2005-04-26 Jay Belanger <belanger@truman.edu>
* calc/calc-yank.el (calc-edit-finish): Make sure there is more

9
lisp/novice.el
View file

@ -1,6 +1,6 @@
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
;; Copyright (C) 1985, 1986, 1987, 1994, 2002, 2004
;; Copyright (C) 1985, 1986, 1987, 1994, 2002, 2004, 2005
;; Free Software Foundation, Inc.
;; Maintainer: FSF
@ -182,9 +182,10 @@ to future sessions."
(if (search-forward (concat "(put '" (symbol-name command) " ") nil t)
(delete-region
(progn (beginning-of-line) (point))
(progn (forward-line 1) (point))))
(goto-char (point-max))
(insert "\n(put '" (symbol-name command) " 'disabled t)\n")
(progn (forward-line 1) (point)))
(goto-char (point-max))
(insert ?\n))
(insert "(put '" (symbol-name command) " 'disabled t)\n")
(save-buffer))))
(provide 'novice)